/[cvs]/nfo/perl/scripts/archiver/bin/finder.pl
ViewVC logotype

Diff of /nfo/perl/scripts/archiver/bin/finder.pl

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

revision 1.1 by joko, Sat Feb 1 01:38:35 2003 UTC revision 1.2 by joko, Sat Feb 1 02:52:32 2003 UTC
# Line 4  Line 4 
4  ##  $Id$  ##  $Id$
5  ## ------------------------------------------------------------------------  ## ------------------------------------------------------------------------
6  ##  $Log$  ##  $Log$
7    ##  Revision 1.2  2003/02/01 02:52:32  joko
8    ##  + minor update
9    ##
10  ##  Revision 1.1  2003/02/01 01:38:35  joko  ##  Revision 1.1  2003/02/01 01:38:35  joko
11  ##  + initial commit - partly refactored from replace_cvs.pl  ##  + initial commit - partly refactored from replace_cvs.pl
12  ##  ##
# Line 35  use warnings; Line 38  use warnings;
38  BEGIN {  BEGIN {
39    use FindBin qw($Bin);    use FindBin qw($Bin);
40    #require "$Bin/use_libs.pl";    #require "$Bin/use_libs.pl";
41      #use org::netfrag::preambel;
42  }  }
43    
44  use lib qw( ../../../libs ../libs ../etc );  use lib qw( ../../../libs ../libs ../etc );
 #use org::netfrag::preambel;  
45    
46  use Data::Dumper;  use Data::Dumper;
47  use File::Find;  use File::Find;
48  use Getopt::Easy;  use Getopt::Easy;
49    
50  # ----------------------------------------  
 #   main  
51  # ----------------------------------------  # ----------------------------------------
52  package main;  package main;
53    
   
54  my $settings;  my $settings;
55    
56  sub wanted {  sub wanted {
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed