X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=scripts%2Ftick.pl;h=232dfc6797f7bf63bcb0dc319981fabe6f7a95f2;hb=f85a252b56bf58c0280d5484397ac8b69dcbdc29;hp=bb652a875ab16a0528ad719831cf419dd8601918;hpb=7f3967a69a1b021050933e828d60d22b52589d89;p=ndwebbie.git diff --git a/scripts/tick.pl b/scripts/tick.pl index bb652a8..232dfc6 100755 --- a/scripts/tick.pl +++ b/scripts/tick.pl @@ -7,17 +7,14 @@ use DBD::Pg qw(:pg_types); use LWP::Simple; -our $dbh; -for my $file ("/home/whale/db.pl") -{ - unless (my $return = do $file){ - warn "couldn't parse $file: $@" if $@; - warn "couldn't do $file: $!" unless defined $return; - warn "couldn't run $file" unless $return; - } -} +use FindBin; +use lib "$FindBin::Bin/../lib"; + +use ND::DB; + +our $dbh = ND::DB::DB(); -$dbh->trace("0","/tmp/scanstest"); my $update = $dbh->prepare("UPDATE misc SET value = value::int + 1 WHERE id = 'TICK'"); $update->execute(); +system 'killall','-USR1', 'irssi'; $dbh->disconnect;