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; |
} |
} |