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

Diff for /loncom/auth/lonauth.pm between versions 1.48 and 1.54

version 1.48, 2003/04/07 18:24:05 version 1.54, 2003/07/17 15:24:46
Line 107  sub success { Line 107  sub success {
  $FORM{'interface'}=$userenv{'interface'};   $FORM{'interface'}=$userenv{'interface'};
     }      }
     $ENV{'environment.remote'}=$userenv{'remote'};      $ENV{'environment.remote'}=$userenv{'remote'};
   # --------------- Do not trust query string to be put directly into environment
       foreach ('imagesuppress','appletsuppress',
        'embedsuppress','fontenhance','blackwhite',
        'interface','localpath','localres') {
    $FORM{$_}=~s/[\n\r\=]//gs;
       }
 # --------------------------------------------------------- Write first profile  # --------------------------------------------------------- Write first profile
   
     {      {
Line 126  sub success { Line 132  sub success {
  print $idf "browser.mathml=$clientmathml\n";   print $idf "browser.mathml=$clientmathml\n";
  print $idf "browser.unicode=$clientunicode\n";   print $idf "browser.unicode=$clientunicode\n";
  print $idf "browser.os=$clientos\n";   print $idf "browser.os=$clientos\n";
           if ($FORM{'localpath'}) {
              print $idf "browser.localpath=$FORM{'localpath'}\n";
              print $idf "browser.localres=$FORM{'localres'}\n";
           }
  print $idf "request.course.fn=\n";   print $idf "request.course.fn=\n";
  print $idf "request.course.uri=\n";   print $idf "request.course.uri=\n";
  print $idf "request.course.sec=\n";   print $idf "request.course.sec=\n";
Line 232  sub handler { Line 242  sub handler {
     my $r = shift;      my $r = shift;
   
     my $buffer;      my $buffer;
     $r->read($buffer,$r->header_in('Content-length'));      $r->read($buffer,$r->header_in('Content-length'),0);
     my @pairs=split(/&/,$buffer);      my @pairs=split(/&/,$buffer);
     my $pair; my $name; my $value;      my $pair; my $name; my $value;
     undef %FORM;      undef %FORM;
Removed from v.1.48  
changed lines
  Added in v.1.54

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