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

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.314 and 1.318

version 1.314, 2003/01/09 22:45:51 version 1.318, 2003/01/13 21:52:11
Line 857  sub tokenwrapper { Line 857  sub tokenwrapper {
 sub userfileupload {  sub userfileupload {
     my ($formname,$coursedoc)=@_;      my ($formname,$coursedoc)=@_;
     my $fname=$ENV{'form.'.$formname.'.filename'};      my $fname=$ENV{'form.'.$formname.'.filename'};
   # Replace Windows backslashes by forward slashes
     $fname=~s/\\/\//g;      $fname=~s/\\/\//g;
   # Get rid of everything but the actual filename
     $fname=~s/^.*\/([^\/]+)$/$1/;      $fname=~s/^.*\/([^\/]+)$/$1/;
   # Replace spaces by underscores
       $fname=~s/\s+/\_/g;
   # Replace all other weird characters by nothing
       $fname=~s/[^\w\.\-]//g;
   # See if there is anything left
     unless ($fname) { return 'error: no uploaded file'; }      unless ($fname) { return 'error: no uploaded file'; }
     chop($ENV{'form.'.$formname});      chop($ENV{'form.'.$formname});
 # Create the directory if not present  # Create the directory if not present
Line 1736  sub dump { Line 1743  sub dump {
    }     }
    return %returnhash;     return %returnhash;
 }  }
   
   # --------------------------------------------------------------- dumpcurrent
   sub dumpcurrent {
      my ($namespace,$udomain,$uname)=@_;
      if (!$udomain) { $udomain = $ENV{'user.domain'}; }
      if (!$uname)   { $uname   = $ENV{'user.name'};   }
      my $uhome = &homeserver($uname,$udomain);
      my $rep=reply("dumpcurrent:$udomain:$uname:$namespace",$uhome);
      &logthis("error = ".$rep) if ($rep =~ /^(error|no_such_host)/);
      return if ($rep =~ /^(error:|no_such_host)/);
      my @pairs=split(/\&/,$rep);
      my %returnhash=();
      foreach (@pairs) {
         my ($key,$value)=split(/=/,$_);
         my ($symb,$param) = split(/:/,$key);
         $returnhash{&unescape($symb)}->{&unescape($param)} = &unescape($value);
      }
      return %returnhash;
   }
   
 # --------------------------------------------------------------- put interface  # --------------------------------------------------------------- put interface
   
Removed from v.1.314  
changed lines
  Added in v.1.318

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