File: add-imp.pl

package info (click to toggle)
onak 0.3.8-1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 1,096 kB
  • ctags: 617
  • sloc: ansic: 8,720; perl: 276; makefile: 131; sh: 36; sql: 21
file content (12 lines) | stat: -rwxr-xr-x 186 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
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;
}