Return to lonracc.pm CVS log

Up to [LON-CAPA] / loncom / auth

Annotation of loncom/auth/lonracc.pm, revision 1.1.1.1

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