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

Diff for /loncom/interface/lonpreferences.pm between versions 1.16 and 1.19

version 1.16, 2002/10/16 19:36:25 version 1.19, 2003/04/19 01:34:22
Line 148  sub verify_and_change_screenname { Line 148  sub verify_and_change_screenname {
     }      }
 # Nickname  # Nickname
     $message.='<br />';      $message.='<br />';
     my $newscreen  = $ENV{'form.nickname'};      $newscreen  = $ENV{'form.nickname'};
     $newscreen=~s/[^ \w]//g;      $newscreen=~s/[^ \w]//g;
     if ($newscreen) {      if ($newscreen) {
         &Apache::lonnet::put('environment',{'nickname' => $newscreen});          &Apache::lonnet::put('environment',{'nickname' => $newscreen});
Line 172  ENDVCSCREEN Line 172  ENDVCSCREEN
 }  }
   
 ################################################################  ################################################################
 #         Message Forward                                      #  #         Colors                                               #
 ################################################################  ################################################################
   
 sub msgforwardchanger {  sub colorschanger {
     my $r = shift;      my $r = shift;
     my $user       = $ENV{'user.name'};  
     my $domain     = $ENV{'user.domain'};  
     my %userenv = &Apache::lonnet::get('environment',['msgforward']);  
     my $msgforward=$userenv{'msgforward'};  
     my $bodytag=&Apache::loncommon::bodytag(      my $bodytag=&Apache::loncommon::bodytag(
                                          'Change Your Message Forwarding');                      'Change Color Scheme for Current Role Type');
     $r->print(<<ENDMSG);  # figure out colors
       my $function='student';
       if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) {
    $function='coordinator';
       }
       if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) {
    $function='admin';
       }
       if (($ENV{'request.role'}=~/^(au|ca)/) ||
    ($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) {
    $function='author';
       }
       my $domain=&Apache::loncommon::determinedomain();
       my %colortypes=('pgbg'  => 'Page Background',
                       'tabbg' => 'Header Background',
                       'sidebg'=> 'Header Border',
                       'font'  => 'Font',
                       'link'  => 'Un-Visited Link',
                       'vlink' => 'Visited Link',
                       'alink' => 'Active Link');
       my $chtable='';
       foreach my $item (keys %colortypes) {
          my $curcol=&Apache::loncommon::designparm($function.'.'.$item,$domain);
          $chtable.='<tr><td>'.$colortypes{$item}.'</td><td bgcolor="'.$curcol.
           '">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td><td><input name="'.$item.
           '" size="8" value="'.$curcol.
   '" /></td><td><a href="javascript:pjump('."'color','".$colortypes{$item}.
   "','".$curcol."','"
       .$item."','".$item."','psub'".');">Select</a></td></tr>';
       }
       $r->print(<<ENDCOL);
 <html>  <html>
   <script>
   
       function pclose() {
           parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
                    "height=350,width=350,scrollbars=no,menubar=no");
           parmwin.close();
       }
   
       function pjump(type,dis,value,marker,ret,call) {
           parmwin=window.open("/adm/rat/parameter.html?type="+escape(type)
                    +"&value="+escape(value)+"&marker="+escape(marker)
                    +"&return="+escape(ret)
                    +"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms",
                    "height=350,width=350,scrollbars=no,menubar=no");
   
       }
   
       function psub() {
           pclose();
           if (document.parmform.pres_marker.value!='') {
               document.parmform.action+='#'+document.parmform.pres_marker.value;
               var typedef=new Array();
               typedef=document.parmform.pres_type.value.split('_');
              if (document.parmform.pres_type.value!='') {
               if (typedef[0]=='date') {
                   eval('document.parmform.recent_'+
                        document.parmform.pres_type.value+
        '.value=document.parmform.pres_value.value;');
               } else {
                   eval('document.parmform.recent_'+typedef[0]+
        '.value=document.parmform.pres_value.value;');
               }
      }
               document.parmform.submit();
           } else {
               document.parmform.pres_value.value='';
               document.parmform.pres_marker.value='';
           }
       }
   
   
   </script>
 $bodytag  $bodytag
   
 <form name="server" action="/adm/preferences" method="post">  <form name="server" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="verify_and_change_msgforward" />  <input type="hidden" name="action" value="verify_and_change_colors" />
 New Forwarding Address(es) (<tt>user:domain,user:domain,...</tt>):  <table border="2">
 <input type="text" size="40" value="$msgforward" name="msgforward" />  $chtable
   </table>
 <input type="submit" value="Change" />  <input type="submit" value="Change" />
 </form>  </form>
 </body>  </body>
 </html>  </html>
 ENDMSG  ENDCOL
 }  }
   
 sub verify_and_change_msgforward {  sub verify_and_change_colors {
     my $r = shift;      my $r = shift;
     my $user       = $ENV{'user.name'};  # figure out colors
     my $domain     = $ENV{'user.domain'};      my $function='student';
     my $newscreen  = '';      if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) {
    $function='coordinator';
       }
       if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) {
    $function='admin';
       }
       if (($ENV{'request.role'}=~/^(au|ca)/) ||
    ($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) {
    $function='author';
       }
       my $domain=&Apache::loncommon::determinedomain();
       my %colortypes=('pgbg'  => 'Page Background',
                       'tabbg' => 'Header Background',
                       'sidebg'=> 'Header Border',
                       'font'  => 'Font',
                       'link'  => 'Un-Visited Link',
                       'vlink' => 'Visited Link',
                       'alink' => 'Active Link');
   
     my $message='';      my $message='';
     foreach (split(/\,/,$ENV{'form.msgforward'})) {  #    my $newscreen='';
  my ($msuser,$msdomain)=split(/[\@\:]/,$_);  #    $newscreen=~s/\,$//;
         $msuser=~s/\W//g;  #    if ($newscreen) {
         $msdomain=~s/\W//g;  #        &Apache::lonnet::put('environment',{'msgforward' => $newscreen});
         if (($msuser) && ($msdomain)) {  #        &Apache::lonnet::appenv('environment.msgforward' => $newscreen);
     if (&Apache::lonnet::homeserver($msuser,$msdomain) ne 'no_host') {  #        $message.='Set new message forwarding to '.$newscreen.'<br />';
                $newscreen.=$msuser.':'.$msdomain.',';  #    } else {
    } else {  #        &Apache::lonnet::del('environment',['msgforward']);
                $message.='No such user: '.$msuser.':'.$msdomain.'<br>';  #        &Apache::lonnet::delenv('environment\.msgforward');
            }  #        $message.='Reset message forwarding<br />';
         }  #    }
     }  
     $newscreen=~s/\,$//;  
     if ($newscreen) {  
         &Apache::lonnet::put('environment',{'msgforward' => $newscreen});  
         &Apache::lonnet::appenv('environment.msgforward' => $newscreen);  
         $message.='Set new message forwarding to '.$newscreen;  
     } else {  
         &Apache::lonnet::del('environment',['msgforward']);  
         &Apache::lonnet::delenv('environment\.msgforward');  
         $message.='Reset message forwarding';  
     }  
     my $bodytag=&Apache::loncommon::bodytag(      my $bodytag=&Apache::loncommon::bodytag(
                                          'Change Your Message Forwarding');                             'Change Color Scheme for Current Role Type');
     $r->print(<<ENDVCMSG);      $r->print(<<ENDVCCOL);
 <html>  <html>
 $bodytag  $bodytag
 </p>  </p>
 $message  $message
 </body></html>  </body></html>
 ENDVCMSG  ENDVCCOL
 }  }
   
 ######################################################  ######################################################
