[BACK]Return to lonupload.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonupload.pm between versions 1.13 and 1.44

version 1.13, 2002/08/24 03:56:58 version 1.44, 2009/03/26 16:50:12
Line 26 Line 26
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 # (Handler to retrieve an old version of a file  
 #  
 # (Publication Handler  
 #   
 # (TeX Content Handler  
 #  
 # YEAR=2000  
 # 05/29/00,05/30,10/11 Gerd Kortemeyer)  
 #  
 # 11/28,11/29,11/30,12/01,12/02,12/04,12/23 Gerd Kortemeyer  
 # YEAR=2001  
 # 03/23 Guy Albertelli  
 # 03/24,03/29 Gerd Kortemeyer)  
 #  
 # 03/31,04/03 Gerd Kortemeyer)  
 #  
 # 04/05,04/09,05/25,06/23,06/24,08/22 Gerd Kortemeyer  
 # 11/29 Matthew Hall  
 # 12/16 Scott Harrison  
 #  
 ###  ###
   
 package Apache::lonupload;  
   
 use strict;  
 use Apache::File;  
 use File::Copy;  
 use File::Basename;  
 use Apache::Constants qw(:common :http :methods);  
 use Apache::loncacc;  
 use Apache::loncommon();  
 use Apache::Log();  
 use Apache::lonnet;  
   
 my $DEBUG=0;  
   
 sub Debug {  
     
   # Marshall the parameters.  
     
   my $r       = shift;  
   my $log     = $r->log;  
   my $message = shift;  
     
   # Put out the indicated message butonly if DEBUG is false.  
     
   if ($DEBUG) {  
     $log->debug($message);  
   }  
 }  
   
 sub upfile_store {  
     my $r=shift;  
   
     my $fname=$ENV{'form.upfile.filename'};  
     $fname=~s/\W//g;  
       
     chop($ENV{'form.upfile'});  
     
     my $datatoken=$ENV{'user.name'}.'_'.$ENV{'user.domain'}.  
   '_upload_'.$fname.'_'.time.'_'.$$;  
     {  
        my $fh=Apache::File->new('>'.$r->dir_config('lonDaemons').  
                                    '/tmp/'.$datatoken.'.tmp');  
        print $fh $ENV{'form.upfile'};  
     }  
     return $datatoken;  
 }  
   
   
 sub phaseone {  
    my ($r,$fn,$uname,$udom)=@_;  
    $ENV{'form.upfile.filename'}=~s/\\/\//g;  
    $ENV{'form.upfile.filename'}=~s/^.*\/([^\/]+)$/$1/;  
    if ($ENV{'form.upfile.filename'}) {  
     $fn=~s/\/[^\/]+$//;  
     $fn=~s/([^\/])$/$1\//;  
     $fn.=$ENV{'form.upfile.filename'};  
     $fn=~s/^\///;  
     $fn=~s/(\/)+/\//g;  
   
 #    Fn is the full path to the destination filename.  
 #      
   
     &Debug($r, "Filename for upload: $fn");  
     if (($fn) && ($fn!~/\/$/)) {  
       $r->print(  
  '<form action=/adm/upload method=post>'.  
  '<input type=hidden name=phase value=two>'.  
  '<input type=hidden name=datatoken value="'.&upfile_store.'">'.  
  'Store uploaded file as '.  
  '<input type=text size=50 name=filename value="/priv/'.  
   $uname.'/'.$fn.'"><br>'.  
  '<input type=submit value="Store"></form>');  
       # Check for bad extension and warn user  
       if ($fn=~/\.(\w+)$/ &&   
   (&Apache::loncommon::fileembstyle($1) eq 'hdn')) {  
   $r->print(  
  '<font color=red>'.  
  'The extension on this file, "'.$1.  
  '", is reserved internally by LON-CAPA. <br \>'.  
  'Please change the extension.'.  
  '</font>');  
       } elsif($fn=~/\.(\w+)$/ &&   
       !defined(&Apache::loncommon::fileembstyle($1))) {  
   $r->print(  
  '<font color=red>'.  
  'The extension on this file, "'.$1.  
  '", is not recognized by LON-CAPA. <br \>'.  
  'Please change the extension.'.  
  '</font>');  
       }  
   } else {  
       $r->print('<font color=red>Illegal filename.</font>');  
   }  
  } else {  
      $r->print('<font color=red>No upload file specified.</font>');  
  }  
 }  
   
 sub phasetwo {  
    my ($r,$fn,$uname,$udom)=@_;  
    &Debug($r, "Filename is ".$fn);  
    if ($fn=~/^\/priv\/$uname\//) {  
     &Debug($r, "Filename after priv substitution: ".$fn);  
     my $tfn=$fn;  
     $tfn=~s/^\/(\~|priv)\/(\w+)//;  
     &Debug($r, "Filename for tfn = ".$tfn);  
     my $target='/home/'.$uname.'/public_html'.$tfn;  
     &Debug($r, "target -> ".$target);  
 #     target is the full filesystem path of the destination file.  
     my $base = &File::Basename::basename($fn);  
     my $path = &File::Basename::dirname($fn);  
     $base    = Apache::lonnet::escape($base);  
     my $url  = $path."/".$base;   
     &Debug($r, "URL is now ".$url);  
     my $datatoken=$ENV{'form.datatoken'};  
     if (($fn) && ($datatoken)) {  
  if ((-e $target) && ($ENV{'form.override'} ne 'Yes')) {  
            $r->print(  
  '<form action=/adm/upload method=post>'.  
  'File <tt>'.$fn.'</tt> exists. Overwrite? '.  
  '<input type=hidden name=phase value=two>'.  
  '<input type=hidden name=filename value="'."$url".'">'.  
  '<input type=hidden name=datatoken value="'.$datatoken.'">'.  
  '<input type=submit name=override value="Yes"></form>');  
        } else {  
            my $source=$r->dir_config('lonDaemons').  
                              '/tmp/'.$datatoken.'.tmp';  
            # Check for bad extension and disallow upload  
    if ($fn=~/\.(\w+)$/ &&   
        (&Apache::loncommon::fileembstyle($1) eq 'hdn')) {  
        $r->print(  
  'File <tt>'.$fn.'</tt> could not be copied.<br />'.  
  '<font color=red>'.  
  'The extension on this file is reserved internally by LON-CAPA.'.  
  '</font>');  
    } elsif ($fn=~/\.(\w+)$/ &&   
     !defined(&Apache::loncommon::fileembstyle($1))) {  
        $r->print(  
  'File <tt>'.$fn.'</tt> could not be copied.<br />'.  
  '<font color=red>'.  
  'The extension on this file is not recognized by LON-CAPA.'.  
  '</font>');  
    } elsif (copy($source,$target)) {  
        chmod(0660, $target); # Set permissions to rw-rw---.  
       $r->print('File copied.');  
               $r->print('<p><font size=+2><a href="'.$url.  
                         '">View file</a></font>');  
    } else {  
               $r->print('Failed to copy: '.$!);  
    }  
        }  
     } else {  
        $r->print(  
    '<font size=+1 color=red>Please pick a filename</font><p>');  
        &phaseone($r,$fn,$uname,$udom);  
     }  
   } else {  
     $r->print(  
    '<font size=+1 color=red>Please pick a filename</font><p>');  
     &phaseone($r,$fn,$uname,$udom);  
   }  
 }  
   
 # ---------------------------------------------------------------- Main Handler  
 sub handler {  
   
   my $r=shift;  
   
   my $uname;  
   my $udom;  
   
   ($uname,$udom)=  
     &Apache::loncacc::constructaccess(  
  $ENV{'form.filename'},$r->dir_config('lonDefDomain'));  
   unless (($uname) && ($udom)) {  
      $r->log_reason($uname.' at '.$udom.  
          ' trying to publish file '.$ENV{'form.filename'}.  
          ' - not authorized',   
          $r->filename);   
      return HTTP_NOT_ACCEPTABLE;  
   }  
   
   my $fn;  
   
   if ($ENV{'form.filename'}) {  
       $fn=$ENV{'form.filename'};  
       $fn=~s/^http\:\/\/[^\/]+\/(\~|priv\/)(\w+)//;  
   } else {  
      $r->log_reason($ENV{'user.name'}.' at '.$ENV{'user.domain'}.  
          ' unspecified filename for upload', $r->filename);   
      return HTTP_NOT_FOUND;  
   }  
   
 # ----------------------------------------------------------- Start page output  
   
   
   $r->content_type('text/html');  
   $r->send_http_header;  
   
   $r->print('<html><head><title>LON-CAPA Construction Space</title></head>');  
   
   $r->print(  
    '<body bgcolor="#FFFFFF"><img align=right src=/adm/lonIcons/lonlogos.gif>');  
   
     
   $r->print('<h1>Upload file to Construction Space</h1>');  
     
   if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) {  
           $r->print('<h3><font color=red>Co-Author: '.$uname.' at '.$udom.  
                '</font></h3>');  
   }  
   
   
   if ($ENV{'form.phase'} eq 'two') {  
       &phasetwo($r,$fn,$uname,$udom);  
   } else {  
       &phaseone($r,$fn,$uname,$udom);  
   }  
   
   $r->print('</body></html>');  
   return OK;    
 }  
   
 1;  
 __END__  
   
 =head1 NAME  =head1 NAME
   
 Apache::lonupload - upload files into construction space  Apache::lonupload - upload files into construction space
