[BACK]Return to searchcat.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / metadata_database

Diff for /loncom/metadata_database/searchcat.pl between versions 1.36 and 1.37

version 1.36, 2003/07/30 16:49:27 version 1.37, 2003/08/08 12:38:00
Line 316  foreach my $user (@homeusers) { Line 316  foreach my $user (@homeusers) {
     # ... not yet implemented      # ... not yet implemented
                   
     # ------------------------------------------- Copy over the new db-files      # ------------------------------------------- Copy over the new db-files
     system('mv '.$prodir.'/nohist_new_resevaldata.db '.      #
            $prodir.'/nohist_resevaldata.db');      # Check the size of nohist_new_resevaldata.db compared to 
       # nohist_resevaldata.db
       my @stat_result = stat($prodir.'/nohist_new_resevaldata.db');
       my $new_size = $stat_result[7];
       @stat_result = stat($prodir.'/nohist_resevaldata.db');
       my $old_size = $stat_result[7];
       if ($new_size/$old_size > 0.15 ) {
           system('mv '.$prodir.'/nohist_new_resevaldata.db '.
                  $prodir.'/nohist_resevaldata.db');
       } else {
           print LOG "Size of '$user' old nohist_reseval: $old_size ".
               "Size of new: $new_size.  Not overwriting.\n";
           my $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
           my $subj="LON: $perlvar{'lonHostID'} searchcat.pl $user reseval ".
               "modification error.";
           system("echo ".
                  "'See /home/httpd/perl/logs/searchcat.txt for information.' ".
                  "| mailto $emailto -s '$subj' > /dev/null");
       }
           
 }  }
 # --------------------------------------------------- Close database connection  # --------------------------------------------------- Close database connection
 $dbh->disconnect;  $dbh->disconnect;
Removed from v.1.36  
changed lines
  Added in v.1.37

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>