view release on metacpan or  search on metacpan

bin/bgpmon_analytics_db_import  view on Meta::CPAN

        #Check that we've seen X number of messages so far (set above)
        if($total_msgs > MAX_UPDATES_PER_INJECT ){
            close(SQL);
            return -4 if inject_updates();
            log_info("Total updates processed: $total_msgs");
        }   #End of injection
    }   #End of while(1)
}   #End of subroutine

sub inject_updates(){
    #Now inject the updates into the database and apply them to the appropriate tables
    my $pwd = `pwd`;
    chomp $pwd;
    my $db_name = parameter_value('database-name');
    my $db_login = parameter_value('database-username');
    my $log = parameter_value('log_file');

    `psql -c "TRUNCATE pph.update_import" -d $db_name -U $db_login`;
    #This command loads the saved updates into a 'loading table'
    log_info('COPYing updates into database!');