Line 394  ENDERROR Line 471  ENDERROR
     }      }
     my ($ckey,$n1key,$n2key)=split(/&/,$tmpinfo);      my ($ckey,$n1key,$n2key)=split(/&/,$tmpinfo);
     #       # 
     my $currentpass = &des_decrypt($ckey ,$currentpass);      $currentpass = &des_decrypt($ckey ,$currentpass);
     my $newpass1    = &des_decrypt($n1key,$newpass1);      $newpass1    = &des_decrypt($n1key,$newpass1);
     my $newpass2    = &des_decrypt($n2key,$newpass2);      $newpass2    = &des_decrypt($n2key,$newpass2);
     #       # 
     if ($newpass1 ne $newpass2) {      if ($newpass1 ne $newpass2) {
  &passwordchanger($r,   &passwordchanger($r,
Line 478  sub handler { Line 555  sub handler {
         &msgforwardchanger($r);          &msgforwardchanger($r);
     } elsif ($ENV{'form.action'} eq 'verify_and_change_msgforward') {      } elsif ($ENV{'form.action'} eq 'verify_and_change_msgforward') {
         &verify_and_change_msgforward($r);          &verify_and_change_msgforward($r);
       } elsif ($ENV{'form.action'} eq 'changecolors') {
           &colorschanger($r);
       } elsif ($ENV{'form.action'} eq 'verify_and_change_colors') {
           &verify_and_change_colors($r);
     } elsif ($ENV{'form.action'} eq 'debugtoggle') {      } elsif ($ENV{'form.action'} eq 'debugtoggle') {
  if ($ENV{'user.name'} eq 'albertel' ) {   if ($ENV{'user.name'} eq 'albertel' ) {
     if ($ENV{'user.debug'}) {      if ($ENV{'user.debug'}) {
Line 515  ENDSCREENNAMEFORM Line 596  ENDSCREENNAMEFORM
     $r->print(<<ENDMSGFORWARDFORM);      $r->print(<<ENDMSGFORWARDFORM);
 <form name="client" action="/adm/preferences" method="post">  <form name="client" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="changemsgforward" />  <input type="hidden" name="action" value="changemsgforward" />
 <input type="submit" value="Change message forwarding address" />  <input type="submit" value="Change message forwarding and notification addresses" />
 </form>  </form>
 ENDMSGFORWARDFORM  ENDMSGFORWARDFORM
 # The "about me" page  # The "about me" page
Line 524  ENDMSGFORWARDFORM Line 605  ENDMSGFORWARDFORM
  $r->print(<<ENDABOUTME);   $r->print(<<ENDABOUTME);
 <form name="client" action="$aboutmeaction" method="post">  <form name="client" action="$aboutmeaction" method="post">
 <input type="hidden" name="action" value="changescreenname" />  <input type="hidden" name="action" value="changescreenname" />
 <input type="submit" value="Edit the 'About Me' Personal Information Screen" />  <input type="submit" value="Edit the 'About Me' personal information screen" />
 </form>  </form>
 ENDABOUTME  ENDABOUTME
       $r->print(<<ENDCOLORFORM);
   <form name="client" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="changecolors" />
   <input type="submit" value="Change color scheme" />
   </form>
   ENDCOLORFORM
   
  if ($ENV{'user.name'} eq 'albertel') {   if ($ENV{'user.name'} eq 'albertel') {
     $r->print(<<ENDDEBUG);      $r->print(<<ENDDEBUG);
 <form name="client" action="/adm/preferences" method="post">  <form name="client" action="/adm/preferences" method="post">
Removed from v.1.16  
changed lines
  Added in v.1.19

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