Return to lonracc.pm CVS log

Up to [LON-CAPA] / loncom / auth

Now also replicate metadata files, filename.meta

    1: # The LearningOnline Network
    2: # Access Handler for File Transfers
    3: # (lonacc: Cookie Based Access Handler
    4: # 5/21/99,5/22,5/29,5/31,6/15 Gerd Kortemeyer)
    5: # 6/16,6/18,7/3,
    6: # 6/30/00 Gerd Kortemeyer
    7: 
    8: package Apache::lonracc;
    9: 
   10: use strict;
   11: use Apache::Constants qw(:common :remotehost);
   12: use Apache::File();
   13: 
   14: sub handler {
   15:     my $r = shift;
   16:     my $reqhost;
   17:     unless ($reqhost=$r->get_remote_host(REMOTE_DOUBLE_REV)) {
   18:        $r->log_reason("Spoof request");
   19:        return FORBIDDEN;
   20:     }
   21:     my $readline;
   22:     my $lontabdir=$r->dir_config('lonTabDir');
   23:     {
   24:        my $fh;
   25:        unless ($fh=Apache::File->new("$lontabdir/hosts.tab")) {
   26:           $r->log_reason("Could not find host tab file");
   27:           return FORBIDDEN;
   28:        }
   29:        while ($readline=<$fh>) {
   30:           my ($id,$domain,$role,$name,$ip)=split(/:/,$readline);
   31:           if ($name =~ /$reqhost/i) {
   32:               my $filename=$r->filename;
   33:               if ((-e "$filename.$id") || ($filename=~/\.meta$/)) {
   34: 	         return OK;
   35:               } else {
   36:                  $r->log_reason("$id not subscribed", $r->filename);
   37:                  return FORBIDDEN;
   38:               }
   39:           }
   40:        }
   41: 
   42:     }
   43:     $r->log_reason("Invalid request for file transfer from $reqhost", 
   44:                    $r->filename); 
   45:     return FORBIDDEN;
   46: }
   47: 
   48: 1;
   49: __END__
   50: 
   51: 
   52: 
   53: 
   54: 
   55: 
   56: 
   57: