summaryrefslogtreecommitdiff
path: root/utils/notify_short
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-04-12 20:46:20 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-04-12 20:46:20 +0000
commitdf073d6e09c0f87fb2e88cc215ace843a5851d4a (patch)
tree1c15ce909d3e0353b21bbd909e6720fd485a3a53 /utils/notify_short
parent65458125b8f3814fd6ef4d07b55ab69f62f5a528 (diff)
Formatting with Perltidy
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1068 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'utils/notify_short')
-rw-r--r--utils/notify_short/config.pl8
-rw-r--r--utils/notify_short/listener.pl46
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;
}