[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.2 and 1.118

version 1.116.2.2, 2008/12/31 20:22:47 version 1.118, 2008/11/16 02:46:19
Line 93  sub get_posted_cgi { Line 93  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 102  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 161  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 181  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 275  sub handler { Line 274  sub handler {
         return OK;          return OK;
     }      }
   
     if ($requrl =~ m{^/res/adm/pages/[^/]+\.(gif|png)$}) {      
         return OK;  
     }  
    
     my $handle = &Apache::lonnet::check_for_valid_session($r);      my $handle = &Apache::lonnet::check_for_valid_session($r);
   
     my $result = &sso_login($r,$handle);      my $result = &sso_login($r,$handle);
Removed from v.1.116.2.2  
changed lines
  Added in v.1.118

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