[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.12 and 1.14

version 1.12, 2000/05/01 20:19:38 version 1.14, 2000/06/05 20:28:17
Line 17 Line 17
 # 11/8,11/16,11/18,11/22,11/23,12/22,  # 11/8,11/16,11/18,11/22,11/23,12/22,
 # 01/06,01/13,02/24,02/28,02/29,  # 01/06,01/13,02/24,02/28,02/29,
 # 03/01,03/02,03/06,03/07,03/13,  # 03/01,03/02,03/06,03/07,03/13,
 # 04/05 Gerd Kortemeyer  # 04/05,05/29,05/31,06/01,06/05 Gerd Kortemeyer
   
 package Apache::lonnet;  package Apache::lonnet;
   
Line 325  sub repcopy { Line 325  sub repcopy {
     }      }
 }  }
   
   # ------------------------------------------------------------------------- Log
   
   sub log {
       my ($dom,$nam,$hom,$what)=@_;
       return reply("log:$dom:$nam:$what",$hom);
   }
   
 # ----------------------------------------------------------------------- Store  # ----------------------------------------------------------------------- Store
   
 sub store {  sub store {
     my %storehash=shift;      my %storehash=shift;
     my $command=;  
     my $namevalue='';      my $namevalue='';
     map {      map {
         $namevalue.=escape($_).'='.escape($storehash{$_}).'&';          $namevalue.=escape($_).'='.escape($storehash{$_}).'&';
Line 351  sub restore { Line 357  sub restore {
  my ($name,$value)=split(/\=/,$_);   my ($name,$value)=split(/\=/,$_);
         $returnhash{&unescape($name)}=&unescape($value);          $returnhash{&unescape($name)}=&unescape($value);
     } split(/\&/,$answer);      } split(/\&/,$answer);
     return $returnhash;      return %returnhash;
 }  }
   
 # -------------------------------------------------------- Get user priviledges  # -------------------------------------------------------- Get user priviledges
Line 497  sub allowed { Line 503  sub allowed {
     my ($priv,$uri)=@_;      my ($priv,$uri)=@_;
     $uri=~s/^\/res//;      $uri=~s/^\/res//;
     $uri=~s/^\///;      $uri=~s/^\///;
       if ($uri=~/^adm\//) {
    return 'F';
       }
     my $thisallowed='';      my $thisallowed='';
     if ($ENV{'user.priv./'}=~/$priv\&([^\:]*)/) {      if ($ENV{'user.priv./'}=~/$priv\&([^\:]*)/) {
        $thisallowed.=$1;         $thisallowed.=$1;
Removed from v.1.12  
changed lines
  Added in v.1.14

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