Annotation of loncom/publisher/lonunauthorized.pm, revision 1.15

1.1       www         1: # The LearningOnline Network
                      2: # Unauthorized to access construction space
                      3: #
1.15    ! raeburn     4: # $Id: lonunauthorized.pm,v 1.14 2011/11/30 18:32:23 raeburn Exp $
1.1       www         5: #
                      6: # Copyright Michigan State University Board of Trustees
                      7: #
                      8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
                      9: #
                     10: # LON-CAPA is free software; you can redistribute it and/or modify
                     11: # it under the terms of the GNU General Public License as published by
                     12: # the Free Software Foundation; either version 2 of the License, or
                     13: # (at your option) any later version.
                     14: #
                     15: # LON-CAPA is distributed in the hope that it will be useful,
                     16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
                     17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     18: # GNU General Public License for more details.
                     19: #
                     20: # You should have received a copy of the GNU General Public License
                     21: # along with LON-CAPA; if not, write to the Free Software
                     22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
                     23: #
                     24: # /home/httpd/html/adm/gpl.txt
                     25: #
                     26: # http://www.lon-capa.org/
                     27: #
                     28: 
                     29: package Apache::lonunauthorized;
                     30: 
                     31: use strict;
                     32: use Apache::Constants qw(:common);
                     33: use Apache::loncommon;
                     34: use Apache::lonnet;
