/[mws]/trunk/mbox2index.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/mbox2index.pl

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

revision 41 by dpavlin, Mon May 10 20:26:17 2004 UTC revision 43 by dpavlin, Tue May 11 15:36:51 2004 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use lib '.';  BEGIN {
4            my $basedir = readlink($0) || $0; $basedir =~ s#/[^/]+$##;
5            unshift(@INC, $basedir);
6    }
7    
8  use MWS::SWISH;  use MWS::SWISH;
9  #use MWS::Plucene;  #use MWS::Plucene;
# Line 9  use Date::Parse; Line 12  use Date::Parse;
12  use POSIX qw(strftime);  use POSIX qw(strftime);
13  use Getopt::Long;  use Getopt::Long;
14    
   
15  # are we called from this script?  # are we called from this script?
16  my $recursive = 0;  my $recursive = 0;
17    
# Line 31  my $mws = MWS::SWISH->new(config_file => Line 33  my $mws = MWS::SWISH->new(config_file =>
33    
34  $mws->create_index if (! $recursive);  $mws->create_index if (! $recursive);
35    
36  print STDERR "starting indexing...";  print STDERR "starting indexing...\n";
37    
38  my $debug = 1;  my $debug = 1;
39    
Legend:
Removed from v.41  
changed lines
  Added in v.43
  ViewVC Help
Powered by ViewVC 1.1.26