version 1.22, 2006/03/30 05:29:01
|
version 1.24, 2006/04/08 07:10:10
|
Line 48
|
Line 48
|
# parameter is not set $logthis is set to ¬hing, which does what you |
# parameter is not set $logthis is set to ¬hing, which does what you |
# would expect. |
# would expect. |
# |
# |
BEGIN { |
|
eval "use Apache2::compat();"; |
|
}; |
|
use strict; |
use strict; |
use DBI; |
use DBI; |
use lib '/home/httpd/lib/perl/Apache'; |
|
use lib '/home/httpd/lib/perl/'; |
use lib '/home/httpd/lib/perl/'; |
use LONCAPA::Configuration(); |
use LONCAPA::Configuration(); |
use Apache::lonmysql(); |
use Apache::lonmysql(); |
use lonmysql(); |
|
use Time::HiRes(); |
use Time::HiRes(); |
use Getopt::Long(); |
use Getopt::Long(); |
use IO::File; |
use IO::File; |
Line 310 if (!&Apache::lonmysql::verify_sql_conne
|
Line 305 if (!&Apache::lonmysql::verify_sql_conne
|
} |
} |
$logthis->('SQL connection is up'); |
$logthis->('SQL connection is up'); |
|
|
|
&update_process_name($course.'@'.$domain." loading existing data"); |
my $missing_table = &check_for_missing_tables(values(%tables)); |
my $missing_table = &check_for_missing_tables(values(%tables)); |
if (-s $gz_sql_filename && ! -s $gz_xml_filename) { |
if (-s $gz_sql_filename && ! -s $gz_xml_filename) { |
my $backup_modification_time = (stat($gz_sql_filename))[9]; |
my $backup_modification_time = (stat($gz_sql_filename))[9]; |
Line 379 my $error_fh = IO::File->new(">>$error_f
|
Line 375 my $error_fh = IO::File->new(">>$error_f
|
## |
## |
## Parse the course log |
## Parse the course log |
$logthis->('processing course log'); |
$logthis->('processing course log'); |
|
&update_process_name($course.'@'.$domain." processing new data"); |
if (-s $newfilename) { |
if (-s $newfilename) { |
my $result = &process_courselog($newfilename,$error_fh,\%tables); |
my $result = &process_courselog($newfilename,$error_fh,\%tables); |
|
&update_process_name($course.'@'.$domain." backing up new data"); |
if (! defined($result)) { |
if (! defined($result)) { |
# Something went wrong along the way... |
# Something went wrong along the way... |
$logthis->('process_courselog returned undef'); |
$logthis->('process_courselog returned undef'); |
Line 945 sub xml_store_id_table {
|
Line 943 sub xml_store_id_table {
|
####################################################################### |
####################################################################### |
{ |
{ |
my @rows; |
my @rows; |
my $max_row_count = 100; |
|
|
|
sub store_entry { |
sub store_entry { |
|
my $max_row_count = 100; |
if (! @_) { |
if (! @_) { |
undef(@rows); |
undef(@rows); |
return ''; |
return ''; |