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

Diff for /loncom/publisher/loncfile.pm between versions 1.28 and 1.31

version 1.28, 2003/03/08 01:41:53 version 1.31, 2003/06/19 20:49:13
Line 412  sub CloseForm1 { Line 412  sub CloseForm1 {
    &Debug($request, "Cancel url is: ".$cancelurl);     &Debug($request, "Cancel url is: ".$cancelurl);
    $request->print('<p><input type="submit" value="Continue" /></p></form>');     $request->print('<p><input type="submit" value="Continue" /></p></form>');
    $request->print('<form action="'.$cancelurl.     $request->print('<form action="'.$cancelurl.
    '" method="GET"><p><input type="submit" value="Cancel" /></p></form>');     '" method="POST"><p><input type="submit" value="Cancel" /></p></form>');
   
 }  }
   
Line 494  sub Rename1 { Line 494  sub Rename1 {
     if(-e $conspace) {      if(-e $conspace) {
  if($ENV{'form.newfilename'}) {   if($ENV{'form.newfilename'}) {
     my $newfilename = $ENV{'form.newfilename'};      my $newfilename = $ENV{'form.newfilename'};
     if ($newfilename =~ m|^[^\.]+$|) {      if ($newfilename =~ m|/[^\.]+$|) {
  #no extension add on orignal extension   #no extension add on orignal extension
  if ($filename =~ m|/[^\.]*\.([^\.]+)$|) {   if ($filename =~ m|/[^\.]*\.([^\.]+)$|) {
     $newfilename.='.'.$1;      $newfilename.='.'.$1;
Line 778  sub NewFile1 { Line 778  sub NewFile1 {
  }   }
     }      }
   
       #remove bad characters
       if  ($newfilename=~/[\#\?&]/) {
    $request->print("<p><font color=\"red\">Invalid characters in requested filename have been removed.</font></p>");
    $newfilename=~s/[\#\?&]//g;
       }
   
     my $fullpath = $dir.'/'.$newfilename;      my $fullpath = $dir.'/'.$newfilename;
   
     &Debug($request, "Full path is : ".$fullpath);      &Debug($request, "Full path is : ".$fullpath);
Line 792  sub NewFile1 { Line 798  sub NewFile1 {
  &Debug($request, "Dest url is: ".$dest);   &Debug($request, "Dest url is: ".$dest);
  $request->print('</form>');   $request->print('</form>');
  $request->print('<form action="'.$dest.   $request->print('<form action="'.$dest.
  '" method="GET"><p><input type="submit" value="Continue" /></p></form>');   '" method="POST"><p><input type="submit" value="Continue" /></p></form>');
  $request->print('<form action="'.$cancelurl.   $request->print('<form action="'.$cancelurl.
  '" method="GET"><p><input type="submit" value="Cancel" /></p></form>');   '" method="POST"><p><input type="submit" value="Cancel" /></p></form>');
     }      }
 }  }
   
Line 865  sub phaseone { Line 871  sub phaseone {
     $ENV{'form.action'} eq 'newhtmlfile' ||      $ENV{'form.action'} eq 'newhtmlfile' ||
     $ENV{'form.action'} eq 'newproblemfile' ||      $ENV{'form.action'} eq 'newproblemfile' ||
             $ENV{'form.action'} eq 'newpagefile' ||              $ENV{'form.action'} eq 'newpagefile' ||
             $ENV{'form.action'} eq 'newsequencefile') {              $ENV{'form.action'} eq 'newsequencefile' ||
               $ENV{'form.action'} eq 'Select Action') {
       if($ENV{'form.newfilename'}) {        if($ENV{'form.newfilename'}) {
   my $newfilename = $ENV{'form.newfilename'};    my $newfilename = $ENV{'form.newfilename'};
   if (!defined($dir)) {    if (!defined($dir)) {
Line 1295  sub handler { Line 1302  sub handler {
    $ENV{'form.action'} eq 'newhtmlfile' ||     $ENV{'form.action'} eq 'newhtmlfile' ||
    $ENV{'form.action'} eq 'newproblemfile' ||     $ENV{'form.action'} eq 'newproblemfile' ||
            $ENV{'form.action'} eq 'newpagefile' ||             $ENV{'form.action'} eq 'newpagefile' ||
            $ENV{'form.action'} eq 'newsequencefile' ) {             $ENV{'form.action'} eq 'newsequencefile' ||
              $ENV{'form.action'} eq 'Select Action' ) {
       $r->print('<h3>New Resource</h3>');        $r->print('<h3>New Resource</h3>');
   } else {    } else {
      $r->print('<p>Unknown Action</p></body></html>');       $r->print('<p>Unknown Action '.$ENV{'form.action'}.' </p></body></html>');
      return OK;         return OK;  
   }    }
   if ($ENV{'form.phase'} eq 'two') {    if ($ENV{'form.phase'} eq 'two') {
Removed from v.1.28  
changed lines
  Added in v.1.31

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