[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 and 1.116.2.2

version 1.116, 2008/09/15 19:08:44 version 1.116.2.2, 2008/12/31 20:22:47
Line 90  sub get_posted_cgi { Line 90  sub get_posted_cgi {
     if ($lines[$i]=~/^--\Q$contentsep\E/) {      if ($lines[$i]=~/^--\Q$contentsep\E/) {
  if ($name) {   if ($name) {
     chomp($value);      chomp($value);
                       if (ref($fields) eq 'ARRAY') {
                           next if (!grep(/^\Q$name\E$/,@{$fields}));
                       }
     if ($fname) {      if ($fname) {
  $env{"form.$name.filename"}=$fname;                          if ($env{'form.symb'} ne '') {
  $env{"form.$name.mimetype"}=$fmime;                              my $size = (length($value))/(1024.0 * 1024.0);
                               if (&upload_size_allowed($name,$size,$fname) eq 'ok') {
                                   $env{"form.$name.filename"}=$fname;
                                   $env{"form.$name.mimetype"}=$fmime;
                                   &Apache::loncommon::add_to_env("form.$name",$value);
                               }
                           } else {
       $env{"form.$name.filename"}=$fname;
       $env{"form.$name.mimetype"}=$fmime;
                               &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);
     }      }
                     if (ref($fields) eq 'ARRAY') {  
                         next if (!grep(/^\Q$name\E$/,@{$fields}));  
                     }  
     &Apache::loncommon::add_to_env("form.$name",$value);  
  }   }
  if ($i<$#lines) {   if ($i<$#lines) {
     $i++;      $i++;
Line 145  sub get_posted_cgi { Line 155  sub get_posted_cgi {
     $r->headers_in->unset('Content-length');      $r->headers_in->unset('Content-length');
 }  }
   
   #
   # Perform size checks for file uploads to essayresponse items in course context.
   #
   # Add form.HWFILESIZE.$part_$id to %env with file size (MB)
   # If file exceeds maximum allowed size, add form.HWFILETOOBIG.$part_$id to %env.
   #
   
   sub upload_size_allowed {
       my ($name,$size,$fname) = @_;
       if ($name =~ /^HWFILE(\w+)$/) {
           my $ident = $1;
           my $item = 'HWFILESIZE'.$ident;
           my $savesize = sprintf("%.6f",$size);
           &Apache::loncommon::add_to_env("form.$item",$savesize);
           my $maxsize= &Apache::lonnet::EXT("resource.$ident.maxfilesize");
           if (!$maxsize) {
               $maxsize = 10.0; # FIXME This should become a domain configuration.
           }
           if ($size > $maxsize) {
               my $warn = 'HWFILETOOBIG'.$ident;
               &Apache::loncommon::add_to_env("form.$warn",$fname);
               return;
           }
       }
       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
Line 237  sub handler { Line 275  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  
changed lines
  Added in v.1.116.2.2

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