loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.663, 2005/10/12 16:50:37	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);