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

Diff for /loncom/auth/lonlogin.pm between versions 1.31 and 1.34

version 1.31, 2003/02/04 16:03:25 version 1.34, 2003/02/18 21:11:17
Line 52  sub handler { Line 52  sub handler {
     &Apache::loncommon::get_unprocessed_cgi      &Apache::loncommon::get_unprocessed_cgi
      ($ENV{'QUERY_STRING'},['interface','username','domain','firsturl']);       ($ENV{'QUERY_STRING'},['interface','username','domain','firsturl']);
   
   # ----------------------------------------------------------- Process Interface
     $ENV{'form.interface'}=~s/\W//g;      $ENV{'form.interface'}=~s/\W//g;
   
       my $textbrowsers=$r->dir_config('lonTextBrowsers');
       my $httpbrowser=$ENV{"HTTP_USER_AGENT"};
       
       foreach (split(/\:/,$textbrowsers)) {
    if ($httpbrowser=~/$_/i) {
       $ENV{'form.interface'}='textual';
           }
       }
   
     my $fullgraph=($ENV{'form.interface'} ne 'textual');      my $fullgraph=($ENV{'form.interface'} ne 'textual');
   
     my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':8080'.      my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':8080'.
Line 186  ENDHEADER Line 196  ENDHEADER
         this.document.server.elements.udom.value          this.document.server.elements.udom.value
        =this.document.client.elements.udom.value;         =this.document.client.elements.udom.value;
   
           this.document.server.elements.imagesuppress.value
          =this.document.client.elements.imagesuppress.value;
   
           this.document.server.elements.embedsuppress.value
          =this.document.client.elements.embedsuppress.value;
   
           this.document.server.elements.appletsuppress.value
          =this.document.client.elements.appletsuppress.value;
   
           this.document.server.elements.fontenhance.value
          =this.document.client.elements.fontenhance.value;
   
           this.document.server.elements.blackwhite.value
          =this.document.client.elements.blackwhite.value;
   
         uextkey=this.document.client.elements.uextkey.value;          uextkey=this.document.client.elements.uextkey.value;
         lextkey=this.document.client.elements.lextkey.value;          lextkey=this.document.client.elements.lextkey.value;
         initkeys();          initkeys();
Line 206  ENDSCRIPT Line 231  ENDSCRIPT
   
     $r->print(<<ENDSERVERFORM);      $r->print(<<ENDSERVERFORM);
   <form name="server" action="$otherserver/adm/authenticate" method="post" target="_top">    <form name="server" action="$otherserver/adm/authenticate" method="post" target="_top">
    <input type=hidden name=logtoken value="$logtoken">     <input type="hidden" name="logtoken" value="$logtoken" />
    <input type=hidden name=serverid value="$lonhost">     <input type="hidden" name="serverid" value="$lonhost" />
    <input type=hidden name=interface value="$ENV{'form.interface'}">     <input type="hidden" name="interface" value="$ENV{'form.interface'}" />
    <input type=hidden name=uname value="">     <input type="hidden" name="uname" value="" />
    <input type=hidden name=upass value="">     <input type="hidden" name="upass" value="" />
    <input type=hidden name=udom value="">     <input type="hidden" name="udom" value="" />
      <input type="hidden" name="imagesuppress"  value="" />
      <input type="hidden" name="appletsuppress"  value="" />
      <input type="hidden" name="embedsuppress"  value="" />
      <input type="hidden" name="fontenhance"  value="" />
      <input type="hidden" name="blackwhite"  value="" />
   </form>    </form>
 ENDSERVERFORM  ENDSERVERFORM
     if ($fullgraph) { $r->print(<<ENDTOP);      if ($fullgraph) { $r->print(<<ENDTOP);
Line 268  ENDSERVERFORM Line 298  ENDSERVERFORM
    <!-- Row 4 Column 1 -->     <!-- Row 4 Column 1 -->
    <td align="center" valign="middle" bgcolor="$sidebg">     <td align="center" valign="middle" bgcolor="$sidebg">
 ENDTOP  ENDTOP
   } else {
       $r->print('<font color="#FFFFFF"><h1>The Learning<i>Online</i> Network with CAPA</h1><h1>Text-based Interface Login</h1></font>');
   }
       $r->print('<form name="client" onsubmit="return(send())">');
       unless ($fullgraph) {
           $r->print(<<ENDACCESSOPTIONS);
   <table bgcolor="#AAAAAA" cellspacing="3" cellpadding="3">
   <tr><th>Select Accessibility Options</th></tr>
   <tr>
   <td bgcolor="#FFFFFF">
   <input type="checkbox" name="imagesuppress" /> Suppress rendering of images<br />
   <input type="checkbox" name="appletsuppress" /> Suppress Java applets<br />
   <input type="checkbox" name="embedsuppress" /> Suppress rendering of embedded multimedia<br />
   <input type="checkbox" name="fontenhance" /> Increase font size<br />
   <input type="checkbox" name="blackwhite" /> Switch to black and white mode<br /></td></tr></table>
   ENDACCESSOPTIONS
   } else {
       $r->print(<<ENDNOOPT);
   <input type="hidden" name="imagesuppress"  value="" />
   <input type="hidden" name="embedsuppress"  value="" />
   <input type="hidden" name="appletsuppress"  value="" />
   <input type="hidden" name="fontenhance"  value="" />
   <input type="hidden" name="blackwhite"  value="" />
   ENDNOOPT
 }  }
     $r->print(<<ENDLOGIN);      $r->print(<<ENDLOGIN);
     <form name="client" onsubmit="return(send())">  
      <input type="hidden" name="lextkey" value="$lextkey">       <input type="hidden" name="lextkey" value="$lextkey">
      <input type="hidden" name="uextkey" value="$uextkey">       <input type="hidden" name="uextkey" value="$uextkey">
   
Removed from v.1.31  
changed lines
  Added in v.1.34

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