1.2       www        35: use Apache::lonlocal;
1.6       albertel   36: use LONCAPA();
1.11      raeburn    37: use HTML::Entities();
1.1       www        38: 
                     39: sub handler {
                     40:     my $r = shift;
1.2       www        41:     &Apache::loncommon::content_type($r,'text/html');
1.1       www        42:     $r->send_http_header;
                     43:     return OK if $r->header_only;
                     44: 
                     45: # ------------------------------------------------------------ Print the screen
                     46: # Figure out who the user is and what they wanted to access
                     47: 
1.11      raeburn    48:     my ($ownername,$ownerdomain,$ownerhome);
                     49:     if ($env{'request.editurl'} ne '') {
                     50:         ($ownername,$ownerdomain,$ownerhome) = 
1.15    ! raeburn    51:             &Apache::lonnet::constructaccess($env{'request.editurl'});
1.11      raeburn    52:     }
                     53: 
                     54:     # Breadcrumbs
                     55:     &Apache::lonhtmlcommon::clear_breadcrumbs();
                     56:     if ($env{'request.role'} =~ /^(au|ca|aa)/) { 
                     57:         &Apache::lonhtmlcommon::add_breadcrumb({
                     58:             'text' => 'Construction Space',
1.12      raeburn    59:             'href' => &Apache::loncommon::authorspace($env{'request.editurl'}),
1.11      raeburn    60:         });
                     61:     } elsif (($env{'request.course.id'}) && 
                     62:              (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
                     63:         &Apache::lonhtmlcommon::add_breadcrumb({
                     64:             'text' => 'Course Contents',
                     65:             'href' => '/adm/coursedocs',
                     66:         });
                     67:     }
                     68: 
1.1       www        69: # print header
1.5       albertel   70:     $r->print(&Apache::loncommon::start_page("Failed Access to Construction Space",
                     71: 					     undef,
1.11      raeburn    72: 					     {'domain' => $ownerdomain,}).
                     73:                                              &Apache::lonhtmlcommon::breadcrumbs());
1.1       www        74: # figure out what went wrong
                     75: 
                     76:     if ($ownerdomain) {
1.11      raeburn    77:         if ($ownerhome eq 'no_host') {
                     78:             $r->print('<p class="LC_error">'.
                     79:                       &mt('Unable to determine home server for this resource: [_1]',
                     80:                       '<span class="LC_filename">'.$env{'request.editurl'}.'</span>').
                     81:                       '</p>');
                     82:         } else {
                     83:             my @hosts = &Apache::lonnet::current_machine_ids();
                     84:             if (!grep(/^\Q$ownerhome\E$/,@hosts)) {
                     85:                 my $switchlink = '/adm/switchserver?otherserver='.$ownerhome.
                     86:                                  '&origurl='.&HTML::Entities::encode($env{'request.editurl'},'<>&"');
                     87: 	        $r->print('<p class="LC_warning">'.
                     88:                           &mt('The construction space for this resource is located on a different server: [_1]',
                     89:                           '<b><tt>'.&Apache::lonnet::hostname($ownerhome).'</b></tt>').
                     90:                           '</p>'.
                     91:                           '<p class="LC_error"><a href="'.$switchlink.'">'.
                     92:                           &mt('Switch Server').'</a>'.
                     93:                           '</p>');
                     94:             } else {
                     95:                 $r->print('<p class="LC_error">'.
                     96:                           &mt('You do not have authoring privileges for this resource').' '.
                     97:                           '<span class="LC_filename">'.$env{'request.editurl'}.'</span>'.
                     98:                           '</p>');
                     99:             }
1.1       www       100:         }
1.10      www       101:     } elsif (!$env{'request.editurl'}) {
1.11      raeburn   102:         if ($ENV{'REDIRECT_URL'} =~ m{^/adm/([^/]+)}) {
                    103:             my $action = $1;   
                    104:             my ($option,$filename,$filename1,$filename2,$decompress,
                    105:                 $qualifiedfilename);
                    106:             if ($ENV{'REDIRECT_QUERY_STRING'} ne '') {
                    107:                 foreach my $pair (split(/&/,$ENV{'REDIRECT_QUERY_STRING'})) {
                    108:                     my ($name,$value) = split(/=/,$pair);
                    109:                     if ($name eq 'filename') {
                    110:                         if (($action eq 'publish') || ($action eq 'cfile')) {
                    111:                             $filename = &LONCAPA::unescape($value);
                    112:                         } else {
                    113:                             $filename = $value;
                    114:                         }
                    115:                     } elsif ($name eq 'filename1') {
                    116:                         $filename1 = $value;
                    117:                     } elsif ($name eq 'filename2') {
                    118:                         $filename2 = $value;
                    119:                     } elsif ($name eq 'decompress') {
                    120:                         $decompress = $value;
                    121:                         $option = 'decompress';
                    122:                     } elsif ($name eq 'qualifiedfilename') {
                    123:                         $qualifiedfilename = $value;
1.14      raeburn   124:                     } elsif ($name eq 'versionone') {
1.11      raeburn   125:                         if ($value eq 'priv') {
                    126:                             $option = 'cstr';
                    127:                         }
                    128:                     } elsif ($name eq 'versiontwo') {
                    129:                         if ($value eq 'priv') {
                    130:                             $option = 'cstr';
                    131:                         }
                    132:                     } elsif ($name eq 'filetwo') {
                    133:                         $option = $value; 
                    134:                     }
                    135:                 }
                    136:                 if (($action eq 'upload') || ($action eq 'testbank')) {
                    137:                     if (($filename1 ne '') && ($filename ne '')) {
                    138:                         $filename = $filename1.$filename2;
                    139:                     }
                    140:                 } elsif ($action eq 'cfile') {
                    141:                     if ($decompress ne '') {
                    142:                         $filename = $decompress;
                    143:                     } elsif ($qualifiedfilename ne '') {
                    144:                         $filename = $qualifiedfilename;
                    145:                     }
                    146:                 }
                    147:                 my %deniedactions = &get_denied_action_text();
                    148:                 my $warning;
                    149:                 if ($option eq 'decompress') {
                    150:                     $warning = $deniedactions{$option};
                    151:                 } else {
                    152:                     $warning = $deniedactions{$action};
                    153:                 }
                    154:                 if ($warning) {
                    155:                     if (($action eq 'diff') && ($option ne 'cstr')) {
                    156:                         $r->print('<p class="LC_error">'.
1.13      raeburn   157:                                   $deniedactions{$action}.'</p><p class="LC_warning">'.
1.11      raeburn   158:                                   &mt('You do not have privileges to view the published resource').' '.
                    159:                                       '<span class="LC_filename">'.$filename.'</span>'.
                    160:                                   '</p>');
                    161:                     } else {
                    162:                         if (($action eq 'diff') && ($option eq 'cstr')) {
                    163:                             $filename =~ s{^/res/}{/priv/};
                    164:                         }
                    165:                         $r->print('<p class="LC_error">'.
                    166:                                   $deniedactions{$action}.'</p><p class="LC_warning">'.
                    167:                                   &mt('You do not have authoring privileges for this resource').' '.
                    168:                                       '<span class="LC_filename">'.$filename.'</span>'.
                    169:                                   '</p>');
                    170:                     }
                    171:                 } else {
                    172:                     $r->print('<p class="LC_error">'.
                    173:                               &mt('You are not permitted to take this action.').
                    174:                               '</p>');
                    175:                 }
                    176:             }
                    177:         } elsif ($r->uri =~ m{priv/.+\.\d+\.[^.]+$}) {
                    178:             $r->print('<p class="LC_error">'.
                    179:                       &mt('There is a problem with the filename').' '.
                    180:                       '<span class="LC_filename">'.$r->uri.'</span></p>'.
                    181:                       '<p class="LC_warning">'.
                    182:                       &mt('You may be attempting to edit a versioned file (files in construction space may not include a version number before the extension).').
                    183:                       '</p>');
                    184:         } else {
                    185:             $r->print('<p class="LC_error">'.
                    186:                       &mt('You are not permitted to take this action.').
                    187:                       '</p>'); 
                    188:         }
                    189:     } elsif ($env{'request.editurl'} =~ m{priv/.+\.\d+\.[^.]+$}) {
                    190:         $r->print('<p class="LC_error">'.
                    191:                   &mt('There is a problem with the filename').' '.
                    192:                   '<span class="LC_filename">'.$env{'request.editurl'}.'</span></p>'.
                    193:                   '<p class="LC_warning">'.
                    194:                   &mt('You may be attempting to edit a versioned file (files in construction space may not include a version number before the extension).').
                    195:                   '</p>');
1.1       www       196:     } else {
1.9       bisitz    197:         $r->print('<p class="LC_error">'
1.11      raeburn   198:                  .&mt('You do not have authoring privileges for this resource').' '
                    199:                  .'<span class="LC_filename">'.$env{'request.editurl'}.'</span>'
1.9       bisitz    200:                  .'</p>');
1.11      raeburn   201:         my ($realownerdom,$realownername) =
                    202: 	    ($env{'request.editurl'}=~m{^/priv/($LONCAPA::domain_re)/($LONCAPA::username_re)});
1.1       www       203:         my $realownerhome=
1.11      raeburn   204: 	    &Apache::lonnet::homeserver($realownername,$realownerdom);
1.1       www       205:         unless ($realownerhome eq 'no_host') {
1.11      raeburn   206:             my $plainname=&Apache::loncommon::plainname($realownername,$realownerdom);
                    207:             my $user=$realownername.':'.$realownerdom;
1.8       bisitz    208:             my $userlink=&Apache::loncommon::aboutmewrapper(
                    209:                              $plainname.' ('.$user.')'
                    210:                             ,$realownername
1.11      raeburn   211:                             ,$realownerdom);
1.8       bisitz    212: 	    $r->print('<p>'
                    213:                      .&mt('Contact [_1] for access.',$userlink)
                    214:                      .'</p>');
1.1       www       215:         }
                    216:     }
1.5       albertel  217:     $r->print(&Apache::loncommon::end_page());
1.1       www       218:     return OK;
1.11      raeburn   219: }
                    220: 
                    221: sub get_denied_action_text {
                    222:     my %deniedtext = 
                    223:         &Apache::lonlocal::texthash(
                    224:            cfile      => 'Copying, moving, renaming or creating file not allowed.',
                    225:            publish    => 'Publishing not allowed.',
                    226:            upload     => 'Uploading file not allowed.',
                    227:            testbank   => 'Uploading testbank file not allowed',
                    228:            retrieve   => 'Retrieving version information not allowed.',
                    229:            cleanup    => 'Clean up of file not allowed.',
                    230:            diff       => 'Display of differences between file versions disallowed.',
                    231:            decompress => 'Decompression of archive file disallowed.',
                    232:     );
                    233:     return %deniedtext;
                    234: }
1.1       www       235: 
                    236: 1;
                    237: __END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>