/[webpac2]/trunk/bin/isi-download-results.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/isi-download-results.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1300 by dpavlin, Sat Sep 19 23:49:04 2009 UTC revision 1331 by dpavlin, Sun Apr 18 10:56:01 2010 UTC
# Line 21  if ( 0 ) { Line 21  if ( 0 ) {
21          $max_cites  = 50;          $max_cites  = 50;
22  }  }
23    
24    $q = join(' ', @ARGV) if @ARGV;
25    
26  use WWW::Mechanize;  use WWW::Mechanize;
27  use Data::Dump qw(dump);  use Data::Dump qw(dump);
28  use File::Path;  use File::Path;
# Line 34  our $step = 0; Line 36  our $step = 0;
36  our @ranges;  our @ranges;
37    
38  my $dir = '/tmp/isi/';  my $dir = '/tmp/isi/';
39  rmtree $dir if -e $dir;  #rmtree $dir if -e $dir;
40  mkdir $dir;  mkdir $dir unless -d $dir;
41    
42  sub save_mech {  sub save_mech {
43          my $path = shift;          my $path = shift;
Legend:
Removed from v.1300  
changed lines
  Added in v.1331
  ViewVC Help
Powered by ViewVC 1.1.26