Select Code to Download

Select or download this

#init code here, loading modules, settings stricts etc
....
...
}
close(STDERR);
$pid->release();

Select or download this

sub dbconn() {
        my ($cnf,$thread) = @_;
...
}

Select or download this

sub process_thread() {
        my ($db_handler) = @_;
...
        $process_thread_running = 0;
        %grand_hash = (); %db_ids_in_progress = (); %running_threads =
+ ();

Select or download this

sub send_sms_message() {
        my ($acctid,$from,$to,$message,$internal_id,$dlr_track_id,$pro
+cessing) = @_;
...
        return \%response_hash;
}

Select or download this

leaked GLOB(0xd02f88) from /usr/local/lib/perl5/site_perl/5.13.9/x86_6
+4-linux-thread-multi/DBI.pm line 539.
leaked SCALAR(0xd02f70) from /usr/local/lib/perl5/site_perl/5.13.9/x86
+_64-linux-thread-multi/DBI.pm line 539.
...
leaked SCALAR(0x130b158) from /usr/local/lib/perl5/site_perl/5.13.9/x8
+6_64-linux-thread-multi/DBI.pm line 1285.
...
...

Select or download this

        sub CLONE {
                $drh = undef;
                return;
        }

Select or download this

    while ( my ($driver, $drh) = each %DBI::installed_drh) {
        no strict 'refs';
        next if defined &{"DBD::${driver}::CLONE"};
        warn("$driver has no driver CLONE() function so is unsafe thre
+aded\n");
    }