loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.659, 2005/10/04 17:28:08	version 1.660, 2005/10/10 17:57:22
Line 1815 sub courseiddump {	Line 1815 sub courseiddump {
sub dcmaildump {	sub dcmaildump {
my ($dom,$startdate,$enddate,$senders) = @_;	my ($dom,$startdate,$enddate,$senders) = @_;
my %returnhash=();	my %returnhash=();
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 (	foreach (
Line 1824 sub dcmaildump {	Line 1824 sub dcmaildump {
&escape($senders), ,$tryserver))) {	&escape($senders), ,$tryserver))) {
my($key,$value) = split(/\=/,$_);	my($key,$value) = split(/\=/,$_);
if (($key) && ($value)) {	if (($key) && ($value)) {
$returnhash{$tryserver}{$key} = $value;	$returnhash{$tryserver}{&unescape($key)} = &unescape($value);
}	}
}	}
}	}