summaryrefslogtreecommitdiff
path: root/doc/examples/softwaresite
diff options
context:
space:
mode:
authorjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>2007-04-28 11:40:43 +0000
committerjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>2007-04-28 11:40:43 +0000
commit1d51328d0600c4cbd3704149849eb941dfd3346c (patch)
treef715bbd69c86ee34b25d5674bda2fd581f0fc2f2 /doc/examples/softwaresite
parentb96e891fff03ceeed00373776c8c7f462d3be3a6 (diff)
web commit by http://adam.shand.net/
Diffstat (limited to 'doc/examples/softwaresite')
0 files changed, 0 insertions, 0 deletions
n>
  • if ($dbh->func ('pg_notifies')){
  • &on_notify;
  • }
  • sleep $cycle_delay;
  • }
  • sub on_notify {
  • 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;
  • }