X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=bin%2Firspy-rewrite-records.pl;h=a560db93b2a813c372f83347ff4495bcd274162e;hp=c80b05dca008779a5923934635c0a763e20e98cf;hb=52e22ecc37e7c6b3d0244f320138048661af8c7b;hpb=91aef24e6ccdd1dd937388ccbfc75e32c62e8c2f diff --git a/bin/irspy-rewrite-records.pl b/bin/irspy-rewrite-records.pl index c80b05d..a560db9 100755 --- a/bin/irspy-rewrite-records.pl +++ b/bin/irspy-rewrite-records.pl @@ -1,12 +1,14 @@ #!/usr/bin/perl - +# # perl -I ../lib irspy-rewrite-records.pl localhost:8018/IR-Explain---1 -use strict; -use warnings; +use lib '../lib'; use ZOOM::IRSpy; use ZOOM::IRSpy::Utils qw(render_record); +use strict; +use warnings; + my($dbname) = @ARGV; die "$0 no database name specified" if !defined $dbname;