Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.662 and 1.664

version 1.662, 2005/10/11 21:29:38 version 1.664, 2005/10/14 19:08:42
Line 1862  sub dcmaildump { Line 1862  sub dcmaildump {
     foreach my $tryserver (keys(%libserv)) {      foreach my $tryserver (keys(%libserv)) {
         if ($hostdom{$tryserver} eq $dom) {          if ($hostdom{$tryserver} eq $dom) {
             %{$returnhash{$tryserver}}=();              %{$returnhash{$tryserver}}=();
             foreach (      my $cmd='dcmaildump:'.$dom.':'.
                 split(/\&/,&reply('dcmaildump:'.$dom.':'.   &escape($startdate).':'.&escape($enddate).':';
                    &escape($startdate).':'.&escape($enddate).':'.      my @esc_senders=map { &escape($_)} @$senders;
                    &escape($senders), $tryserver))) {      $cmd.=&escape(join('&',@esc_senders));
       foreach (split(/\&/,&reply($cmd,$tryserver))) {
                 my ($key,$value) = split(/\=/,$_);                  my ($key,$value) = split(/\=/,$_);
                 if (($key) && ($value)) {                  if (($key) && ($value)) {
                     $returnhash{$tryserver}{&unescape($key)} = &unescape($value);                      $returnhash{$tryserver}{&unescape($key)} = &unescape($value);
Line 3669  sub assignrole { Line 3670  sub assignrole {
     my $answer=&reply($command,&homeserver($uname,$udom));      my $answer=&reply($command,&homeserver($uname,$udom));
 # log new user role if status is ok  # log new user role if status is ok
     if ($answer eq 'ok') {      if ($answer eq 'ok') {
  &userrolelog($mrole,$uname,$udom,$url,$start,$end);   &userrolelog($role,$uname,$udom,$url,$start,$end);
     }      }
     return $answer;      return $answer;
 }  }

Removed from v.1.662  
changed lines
  Added in v.1.664


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