add-imp.pl

   1 #!/usr/bin/perl
   2 #
   3 # $Id: add-imp.pl,v 1.2 2003/06/04 20:57:06 noodles Exp $
   4 #
   5
   6 while (<>) {
   7         /(........)$/;
   8         print "Attempting to get $1\n";
   9         $key = `./onak-db2 get $1`;
  10         open (ONAK, "| ./onak -v add");
  11         print ONAK $key;
  12         close ONAK;
  13
  14         sleep 60;
  15 }