loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

-version 1.82, 2009/11/26 00:18:09
+version 1.83, 2010/03/24 18:57:49
  Line 564  sub rotate_lonnet_logs {
  sub rotate_other_logs {
      my ($fh) = @_;
-     my $fname="$perlvar{'lonDaemons'}/logs/autoenroll.log";
+     my %logs = (
-     &rotate_logfile($fname,$fh,'Auto Enroll log');
+                   autoenroll          => 'Auto Enroll log',
-     $fname="$perlvar{'lonDaemons'}/logs/autocreate.log";
+                   autocreate          => 'Create Course log',
-     &rotate_logfile($fname,$fh,'Create Course log');
+                   searchcat           => 'Search Cataloguing log',
-     $fname="$perlvar{'lonDaemons'}/logs/searchcat.log";
+                   autoupdate          => 'Auto Update log',
-     &rotate_logfile($fname,$fh,'Search Cataloguing log');
+                   refreshcourseids_db => 'Refresh CourseIDs db log',
+                );
+     foreach my $item (keys(%logs)) {
+         my $fname=$perlvar{'lonDaemons'}.'/logs/'.$item.'.log';
+         &rotate_logfile($fname,$fh,$logs{$item});
+     }
  }
  # ----------------------------------------------------------------- Connections