loncom/auth/lonracc.pm - diff

Return to lonracc.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonracc.pm between versions 1.18 and 1.23

-version 1.18, 2007/02/01 06:20:34
+version 1.23, 2008/11/12 20:01:09
  Line 26
  # http://www.lon-capa.org/
  #
+ =pod
+ =head1 NAME
+ Apache::lonracc - Access Handler for File Transfers
+ =head1 SYNOPSIS
+ Invoked by /etc/httpd/conf/loncapa.conf:
+  <LocationMatch "^/raw.*">
+  PerlAccessHandler Apache::lonracc
+  </LocationMatch>
+ =head1 INTRODUCTION
+ This module enables authentication for file transfers and works
+ against the /res tree.
+ Only lond invokes the /raw namespace through its subscribe function.
+ This is part of the LearningOnline Network with CAPA project
+ described at http://www.lon-capa.org.
+ =head1 HANDLER SUBROUTINE
+ This routine is called by Apache and mod_perl.
+ =over 4
+ =item *
+ Determine requesting host
+ =item *
+ See whether or not the requesting host is subscribed.
+ =item *
+ Respond with status of request and make log entry in case of unallowed
+ access.
+ =back
+ =cut
  package Apache::lonracc;
  use strict;
- Line 37  use IO::Socket;
+ Line 84  use IO::Socket;
  sub subscribed {
      my ($filename,$id) = @_;
-     return 0 if (-e "$filename.subscription");
+     return 0 if (!-e "$filename.subscription");
-     my $hostname=$Apache::lonnet::hostname{$id};
+     my $hostname=&Apache::lonnet::hostname($id);
      my (undef,undef,undef,undef,$ip) = gethostbyname($hostname);
      return 0 if (length($ip) != 4);
- Line 58  sub subscribed {
+ Line 105  sub subscribed {
  sub handler {
      my $r = shift;
+     my $filename=$r->filename;
+     if (!-e $filename) {
+ 	return NOT_FOUND;
+     }
      my $reqhost = $r->get_remote_host(REMOTE_NOLOOKUP);
-     my %iphost=&Apache::lonnet::get_iphost();
+     my @hostids= &Apache::lonnet::get_hosts_from_ip($reqhost);
-     my $hostids=$iphost{$reqhost};
+     if (!@hostids && $reqhost ne '127.0.0.1' ) {
-     if (!$hostids && $reqhost ne '127.0.0.1' ) {
  	$r->log_reason("Unable to find a host for ".
  		       $r->get_remote_host(REMOTE_NOLOOKUP));
  	return FORBIDDEN;
- Line 72  sub handler {
+ Line 124  sub handler {
      my $return;
      my @ids;
-     foreach my $id (@{$hostids}) {
+     foreach my $id (@hostids) {
- 	my $filename=$r->filename;
  	my $uri =$r->uri;
  	if (($filename=~/\.meta$/) ||
  	    ($uri=~m|^/raw/uploaded|) ||
- Line 97  sub handler {
+ Line 148  sub handler {
 ;
  __END__
- =head1 NAME
- Apache::lonracc - Access Handler for File Transfers
- =head1 SYNOPSIS
- Invoked by /etc/httpd/conf/loncapa.conf:
-  <LocationMatch "^/raw.*">
-  PerlAccessHandler Apache::lonracc
-  </LocationMatch>
- =head1 INTRODUCTION
- This module enables authentication for file transfers and works
- against the /res tree.
- Only lond invokes the /raw namespace through its subscribe function.
- This is part of the LearningOnline Network with CAPA project
- described at http://www.lon-capa.org.
- =head1 HANDLER SUBROUTINE
- This routine is called by Apache and mod_perl.
- =over 4
- =item *
- Determine requesting host
- =item *
- See whether or not the requesting host is subscribed.
- =item *
- Respond with status of request and make log entry in case of unallowed
- access.
- =back
- =cut

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

Removed from v.1.18
changed lines
	Added in v.1.23