[LON-CAPA-cvs] cvs: loncom /metadata_database parse_activity_log.pl

[albertel]

albertel		Sat Apr  8 03:10:11 2006 EDT

  Modified files:              
    /loncom/metadata_database	parse_activity_log.pl 
  Log:
  -removing non-functional use Apache2::compat
  - removing extraneous uses
  
  
Index: loncom/metadata_database/parse_activity_log.pl
diff -u loncom/metadata_database/parse_activity_log.pl:1.23 loncom/metadata_database/parse_activity_log.pl:1.24
--- loncom/metadata_database/parse_activity_log.pl:1.23	Thu Mar 30 01:57:50 2006
+++ loncom/metadata_database/parse_activity_log.pl	Sat Apr  8 03:10:10 2006
@@ -2,7 +2,7 @@
 #
 # The LearningOnline Network
 #
-# $Id: parse_activity_log.pl,v 1.23 2006/03/30 06:57:50 albertel Exp $
+# $Id: parse_activity_log.pl,v 1.24 2006/04/08 07:10:10 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -48,16 +48,11 @@
 # parameter is not set $logthis is set to &nothing, which does what you
 # would expect.
 #
-BEGIN {
-    eval "use Apache2::compat();";
-};
 use strict;
 use DBI;
-use lib '/home/httpd/lib/perl/Apache';
 use lib '/home/httpd/lib/perl/';
 use LONCAPA::Configuration();
 use Apache::lonmysql();
-use lonmysql();
 use Time::HiRes();
 use Getopt::Long();
 use IO::File;
@@ -310,6 +305,7 @@
 }
 $logthis->('SQL connection is up');
 
+&update_process_name($course.'@'.$domain." loading existing data");
 my $missing_table = &check_for_missing_tables(values(%tables));
 if (-s $gz_sql_filename && ! -s $gz_xml_filename) {
     my $backup_modification_time = (stat($gz_sql_filename))[9];
@@ -379,8 +375,10 @@
 ##
 ## Parse the course log
 $logthis->('processing course log');
+&update_process_name($course.'@'.$domain." processing new data");
 if (-s $newfilename) {
     my $result = &process_courselog($newfilename,$error_fh,\%tables);
+    &update_process_name($course.'@'.$domain." backing up new data");
     if (! defined($result)) {
         # Something went wrong along the way...
         $logthis->('process_courselog returned undef');