loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.657, 2005/09/20 07:56:23
+version 1.658, 2005/10/04 16:26:15
  Line 1811  sub courseiddump {
      return %returnhash;
  }
- #
+ # ---------------------------------------------------------- DC e-mail
+ sub dcmaildump {
+     my ($dom,$startdate,$enddate,$senders) = @_;
+     my %returnhash=();
+     foreach my $tryserver (keys %libserv) {
+         if ($hostdom{$tryserver} eq $dom) {
+             %{$returnhash{$tryserver}}=();
+             foreach (
+                 split(/\&/,&reply('dcmaildump:'.$dom.':'.
+                    &escape($startdate).':'.&escape($enddate).':'.
+                    &escape($senders), ,$tryserver))) {
+                 my($key,$value) = split(/\=/,$_);
+                 if (($key) && ($value)) {
+                     $returnhash{$tryserver}{$key} = $value;
+                 }
+             }
+         }
+     }
+     return %returnhash;
+ }
  # ----------------------------------------------------------- Check out an item
  sub get_first_access {