Select Code to Download

sub write_log {
        my $my_func_id = "write_log";
        print "$my_func_id EVENT_LEVEL: $log{'event_level'}\n" if ($de
+bug eq "1");
...
        $sth0->execute();
        $sth0->finish();
}

write_log (%log = (
   event_level => 'warning',
...
   message => "NOTIFY(site or db_user) - @site_entry  EXISTS,ABORTING"
+,
)
);

my $rv = $sth->execute();
if (!$rv) {
...
        )
    );