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

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

version 1.11, 2002/08/27 13:23:01 version 1.12, 2002/09/07 03:44:14
Line 152  $message Line 152  $message
 ENDVCSCREEN  ENDVCSCREEN
 }  }
   
   ################################################################
   #         Message Forward                                      #
   ################################################################
   
   sub msgforwardchanger {
       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(
                                            'Change Your Message Forwarding');
       $r->print(<<ENDMSG);
   <html>
   $bodytag
   
   <form name="server" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="verify_and_change_msgforward" />
   New Forwarding Address(es) (<tt>user:domain,user:domain,...</tt>):
   <input type="text" size="40" value="$msgforward" name="msgforward" />
   <input type="submit" value="Change" />
   </form>
   </body>
   </html>
   ENDMSG
   }
   
   sub verify_and_change_msgforward {
       my $r = shift;
       my $user       = $ENV{'user.name'};
       my $domain     = $ENV{'user.domain'};
       my $newscreen  = '';
       my $message='';
       foreach (split(/\,/,$ENV{'form.msgforward'})) {
    my ($msuser,$msdomain)=split(/[\@\:]/,$_);
           $msuser=~s/\W//g;
           $msdomain=~s/\W//g;
           if (($msuser) && ($msdomain)) {
       if (&Apache::lonnet::homeserver($msuser,$msdomain) ne 'no_host') {
                  $newscreen.=$msuser.':'.$msdomain.',';
      } else {
                  $message.='No such user: '.$msuser.':'.$msdomain.'<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(
                                            'Change Your Message Forwarding');
       $r->print(<<ENDVCMSG);
   <html>
   $bodytag
   </p>
   $message
   </body></html>
   ENDVCMSG
   }
   
 ######################################################  ######################################################
 #            password handler subroutines            #  #            password handler subroutines            #
 ######################################################  ######################################################
Line 389  sub handler { Line 455  sub handler {
         &screennamechanger($r);          &screennamechanger($r);
     } elsif ($ENV{'form.action'} eq 'verify_and_change_screenname') {      } elsif ($ENV{'form.action'} eq 'verify_and_change_screenname') {
         &verify_and_change_screenname($r);          &verify_and_change_screenname($r);
       } elsif ($ENV{'form.action'} eq 'changemsgforward') {
           &msgforwardchanger($r);
       } elsif ($ENV{'form.action'} eq 'verify_and_change_msgforward') {
           &verify_and_change_msgforward($r);
     } else {      } else {
  $r->print(<<ENDHEADER);   $r->print(<<ENDHEADER);
 <html>  <html>
Line 413  ENDPASSWORDFORM Line 483  ENDPASSWORDFORM
 <input type="submit" value="Change anonymous discussion screen name">  <input type="submit" value="Change anonymous discussion screen name">
 </form>  </form>
 ENDSCREENNAMEFORM  ENDSCREENNAMEFORM
       $r->print(<<ENDMSGFORWARDFORM);
   <form name="client" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="changemsgforward">
   <input type="submit" value="Change message forwarding address">
   </form>
   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';
Removed from v.1.11  
changed lines
  Added in v.1.12

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