scripts/cleardb.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 BEGIN {
   6         unshift @INC, ".";
   7 }
   8 use PciIds::Db;
   9 use DBI;
  10
  11 my $dbh = connectDb();
  12 $dbh->prepare( 'DELETE FROM locations' )->execute();
  13 $dbh->prepare( 'DELETE FROM history' )->execute();
  14 $dbh->commit();
  15 $dbh->disconnect();