scripts/send_notifs.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 BEGIN {
   6         unshift @INC, ".";
   7 }
   8 use PciIds::DBQ;
   9 use PciIds::Db;
  10 use PciIds::Notifications;
  11 use PciIds::Xmpp;
  12
  13 my $dbh = connectDb();
  14 my $tables = PciIds::DBQ::new( $dbh );
  15
  16 sendNotifs( $tables );
  17 flushXmpp();
  18 $tables->commit();