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

Diff for /loncom/interface/lonpreferences.pm between versions 1.12 and 1.30

version 1.12, 2002/09/07 03:44:14 version 1.30, 2003/09/29 16:09:20
Line 50  use Apache::File; Line 50  use Apache::File;
 use Crypt::DES;  use Crypt::DES;
 use DynaLoader; # for Crypt::DES version  use DynaLoader; # for Crypt::DES version
 use Apache::loncommon();  use Apache::loncommon();
   use Apache::lonhtmlcommon();
   
 #  #
 # Write lonnet::passwd to do the call below.  # Write lonnet::passwd to do the call below.
Line 100  sub des_decrypt { Line 101  sub des_decrypt {
 ################################################################  ################################################################
   
 ################################################################  ################################################################
   #         Language Change Subroutines                          #
   ################################################################
   sub languagechanger {
       my $r = shift;
       my $user       = $ENV{'user.name'};
       my $domain     = $ENV{'user.domain'};
       my %userenv = &Apache::lonnet::get
           ('environment',['languages','translator']);
       my $language=$userenv{'languages'};
       my $translator=$userenv{'translator'};
       my $bodytag=&Apache::loncommon::bodytag(
                 'Change Your Language Preferences');
       $r->print(<<ENDLSCREEN);
   <html>
   $bodytag
   
   <form name="server" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="verify_and_change_languages" />
   <br />Preferred language:
   <input type="text" size="5" value="$language" name="language" />
   ENDLSCREEN
       if ($ENV{'user.adv'}) {
    $r->print (<<ENDTRSC);
   <br />Willing to translate for language:
   <input type="text" size="5" value="$translator" name="translator" />
   ENDTRSC
       }
       $r->print('<br /><input type="submit" value="Change" /></form></body></html>');
   }
   
   
   sub verify_and_change_languages {
       my $r = shift;
       my $user       = $ENV{'user.name'};
       my $domain     = $ENV{'user.domain'};
   # Screenname
       my $newlanguage  = $ENV{'form.language'};
       $newlanguage=~s/[^\-\w]//g;
       my $message='';
       if ($newlanguage) {
           &Apache::lonnet::put('environment',{'languages' => $newlanguage});
           &Apache::lonnet::appenv('environment.languages' => $newlanguage);
           $message='Set new preferred languages to '.$newlanguage;
       } else {
           &Apache::lonnet::del('environment',['languages']);
           &Apache::lonnet::delenv('environment\.languages');
           $message='Reset preferred language';
       }
       if ($ENV{'user.adv'}) {
    $message.='<br />';
    my $newtrans  = $ENV{'form.translator'};
    $newtrans=~s/[^\-\w]//g;
    if ($newtrans) {
       &Apache::lonnet::put('environment',{'translator' => $newtrans});
       &Apache::lonnet::appenv('environment.translator' => $newtrans);
       $message.='Set translator to '.$newtrans;
    } else {
       &Apache::lonnet::del('environment',['translator']);
       &Apache::lonnet::delenv('environment\.translator');
       $message.='Reset translator';
    }
       }
   
       my $bodytag=&Apache::loncommon::bodytag(
                       'Change Your Language Preferences');
       $r->print(<<ENDVCSCREEN);
   <html>
   $bodytag
   </p>
   $message
   </body></html>
   ENDVCSCREEN
   }
   
   
   ################################################################
 #         Anonymous Discussion Name Change Subroutines         #  #         Anonymous Discussion Name Change Subroutines         #
 ################################################################  ################################################################
 sub screennamechanger {  sub screennamechanger {
     my $r = shift;      my $r = shift;
     my $user       = $ENV{'user.name'};      my $user       = $ENV{'user.name'};
     my $domain     = $ENV{'user.domain'};      my $domain     = $ENV{'user.domain'};
     my %userenv = &Apache::lonnet::get('environment',['screenname']);      my %userenv = &Apache::lonnet::get
           ('environment',['screenname','nickname']);
     my $screenname=$userenv{'screenname'};      my $screenname=$userenv{'screenname'};
       my $nickname=$userenv{'nickname'};
     my $bodytag=&Apache::loncommon::bodytag(      my $bodytag=&Apache::loncommon::bodytag(
                                          'Change Your Anonymous Screen Name');                'Change Your Nickname and Anonymous Screen Name');
     $r->print(<<ENDSCREEN);      $r->print(<<ENDSCREEN);
 <html>  <html>
 $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_screenname" />  <input type="hidden" name="action" value="verify_and_change_screenname" />
 New screenname:  <br />New screenname (shown if you post anonymously):
 <input type="text" size="20" value="$screenname" name="screenname" />  <input type="text" size="20" value="$screenname" name="screenname" />
   <br />New nickname (shown if you post non-anonymously):
   <input type="text" size="20" value="$nickname" name="nickname" />
 <input type="submit" value="Change" />  <input type="submit" value="Change" />
 </form>  </form>
 </body>  </body>
Line 129  sub verify_and_change_screenname { Line 210  sub verify_and_change_screenname {
     my $r = shift;      my $r = shift;
     my $user       = $ENV{'user.name'};      my $user       = $ENV{'user.name'};
     my $domain     = $ENV{'user.domain'};      my $domain     = $ENV{'user.domain'};
   # Screenname
     my $newscreen  = $ENV{'form.screenname'};      my $newscreen  = $ENV{'form.screenname'};
     $newscreen=~s/\W//g;      $newscreen=~s/[^ \w]//g;
     my $message='';      my $message='';
     if ($newscreen) {      if ($newscreen) {
         &Apache::lonnet::put('environment',{'screenname' => $newscreen});          &Apache::lonnet::put('environment',{'screenname' => $newscreen});
Line 141  sub verify_and_change_screenname { Line 223  sub verify_and_change_screenname {
         &Apache::lonnet::delenv('environment\.screenname');          &Apache::lonnet::delenv('environment\.screenname');
         $message='Reset screenname';          $message='Reset screenname';
     }      }
   # Nickname
       $message.='<br />';
       $newscreen  = $ENV{'form.nickname'};
       $newscreen=~s/[^ \w]//g;
       if ($newscreen) {
           &Apache::lonnet::put('environment',{'nickname' => $newscreen});
           &Apache::lonnet::appenv('environment.nickname' => $newscreen);
           $message.='Set new nickname to '.$newscreen;
       } else {
           &Apache::lonnet::del('environment',['nickname']);
           &Apache::lonnet::delenv('environment\.nickname');
           $message.='Reset nickname';
       }
   
     my $bodytag=&Apache::loncommon::bodytag(      my $bodytag=&Apache::loncommon::bodytag(
                                          'Change Your Anonymous Screen Name');                      'Change Your Nickname and Anonymous Screen Name');
     $r->print(<<ENDVCSCREEN);      $r->print(<<ENDVCSCREEN);
 <html>  <html>
 $bodytag  $bodytag
Line 160  sub msgforwardchanger { Line 256  sub msgforwardchanger {
     my $r = shift;      my $r = shift;
     my $user       = $ENV{'user.name'};      my $user       = $ENV{'user.name'};
     my $domain     = $ENV{'user.domain'};      my $domain     = $ENV{'user.domain'};
     my %userenv = &Apache::lonnet::get('environment',['msgforward']);      my %userenv = &Apache::lonnet::get('environment',['msgforward','notification','critnotification']);
     my $msgforward=$userenv{'msgforward'};      my $msgforward=$userenv{'msgforward'};
       my $notification=$userenv{'notification'};
       my $critnotification=$userenv{'critnotification'};
     my $bodytag=&Apache::loncommon::bodytag(      my $bodytag=&Apache::loncommon::bodytag(
                                          'Change Your Message Forwarding');                      'Change Your Message Forwarding and Notification');
       my $forwardingHelp = Apache::loncommon::help_open_topic("Prefs_Forwarding",
       "What are forwarding ".
       "and notification ".
       "addresses");
       my $criticalMessageHelp = Apache::loncommon::help_open_topic("Course_Critical_Message",
    "What are critical messages");
   
     $r->print(<<ENDMSG);      $r->print(<<ENDMSG);
 <html>  <html>
 $bodytag  $bodytag
   $forwardingHelp <br />
 <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_msgforward" />
 New Forwarding Address(es) (<tt>user:domain,user:domain,...</tt>):  New Forwarding Address(es) (<tt>user:domain,user:domain,...</tt>):
 <input type="text" size="40" value="$msgforward" name="msgforward" />  <input type="text" size="40" value="$msgforward" name="msgforward" /><hr />
   New Message Notification Email Address(es) (<tt>joe\@doe.com,jane\@doe.edu,...</tt>):
   <input type="text" size="40" value="$notification" name="notification" /><hr />
   New Critical Message Notification Email Address(es) (<tt>joe\@doe.com,jane\@doe.edu,...</tt>):
   <input type="text" size="40" value="$critnotification" name="critnotification" />$criticalMessageHelp<hr />
 <input type="submit" value="Change" />  <input type="submit" value="Change" />
 </form>  </form>
 </body>  </body>
Line 201  sub verify_and_change_msgforward { Line 310  sub verify_and_change_msgforward {
     if ($newscreen) {      if ($newscreen) {
         &Apache::lonnet::put('environment',{'msgforward' => $newscreen});          &Apache::lonnet::put('environment',{'msgforward' => $newscreen});
         &Apache::lonnet::appenv('environment.msgforward' => $newscreen);          &Apache::lonnet::appenv('environment.msgforward' => $newscreen);
         $message.='Set new message forwarding to '.$newscreen;          $message.='Set new message forwarding to '.$newscreen.'<br />';
     } else {      } else {
         &Apache::lonnet::del('environment',['msgforward']);          &Apache::lonnet::del('environment',['msgforward']);
         &Apache::lonnet::delenv('environment\.msgforward');          &Apache::lonnet::delenv('environment\.msgforward');
         $message.='Reset message forwarding';          $message.='Reset message forwarding<br />';
       }
       my $notification=$ENV{'form.notification'};
       $notification=~s/\s//gs;
       if ($notification) {
           &Apache::lonnet::put('environment',{'notification' => $notification});
           &Apache::lonnet::appenv('environment.notification' => $notification);
           $message.='Set message notification address to '.$notification.'<br />';
       } else {
           &Apache::lonnet::del('environment',['notification']);
           &Apache::lonnet::delenv('environment\.notification');
           $message.='Reset message notification<br />';
       }
       my $critnotification=$ENV{'form.critnotification'};
       $critnotification=~s/\s//gs;
       if ($critnotification) {
           &Apache::lonnet::put('environment',{'critnotification' => $critnotification});
           &Apache::lonnet::appenv('environment.critnotification' => $critnotification);
           $message.='Set critical message notification address to '.$critnotification;
       } else {
           &Apache::lonnet::del('environment',['critnotification']);
           &Apache::lonnet::delenv('environment\.critnotification');
           $message.='Reset critical message notification<br />';
     }      }
     my $bodytag=&Apache::loncommon::bodytag(      my $bodytag=&Apache::loncommon::bodytag(
                                          'Change Your Message Forwarding');                             'Change Your Message Forwarding and Notifications');
     $r->print(<<ENDVCMSG);      $r->print(<<ENDVCMSG);
 <html>  <html>
 $bodytag  $bodytag
Line 218  $message Line 349  $message
 ENDVCMSG  ENDVCMSG
 }  }
   
   ################################################################
   #         Colors                                               #
   ################################################################
   
   sub colorschanger {
       my $r = shift;
       my $bodytag=&Apache::loncommon::bodytag(
                       'Change Color Scheme for Current Role Type','',
                       'onUnload="pclose();"');
   # 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 (sort(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="10" value="'.$curcol.
   '" /></td><td><a href="javascript:pjump('."'color_custom','".$colortypes{$item}.
   "','".$curcol."','"
       .$item."','parmform.pres','psub'".');">Select</a></td></tr>';
       }
       my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
       $r->print(<<ENDCOL);
   <html>
   <script>
   
       function pclose() {
           parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
                    "height=350,width=350,scrollbars=no,menubar=no");
           parmwin.close();
       }
   
       $pjump_def
   
       function psub() {
           pclose();
           if (document.parmform.pres_marker.value!='') {
               if (document.parmform.pres_type.value!='') {
                   eval('document.server.'+
                        document.parmform.pres_marker.value+
        '.value=document.parmform.pres_value.value;');
       }
           } else {
               document.parmform.pres_value.value='';
               document.parmform.pres_marker.value='';
           }
       }
   
   
   </script>
   $bodytag
   <form name="parmform">
   <input type="hidden" name="pres_marker" />
   <input type="hidden" name="pres_type" />
   <input type="hidden" name="pres_value" />
   </form>
   <form name="server" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="verify_and_change_colors" />
   <table border="2">
   $chtable
   </table>
   <input type="submit" value="Change Custom Colors" />
   <input type="submit" name="resetall" value="Reset All Colors to Default" />
   </form>
   </body>
   </html>
   ENDCOL
   }
   
   sub verify_and_change_colors {
       my $r = shift;
   # 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 $message='';
       foreach my $item (keys %colortypes) {
           my $color=$ENV{'form.'.$item};
           my $entry='color.'.$function.'.'.$item;
    if (($color=~/^\#[0-9A-Fa-f]{6}$/) && (!$ENV{'form.resetall'})) {
       &Apache::lonnet::put('environment',{$entry => $color});
       &Apache::lonnet::appenv('environment.'.$entry => $color);
       $message.='Set '.$colortypes{$item}.' to '.$color.'<br />';
    } else {
       &Apache::lonnet::del('environment',[$entry]);
       &Apache::lonnet::delenv('environment\.'.$entry);
       $message.='Reset '.$colortypes{$item}.'<br />';
    }
       }
       my $bodytag=&Apache::loncommon::bodytag(
                              'Change Color Scheme for Current Role Type');
       $r->print(<<ENDVCCOL);
   <html>
   $bodytag
   </p>
   $message
   <form name="client" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="changecolors" />
   <input type="submit" value="Revise color scheme again" />
   </form>
   </body></html>
   ENDVCCOL
   }
   
 ######################################################  ######################################################
 #            password handler subroutines            #  #            password handler subroutines            #
 ######################################################  ######################################################
Line 375  ENDERROR Line 645  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 441  sub handler { Line 711  sub handler {
     my $r = shift;      my $r = shift;
     my $user = $ENV{'user.name'};      my $user = $ENV{'user.name'};
     my $domain = $ENV{'user.domain'};      my $domain = $ENV{'user.domain'};
     $r->content_type('text/html');      &Apache::loncommn::content_type($r,'text/html');
     # Some pages contain DES keys and should not be cached.      # Some pages contain DES keys and should not be cached.
     &Apache::loncommon::no_cache($r);      &Apache::loncommon::no_cache($r);
     $r->send_http_header;      $r->send_http_header;
Line 459  sub handler { Line 729  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 'changelanguages') {
           &languagechanger($r);
       } elsif ($ENV{'form.action'} eq 'verify_and_change_languages') {
           &verify_and_change_languages($r);
       } elsif ($ENV{'form.action'} eq 'debugtoggle') {
    if (($ENV{'user.name'} eq 'albertel' ) ||
               ($ENV{'user.name'} eq 'kortemey' ) ||
               ($ENV{'user.name'} eq 'korte')) {
       if ($ENV{'user.debug'}) {
    &Apache::lonnet::delenv('user\.debug');
       } else {
    &Apache::lonnet::appenv('user.debug' => 1);
       }
    }
     } else {      } else {
  $r->print(<<ENDHEADER);   $r->print(<<ENDHEADER);
 <html>  <html>
Line 472  ENDHEADER Line 760  ENDHEADER
  if ($currentauth =~ /^(unix|internal):/) {   if ($currentauth =~ /^(unix|internal):/) {
     $r->print(<<ENDPASSWORDFORM);      $r->print(<<ENDPASSWORDFORM);
 <form name="client" action="/adm/preferences" method="post">  <form name="client" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="changepass">  <input type="hidden" name="action" value="changepass" />
 <input type="submit" value="Change password">  <input type="submit" value="Change password" />
 </form>  </form>
 ENDPASSWORDFORM  ENDPASSWORDFORM
           }
 # Change screen name  # Change screen name
     $r->print(<<ENDSCREENNAMEFORM);      $r->print(<<ENDSCREENNAMEFORM);
 <form name="client" action="/adm/preferences" method="post">  <form name="client" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="changescreenname">  <input type="hidden" name="action" value="changescreenname" />
 <input type="submit" value="Change anonymous discussion screen name">  <input type="submit" 
   value="Change nickname and anonymous discussion screen name" />
 </form>  </form>
 ENDSCREENNAMEFORM  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
             my $aboutmeaction=   my $aboutmeaction=
         '/adm/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/aboutme';      '/adm/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/aboutme';
     $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
             # Other preference setting code should be added here      $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
   
       $r->print(<<ENDLANGUAGES);
   <form name="client" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="changelanguages" />
   <input type="submit" value="Change language preferences" />
   </form>
   ENDLANGUAGES
   
    if (($ENV{'user.name'} eq 'albertel' ) ||
               ($ENV{'user.name'} eq 'kortemey' ) ||
               ($ENV{'user.name'} eq 'korte')) {
       $r->print(<<ENDDEBUG);
   <form name="client" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="debugtoggle" />
   <input type="submit" value="Toggle Debug" />
   Current Debug status is -$ENV{'user.debug'}-.
   </form>
   ENDDEBUG
  }   }
    # Other preference setting code should be added here
     }      }
     $r->print(<<ENDFOOTER);      $r->print(<<ENDFOOTER);
 </body>  </body>
 </html>  </html>
 ENDFOOTER  ENDFOOTER
     return OK;      return OK;
 }   }
   
 1;  1;
 __END__  __END__
Removed from v.1.12  
changed lines
  Added in v.1.30

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