[Jprojecttimer-commits] CVS: jprojecttimer checkTranslation.pl,1.2,1.3

[Christian G. [M. Mitch] <mas...@us...>]

Update of /cvsroot/jprojecttimer/jprojecttimer
In directory usw-pr-cvs1:/tmp/cvs-serv18755

Modified Files:
	checkTranslation.pl 
Log Message:
Using File::Find instead of open("find |") -- now works under Windows, too


Index: checkTranslation.pl
===================================================================
RCS file: /cvsroot/jprojecttimer/jprojecttimer/checkTranslation.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** checkTranslation.pl	2001/08/10 23:06:48	1.2
--- checkTranslation.pl	2002/01/17 22:43:30	1.3
***************
*** 4,8 ****
  # checks the translated properties for missing or double tags etc.
  #
! # 2001 (c) by Christian Garbs <mi...@un...>
  #
  # part of JProjectTimer - http://jprojecttimer.cgarbs.de
--- 4,8 ----
  # checks the translated properties for missing or double tags etc.
  #
! # 2001,2002 (c) by Christian Garbs <mi...@cg...>
  #
  # part of JProjectTimer - http://jprojecttimer.cgarbs.de
***************
*** 12,23 ****
  
  use strict;
  
! my %keywords;
  
! print "reading all resources...\n";
  
! open FILELIST, "find . -name *.java|" or die "can't read filelist: $!";
! my @filelist = <FILELIST>;
! close FILELIST or die "can't close filelist: $!";
  
  foreach my $source (@filelist) {
--- 12,28 ----
  
  use strict;
+ use File::Find;
  
! sub wanted;
  
! # Default values that must be present even if not used in source code
! my %keywords = map { $_, 1 } (
! 			      'CVS_TAG'
! 			      );
  
! print "reading all source files...\n";
! 
! my @filelist;
! find( sub { push @filelist, "$File::Find::dir/$_" if substr($_, -5) eq ".java" } , '.');
  
  foreach my $source (@filelist) {
***************
*** 33,43 ****
  }
  
- # CVS_TAG is not used in JProjectTimer, but it must be there, too:
- $keywords{CVS_TAG}++;
- 
- print "\n";
- 
  my $err = 0;
  
  foreach my $source (glob "JProjectTimerResource*.properties") {
      print "checking $source...\n";
--- 38,45 ----
  }
  
  my $err = 0;
  
+ print "reading all resources...\n";
+ 
  foreach my $source (glob "JProjectTimerResource*.properties") {
      print "checking $source...\n";
***************
*** 77,79 ****
      print "everthing's ok\n\n";
  }
- 
--- 79,80 ----