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

Diff for /loncom/auth/loncacc.pm between versions 1.24 and 1.27

version 1.24, 2002/12/10 20:37:21 version 1.27, 2003/05/06 21:45:25
Line 31 Line 31
 # YEAR=2001  # YEAR=2001
 # 01/06,01/11,6/1,9/25,9/28,11/22,12/25,12/26,  # 01/06,01/11,6/1,9/25,9/28,11/22,12/25,12/26,
 # 01/06/01,05/04,05/05,05/09 Gerd Kortemeyer  # 01/06/01,05/04,05/05,05/09 Gerd Kortemeyer
 # 12/21 Scott Harrison  
 # YEAR=2002  # YEAR=2002
 # 1/4 Gerd Kortemeyer  # 1/4 Gerd Kortemeyer
 ###  ###
Line 39 Line 38
 package Apache::loncacc;  package Apache::loncacc;
   
 use strict;  use strict;
 use Apache::Constants qw(:common :http :methods);  use Apache::Constants qw(:common :http :methods REDIRECT);
 use Apache::File;  use Apache::File;
 use CGI::Cookie();  use CGI::Cookie();
 use Fcntl qw(:flock);  use Fcntl qw(:flock);
Line 100  sub handler { Line 99  sub handler {
                 $r->log_reason("Unauthorized $requrl", $r->filename);                   $r->log_reason("Unauthorized $requrl", $r->filename); 
         return HTTP_NOT_ACCEPTABLE;          return HTTP_NOT_ACCEPTABLE;
             }              }
   # Construction space needs Remote to work
               if ($ENV{'environment.remote'} eq 'off') {
           $r->content_type('text/html');
                   $r->header_out(Location => 
                       'http://'.$r->server->server_hostname.
                       '/adm/remote?action=launch&url='.
                       &Apache::lonnet::escape($requrl));
                   return REDIRECT;
               }
   
 # -------------------------------------------------------- Load POST parameters  # -------------------------------------------------------- Load POST parameters
   
   
         my $buffer;          my $buffer;
   
         $r->read($buffer,$r->header_in('Content-length'));          $r->read($buffer,$r->header_in('Content-length'),0);
   
  unless ($buffer=~/^(\-+\w+)\s+Content\-Disposition\:\s*form\-data/si) {   unless ($buffer=~/^(\-+\w+)\s+Content\-Disposition\:\s*form\-data/si) {
             my @pairs=split(/&/,$buffer);              my @pairs=split(/&/,$buffer);
Removed from v.1.24  
changed lines
  Added in v.1.27

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