cscvs to tla changeset 3

[onak.git] / add-imp.pl

diff --git a/add-imp.pl b/add-imp.pl
new file mode 100755 (executable)
index 0000000..09470c3
--- /dev/null
+++ b/add-imp.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+while (<>) {
+       /(........)$/;
+       print "Attempting to get $1\n";
+       $key = `./onak-db2 get $1`;
+       open (ONAK, "| ./onak -v add");
+       print ONAK $key;
+       close ONAK;
+
+       sleep 60;
+}