2010-03-30 10:18:35     Script started
2010-03-30 10:18:35     Date being processed: 2010_03_18
2010-03-30 10:18:35     Starting to gather data
2010-03-30 10:18:35     Gathering nightly data
2010-03-30 10:18:35     Reading data from http://some_web_site.com
2010-03-30 10:18:35     Creating an internal hash from the data
2010-03-30 12:32:10     Starting to load data into the database
2010-03-30 12:32:19     Inserting data to database

##</code><code>##

[root@lcld0037 NightlyDB]# perl load_data_to_db.pl 2010_03_18
2010-03-30_10-18-35:    Script started
2010-03-30_10-18-35:    Date being processed: 2010_03_18
2010-03-30_10-18-35:    Gathering nightly data . . .
(287709)(562546)(562546)(562546)(562546)(562546)(275841)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(476059)(233299)(339473)(339473)(649823)(649823)(649823)(649823)(649823)(649823)(649823)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2203347)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)(2095735)....# some random numberkeep on generating
(15867513)2010-03-30_12-32-19:  Inserting data to database
Out of memory!

##</code><code>##

sub _insert_test_run
{
    my ($self, $schema, $test_run_data) = @_;
    
    my $nightly_web_page_test_run_id = $test_run_data->{test_run_id};
    my $test_controller_id =
        $self->_get_test_controller($schema, $test_run_data->{controller});
    my $test_run_configuration = undef;	#TO BE ADDED LATER
    my $start_date = $test_run_data->{start_date};
    my $end_date = $test_run_data->{end_date};
    my $elapsed_minutes = $test_run_data->{elapsed_minutes};
    my $log_link = $test_run_data->{log_link};
	
	my $test_run_rs = undef;
	
	eval
	{
		$test_run_rs = $schema->resultset("TestRun")->create(
			{
				nightly_web_page_test_run_id=> $nightly_web_page_test_run_id,
				test_controller_id          => $test_controller_id,
				test_run_configuration_id   => $test_run_configuration,
				start_date                  => $start_date,
				end_date                    => $end_date,
				elapsed_time                => $elapsed_minutes,
				log_link                    => $log_link,
			}
		) || die "Unable to insert data to table TestRun: $!";
	};
	
	if($@)
	{
		#warn();
		$self->log_writer()->write_error_row("Unable to insert data to table TestRun: $@");
		return undef;
	}
	else
	{
		return $test_run_rs;
	}
}