From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 18 Apr 2010 10:56:01 +0000 (+0000)
Subject: specify query as command-line params
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=febf4952d9cbbfc81f65c4160da9bf0e30c5ac5b;p=webpac2

specify query as command-line params


git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1331 07558da8-63fa-0310-ba24-9fe276d99e06
---

diff --git a/bin/isi-download-results.pl b/bin/isi-download-results.pl
index 3a385e8..9f7c971 100755
--- a/bin/isi-download-results.pl
+++ b/bin/isi-download-results.pl
@@ -21,6 +21,8 @@ if ( 0 ) {
 	$max_cites  = 50;
 }
 
+$q = join(' ', @ARGV) if @ARGV;
+
 use WWW::Mechanize;
 use Data::Dump qw(dump);
 use File::Path;
@@ -34,8 +36,8 @@ our $step = 0;
 our @ranges;
 
 my $dir = '/tmp/isi/';
-rmtree $dir if -e $dir;
-mkdir $dir;
+#rmtree $dir if -e $dir;
+mkdir $dir unless -d $dir;
 
 sub save_mech {
 	my $path = shift;