Line 316  Start page output Line 70  Start page output
   
 =item *  =item *
   
 output relevant interface phase (phaseone or phasetwo)  output relevant interface phase (phaseone or phasetwo or phasethree)
   
 =item *  =item *
   
 (phase one is to specify upload file; phase two is to handle conditions  (phase one is to specify upload file; phase two is to handle conditions
 subsequent to specification--like overwriting an existing file)  subsequent to specification--like overwriting an existing file; phase three
   is to handle processing of secondary uploads - of embedded objects in an
   html file).
   
 =back  =back
   
 =head1 OTHER SUBROUTINES  =head1 OTHER SUBROUTINES
   
 =over 4  =over
   
 =item *  =item phaseone()
   
 phaseone() : Interface for specifying file to upload.  Interface for specifying file to upload.
   
 =item *  =item phasetwo()
   
 phasetwo() : Interface for handling post-conditions about uploading (such  Interface for handling post-conditions about uploading (such
 as overwriting an existing file).  as overwriting an existing file).
   
 =item *  =item phasethree()
   
   Interface for handling secondary uploads of embedded objects
   in an html file.
   
   =item upfile_store()
   
 upfile_store() : Store contents of uploaded file into temporary space.  Invoked  Store contents of uploaded file into temporary space.  Invoked
 by phaseone subroutine.  by phaseone subroutine.
   
   =item check_extension()
   
   Checks if filename extension is permitted and checks type
    of file - if html file, calls parser to check for embedded objects.
    Invoked by phasetwo subroutine.
   
 =back  =back
   
 =cut  =cut
   
   package Apache::lonupload;
   
   use strict;
   use Apache::File;
   use File::Copy;
   use File::Basename;
   use Apache::Constants qw(:common :http :methods);
   use Apache::loncacc;
   use Apache::loncommon();
   use Apache::lonnet;
   use HTML::Entities();
   use Apache::lonlocal;
   use Apache::lonnet;
   use LONCAPA();
   
   my $DEBUG=0;
   
   sub Debug {
       # Put out the indicated message but only if DEBUG is true.
       if ($DEBUG) {
    my ($r,$message) = @_;
    $r->log_reason($message);
       }
   }
   
   sub upfile_store {
       my $r=shift;
   
       my $fname=$env{'form.upfile.filename'};
       $fname=~s/\W//g;
       
       chomp($env{'form.upfile'});
     
       my $datatoken=$env{'user.name'}.'_'.$env{'user.domain'}.
     '_upload_'.$fname.'_'.time.'_'.$$;
       {
          my $fh=Apache::File->new('>'.$r->dir_config('lonDaemons').
                                      '/tmp/'.$datatoken.'.tmp');
          print $fh $env{'form.upfile'};
       }
       return $datatoken;
   }
   
   sub phaseone {
       my ($r,$fn,$uname,$udom,$mode)=@_;
       my $action = '/adm/upload';
       if ($mode eq 'testbank') {
           $action = '/adm/testbank';
       } elsif ($mode eq 'imsimport') {
           $action = '/adm/imsimport';
       }
       $env{'form.upfile.filename'}=~s/\\/\//g;
       $env{'form.upfile.filename'}=~s/^.*\/([^\/]+)$/$1/;
       if ($env{'form.upfile.filename'}) {
    $fn=~s/\/[^\/]+$//;
    $fn=~s/([^\/])$/$1\//;
    $fn.=$env{'form.upfile.filename'};
    $fn=~s/^\///;
    $fn=~s/(\/)+/\//g;
   
   #    Fn is the full path to the destination filename.
   #    
   
    &Debug($r, "Filename for upload: $fn");
    if (($fn) && ($fn!~/\/$/)) {
       $r->print('<form action="'.$action.'" method="post" name="fileupload">'.
         '<input type="hidden" name="phase" value="two" />'.
         '<input type="hidden" name="datatoken" value="'.
         &upfile_store.'" />'.
         '<input type="hidden" name="uploaduname" value="'.$uname.
         '" />'.&mt('Save uploaded file as [_1]',
                         "<span class='LC_filename'>/priv/$uname/</span>".
                         '<input type="text" size="50" name="filename" value="'.$fn.
                         '" />').
                         '<br />'.
         '<br />'.&mt('Choose file type:').'
   <select name="filetype">
    <option value="standard" selected>'.&mt('Regular file').'
    <option value="testbank">'.&mt('Testbank file').'
    <option value="imsimport">'.&mt('IMS package').'
   </select>'.&Apache::loncommon::help_open_topic("Uploading_File_Options").'
   <br />
   <br />
   ');
               $r->print('<input type="button" value="'.&mt('Save').'" onClick="javascript:verifyForm()"/></form>');
       # Check for bad extension and warn user
       if ($fn=~/\.(\w+)$/ && 
    (&Apache::loncommon::fileembstyle($1) eq 'hdn')) {
                   $r->print('<p class="LC_error">'
                             .&mt('The extension on this file, [_1], is reserved internally by LON-CAPA.','"'.$1.'"')
                             .' <br />'.&mt('Please change the extension.')
                             .'</p>');
       } elsif($fn=~/\.(\w+)$/ && 
       !defined(&Apache::loncommon::fileembstyle($1))) {
                   $r->print('<p class="LC_error">'
                            .&mt('The extension on this file, [_1], is not recognized by LON-CAPA.','"'.$1.'"')
                            .' <br />'.&mt('Please change the extension.')
                            .'</p>');
       }
    } else {
       $r->print('<span class="LC_error">'.&mt('Illegal filename.').'</span>');
    }
       } else {
    $r->print('<span class="LC_error">'.&mt('No upload file specified.').'</span>');
       }
   }
   
   sub phasetwo {
       my ($r,$tfn,$uname,$udom,$mode)=@_;
       my $output;
       my $action = '/adm/upload';
       my $returnflag = '';
       if ($mode eq 'testbank') {
           $action = '/adm/testbank';
       } elsif ($mode eq 'imsimport') {
           $action = '/adm/imsimport';
       }
       my $fn='/priv/'.$uname.'/'.$tfn;
       $fn=~s/\/+/\//g;
       &Debug($r, "Filename is ".$tfn);
       if ($tfn) {
    &Debug($r, "Filename for tfn = ".$tfn);
    my $target='/home/'.$uname.'/public_html'.$tfn;
    &Debug($r, "target -> ".$target);
   #     target is the full filesystem path of the destination file.
    my $base = &File::Basename::basename($fn);
    my $path = &File::Basename::dirname($fn);
    $base    = &HTML::Entities::encode($base,'<>&"');
    my $url  = $path."/".$base; 
    &Debug($r, "URL is now ".$url);
    my $datatoken=$env{'form.datatoken'};
    if (($fn) && ($datatoken)) {
               if ($env{'form.cancel'}) {
                   my $source=$r->dir_config('lonDaemons').'/tmp/'.$datatoken.'.tmp';
                   my $dirpath=$path.'/';
                   $dirpath=~s/\/+/\//g;
                   $output .= &mt('Upload cancelled.').'<br /><font size="+2"><a href="'.$dirpath.'">'.
                             &mt('Back to Directory').'</a></font>';
       } elsif ((-e $target) && (!$env{'form.override'})) {
    $output .= '<form action="'.$action.'" method="post">'.
     &mt('File [_1] exists. Overwrite?','<span class="LC_filename">'.$fn.'</span>').
     '<input type="hidden" name="phase" value="two" />'.
     '<input type="hidden" name="filename" value="'.$url.'" />'.
     '<input type="hidden" name="datatoken" value="'.$datatoken.'" />'.
     '<input type="submit" name="override" value="'.&mt('Yes').'" />'.
                             '<input type="submit" name="cancel" value="'.&mt('Cancel').'" />'.
                             '</form>';
               } else {
    my $source=$r->dir_config('lonDaemons').'/tmp/'.$datatoken.'.tmp';
    my $dirpath=$path.'/';
    $dirpath=~s/\/+/\//g;
    # Check for bad extension and disallow upload
                   my $result;
                   ($result,$returnflag) = &check_extension($fn,$mode,$source,$target,$action,$dirpath,$url);
                   $output .= $result;
       }
    } else {
       $output .= '<span class="LC_error">'.
         &mt('Please use browser "Back" button and pick a filename').
         '</span><br />';
    }
       } else {
    $output .= '<span class="LC_error">'.
      &mt('Please use browser "Back" button and pick a filename').
      '</span><br />';
       }
       return ($output,$returnflag);
   }
   
   sub check_extension {
       my ($fn,$mode,$source,$target,$action,$dirpath,$url) = @_;
       my ($result,$returnflag);
       # Check for bad extension and disallow upload
       if ($fn=~/\.(\w+)$/ &&
           (&Apache::loncommon::fileembstyle($1) eq 'hdn')) {
           $result .= &mt('File [_1] could not be copied.',
                         '<span class="LC_filename">'.$fn.'</span> ').
                     '<p class="LC_error">'.
                     &mt('The extension on this file is reserved internally by LON-CAPA.').
                     '</p>';
       } elsif ($fn=~/\.(\w+)$/ &&
                !defined(&Apache::loncommon::fileembstyle($1))) {
           $result .= &mt('File [_1] could not be copied.',
                         '<span class="LC_filename">'.$fn.'</span> ').
                     '<p class="LC_error">'.
                     &mt('The extension on this file is not recognized by LON-CAPA.').
                     '</p>';
       } elsif (-d $target) {
           $result .= &mt('File [_1] could not be copied.',
                         '<span class="LC_filename">'.$fn.'</span>').
                     '<p class="LC_error">'.
                     &mt('The target is an existing directory.').
                     '</p>';
       } elsif (copy($source,$target)) {
           chmod(0660, $target); # Set permissions to rw-rw---.
           if ($mode eq 'testbank' || $mode eq 'imsimport') {
               $returnflag = 'ok';
               $result .= &mt('Your file - [_1] - was uploaded successfully',$fn).'<br /><br />';
           } else {
               $result .= &mt('File copied.').'<br />';
           }
           # Check for embedded objects.
           my (%allfiles,%codebase);
           my ($text,$header,$css,$js);
           if (($mode ne 'imsimport') && ($target =~ /\.(htm|html|shtml)$/i)) {
               my (%allfiles,%codebase);
               &Apache::lonnet::extract_embedded_items($target,\%allfiles,\%codebase);
               if (keys(%allfiles) > 0) {
                   my $state = <<STATE;
       <input type="hidden" name="action"      value="upload_embedded" />
       <input type="hidden" name="currentpath" value="$env{'form.currentpath'}" />
       <input type="hidden" name="mode"        value="$mode" />
       <input type="hidden" name="phase"       value="three" />
       <input type="hidden" name="filename" value="$url" />
   STATE
                   $result .= "<h3>".&mt("Reference Warning")."</h3>".
                              "<p>".&mt("Completed upload of the file. This file contained references to other files.")."</p>".
                             "<p>".&mt("Please select the locations from which the referenced files are to be uploaded.")."</p>".
                             &Apache::loncommon::ask_for_embedded_content($action,$state,\%allfiles,\%codebase,
                                         {'error_on_invalid_names'   => 1,
                                          'ignore_remote_references' => 1,});
                   if ($mode eq 'testbank') {
                       $returnflag = 'embedded';
                       $result .=  '<p>'.&mt('Or [_1]continue[_2] the testbank import without these files','<a href="javascript:document.testbankForm.submit();">','</a>').'</p>';
                   }
               }
           }
           if (($mode ne 'imsimport') && ($mode ne 'testbank')) {
               $result .= '<br /><font size="+2"><a href="'.$url.'">'.
                           &mt('View file').'</a></font>';
           }
       } else {
           $result .= &mt('Failed to copy: [_1].',$!);
       }
       if ($mode ne 'imsimport' && $mode ne 'testbank') {
           $result .= '<br /><font size="+2"><a href="'.$dirpath.'">'.
                      &mt('Back to Directory').'</a></font><br />';
       }
       return ($result,$returnflag);
   }
   
   sub phasethree {
       my ($r,$fn,$uname,$udom,$mode) = @_;
       my $result;
       my $dir_root = '/home/'.$uname.'/public_html';
       my $url_root = '/priv/'.$uname;
       my $base = &File::Basename::basename($fn);
       my $path = &File::Basename::dirname($fn);
       $result = &Apache::loncommon::upload_embedded($mode,$path,$uname,$udom,
                                                     $dir_root,$url_root);
       if ($mode ne 'imsimport' && $mode ne 'testbank') {
           $result = '<br /><font size="+2"><a href="'.$url_root.$fn.'">'.
                     &mt('View main file').'</a></font>'.
                     '<br /><font size="+2"><a href="'.$url_root.$path.'">'.
                     &mt('Back to Directory').'</a></font><br />';
       }
       return $result;
   }
   
   # ---------------------------------------------------------------- Main Handler
   sub handler {
   
       my $r=shift;
   
       my $uname;
       my $udom;
       my $javascript = '';
   #
   # phase two: re-attach user
   #
       if ($env{'form.uploaduname'}) {
    $env{'form.filename'}='/priv/'.$env{'form.uploaduname'}.'/'.
       $env{'form.filename'};
       }
   
       unless ($env{'form.phase'} eq 'two') {
           $javascript = qq|
   function verifyForm() {
       var mode = document.fileupload.filetype.options[document.fileupload.filetype.selectedIndex].value
       if (mode == "testbank") {
           document.fileupload.action = "/adm/testbank";
       }
       if (mode == "imsimport") {
           document.fileupload.action = "/adm/imsimport";
       }
       if (mode == "standard") {
           document.fileupload.action = "/adm/upload";
       }
       document.fileupload.submit();
   }
    |;
       }
       ($uname,$udom)=
    &Apache::loncacc::constructaccess($env{'form.filename'},
     $r->dir_config('lonDefDomain'));
   
       unless (($uname) && ($udom)) {
    $r->log_reason($uname.' at '.$udom.
          ' trying to publish file '.$env{'form.filename'}.
          ' - not authorized', 
          $r->filename); 
    return HTTP_NOT_ACCEPTABLE;
       }
       
       my $fn;
       if ($env{'form.filename'}) {
    $fn=$env{'form.filename'};
    $fn=~s/^https?\:\/\/[^\/]+\///;
    $fn=~s/^\///;
    $fn=~s{(~|priv/)($LONCAPA::username_re)}{};
    $fn=~s/\/+/\//g;
       } else {
    $r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.
          ' unspecified filename for upload', $r->filename); 
    return HTTP_NOT_FOUND;
       }
   
   # ----------------------------------------------------------- Start page output
   
   
       &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;
   
      $javascript = "<script type=\"text/javascript\">\n//<!--\n".
    $javascript."\n// --></script>\n";
   
       $r->print(&Apache::loncommon::start_page('Upload file to Construction Space',
        $javascript));
     
       if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {
           $r->print('<p class="LC_warning">'
                    .&mt('Co-Author [_1]:[_2]',$uname,$udom)
                    .'</p>'
           );
       }
   
       if ($env{'form.phase'} eq 'three') {
           my $output = &phasethree($r,$fn,$uname,$udom,'author');
           $r->print($output);
       } elsif ($env{'form.phase'} eq 'two') {
    my ($output,$returnflag) = &phasetwo($r,$fn,$uname,$udom);
           $r->print($output);
       } else {
    &phaseone($r,$fn,$uname,$udom);
       }
   
       $r->print(&Apache::loncommon::end_page());
       return OK;  
   }
   
   1;
   __END__
   
   
Removed from v.1.13  
changed lines
  Added in v.1.44

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.