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

Diff for /loncom/auth/lonacc.pm between versions 1.116.2.1 and 1.120

version 1.116.2.1, 2008/12/10 16:42:51 version 1.120, 2008/11/20 14:37:52
Line 27 Line 27
 #  #
 ###  ###
   
   
 package Apache::lonacc;  package Apache::lonacc;
   
 use strict;  use strict;
Line 93  sub get_posted_cgi { Line 94  sub get_posted_cgi {
                     if (ref($fields) eq 'ARRAY') {                      if (ref($fields) eq 'ARRAY') {
                         next if (!grep(/^\Q$name\E$/,@{$fields}));                          next if (!grep(/^\Q$name\E$/,@{$fields}));
                     }                      }
     if ($fname) {                      if ($fname) {
                         if ($env{'form.symb'} ne '') {                          if ($env{'form.symb'} ne '') {
                             my $size = (length($value))/(1024.0 * 1024.0);                              my $size = (length($value))/(1024.0 * 1024.0);
                             if (&upload_size_allowed($name,$size,$fname) eq 'ok') {                              if (&upload_size_allowed($name,$size,$fname) eq 'ok') {
Line 102  sub get_posted_cgi { Line 103  sub get_posted_cgi {
                                 &Apache::loncommon::add_to_env("form.$name",$value);                                  &Apache::loncommon::add_to_env("form.$name",$value);
                             }                              }
                         } else {                          } else {
     $env{"form.$name.filename"}=$fname;                              $env{"form.$name.filename"}=$fname;
     $env{"form.$name.mimetype"}=$fmime;                              $env{"form.$name.mimetype"}=$fmime;
                             &Apache::loncommon::add_to_env("form.$name",$value);                              &Apache::loncommon::add_to_env("form.$name",$value);
                         }                          }
     } else {                      } else {
  $value=~s/\s+$//s;                          $value=~s/\s+$//s;
                         &Apache::loncommon::add_to_env("form.$name",$value);                          &Apache::loncommon::add_to_env("form.$name",$value);
     }                      }
  }   }
  if ($i<$#lines) {   if ($i<$#lines) {
     $i++;      $i++;
Line 161  sub get_posted_cgi { Line 162  sub get_posted_cgi {
 # Add form.HWFILESIZE.$part_$id to %env with file size (MB)  # Add form.HWFILESIZE.$part_$id to %env with file size (MB)
 # If file exceeds maximum allowed size, add form.HWFILETOOBIG.$part_$id to %env.  # If file exceeds maximum allowed size, add form.HWFILETOOBIG.$part_$id to %env.
 #  #
    
 sub upload_size_allowed {  sub upload_size_allowed {
     my ($name,$size,$fname) = @_;      my ($name,$size,$fname) = @_;
     if ($name =~ /^HWFILE(\w+)$/) {      if ($name =~ /^HWFILE(\w+)$/) {
         my $ident = $1;          my $ident = $1;
         my $item = 'HWFILESIZE'.$ident;          my $item = 'HWFILESIZE'.$ident;
         my $savesize = sprintf("%.6f",$size);          &Apache::loncommon::add_to_env("form.$item",$size);
         &Apache::loncommon::add_to_env("form.$item",$savesize);  
         my $maxsize= &Apache::lonnet::EXT("resource.$ident.maxfilesize");          my $maxsize= &Apache::lonnet::EXT("resource.$ident.maxfilesize");
         if (!$maxsize) {          if (!$maxsize) {
             $maxsize = 10.0; # FIXME This should become a domain configuration.              $maxsize = 100.0;
         }          }
         if ($size > $maxsize) {          if ($size > $maxsize) {
             my $warn = 'HWFILETOOBIG'.$ident;              my $warn = 'HWFILETOOBIG'.$ident;
Line 182  sub upload_size_allowed { Line 182  sub upload_size_allowed {
     return 'ok';      return 'ok';
 }  }
   
   
 # handle the case of the single sign on user, at this point $r->user   # handle the case of the single sign on user, at this point $r->user 
 # will be set and valid now need to find the loncapa user info and possibly  # will be set and valid now need to find the loncapa user info and possibly
 # balance them  # balance them
 # returns OK if it was a SSO and user was handled  # returns OK if it was a SSO and user was handled
 #         undef if not SSO or no means to hanle the user  #         undef if not SSO or no means to hanle the user
   
 sub sso_login {  sub sso_login {
     my ($r,$handle) = @_;      my ($r,$handle) = @_;
   
Line 461  sub handler { Line 461  sub handler {
 1;  1;
 __END__  __END__
   
   
 =head1 NAME  =head1 NAME
   
 Apache::lonacc - Cookie Based Access Handler  Apache::lonacc - Cookie Based Access Handler
Line 521  store attempted access Line 522  store attempted access
   
 =back  =back
   
 =cut  =cut
   
Removed from v.1.116.2.1  
changed lines
  Added in v.1.120

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