loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

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