add-imp.pl

   1 #!/usr/bin/perl
   2
   3 while (<>) {
   4         /(........)$/;
   5         print "Attempting to get $1\n";
   6         $key = `./onak-db2 get $1`;
   7         open (ONAK, "| ./onak -v add");
   8         print ONAK $key;
   9         close ONAK;
  10
  11         sleep 60;
  12 }