From df073d6e09c0f87fb2e88cc215ace843a5851d4a Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 12 Apr 2007 20:46:20 +0000
Subject: Formatting with Perltidy

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1068 4979c152-3d1c-0410-bac9-87ea11338e46
---
 utils/notify_short/config.pl   |  8 +++-----
 utils/notify_short/listener.pl | 46 ++++++++++++++++++++++++------------------
 2 files changed, 29 insertions(+), 25 deletions(-)

(limited to 'utils/notify_short')

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;
 }
 
-- 
cgit v1.2.3