diff options
Diffstat (limited to 'utils/notify_short')
-rw-r--r-- | utils/notify_short/config.pl | 8 | ||||
-rw-r--r-- | utils/notify_short/listener.pl | 46 |
2 files changed, 29 insertions, 25 deletions
diff --git a/utils/notify_short/config.pl b/utils/notify_short/config.pl index bd37bed1..cddda1e0 100644 --- a/utils/notify_short/config.pl +++ b/utils/notify_short/config.pl @@ -1,13 +1,12 @@ #!/usr/bin/perl -use vars qw($email_to $cc_to $email_from $sendmail $database $db_user - $db_passwd $template_head $template_foot); +use vars qw($email_to $cc_to $email_from $sendmail $database $db_user + $db_passwd $template_head $template_foot); # The address to send the mail to. On UNIX systems, multiple addresses can be # separated by a space. $email_to = 'manager@example'; - # The email address this email is from: $email_from = 'noreply@example'; @@ -28,8 +27,7 @@ $cycle_delay = 60; # The password for the db user: $db_passwd = "mypasswd"; -$template_top = -"From: $email_from +$template_top = "From: $email_from Subject: Parts Short Notice Hi. This is the SL-Short listener. You are receiving this message because diff --git a/utils/notify_short/listener.pl b/utils/notify_short/listener.pl index dae23d0a..05b5afd0 100644 --- a/utils/notify_short/listener.pl +++ b/utils/notify_short/listener.pl @@ -7,40 +7,46 @@ # By Chris Travers, Metatron Technology Consulting # chris@metatrontech.com # -# Released under the GNU GPL v2.0 or later. See included GPL.txt for more +# Released under the GNU GPL v2.0 or later. See included GPL.txt for more # information. require "config.pl"; use DBI; my $dsn = "dbi:Pg:dbname=$database"; -my $dbh = DBI->connect($dsn, $db_user, $db_passwd, - { AutoCommit => 1, - PrintError => 0, - RaiseError => 1, } +my $dbh = DBI->connect( + $dsn, $db_user, + $db_passwd, + { + AutoCommit => 1, + PrintError => 0, + RaiseError => 1, + } ); my $sth; $dbh->do("LISTEN parts_short"); -while (1){ # loop infinitely - if ($dbh->func ('pg_notifies')){ - &on_notify; - } - sleep $cycle_delay; +while (1) { # loop infinitely + if ( $dbh->func('pg_notifies') ) { + &on_notify; + } + sleep $cycle_delay; } + sub on_notify { - open (MAIL, "|-", $sendmail); - $sth = $dbh->prepare(" + open( MAIL, "|-", $sendmail ); + $sth = $dbh->prepare( " SELECT partnumber, description, onhand, rop FROM parts WHERE onhand <= rop - "); - $sth->execute; - print MAIL $template_top; - while (($partnumber, $description, $avail, $rop) = $sth->fetchrow_array){ - write MAIL; - } - print MAIL $template_foot; - close MAIL; + " ); + $sth->execute; + print MAIL $template_top; + while ( ( $partnumber, $description, $avail, $rop ) = $sth->fetchrow_array ) + { + write MAIL; + } + print MAIL $template_foot; + close MAIL; } |