/[Sack]/trunk/bin/sack.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/sack.pl

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

revision 11 by dpavlin, Mon Sep 21 23:21:34 2009 UTC revision 12 by dpavlin, Tue Sep 22 10:00:22 2009 UTC
# Line 29  GetOptions( Line 29  GetOptions(
29    
30  my $t = time;  my $t = time;
31    
32  use lib '/srv/webpac2/lib/';  
33    our $prefix;
34    BEGIN {
35            $prefix = $0;
36            if ( $prefix =~ s{^./}{} ) {
37                    chomp( my $pwd = `pwd` );
38                    $prefix = "$pwd/$prefix";
39            }
40            $prefix =~ s{^(.+)/srv/Sack/bin.+$}{$1};
41            warn "# prefix $prefix";
42    }
43    
44    
45    use lib "$prefix/srv/webpac2/lib/";
46  use WebPAC::Input::ISI;  use WebPAC::Input::ISI;
47  my $input = WebPAC::Input::ISI->new(  my $input = WebPAC::Input::ISI->new(
48          path   => $path,          path   => "$prefix/$path",
49          offset => $offset,          offset => $offset,
50          limit  => $limit,          limit  => $limit,
51  );  );
Legend:
Removed from v.11  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.26