- added es.pm to configure.pl and makeDist

[BackupPC.git] / makeDist

diff --git a/makeDist b/makeDist
index c6ebf3d..4fe4061 100755 (executable)
--- a/makeDist
+++ b/makeDist
@@ -41,8 +41,8 @@ use File::Copy;
 
 umask(0022);
 
-my $Version     = "2.0.0_CVS";
-my $ReleaseDate = "18 Jan 2003";
+my $Version     = "2.0.0beta1";
+my $ReleaseDate = "30 Mar 2003";
 my $DistDir     = "dist/BackupPC-$Version";
 
 my @PerlSrc = qw(
@@ -64,6 +64,7 @@ my @PerlSrc = qw(
     lib/BackupPC/Lib.pm
     lib/BackupPC/Lang/en.pm
     lib/BackupPC/Lang/fr.pm
+    lib/BackupPC/Lang/es.pm
     lib/BackupPC/PoolWrite.pm
     lib/BackupPC/View.pm
     lib/BackupPC/Xfer/Smb.pm
@@ -297,12 +298,13 @@ sub CheckLangUsage
     my $errors;
     my $vars = {};
 
-    open(F, "cgi-bin/BackupPC_Admin")
-                || die("can't open cgi-bin/BackupPC_Admin\n");
-    while ( <F> ) {
-        s/\$Lang->{([^}]*)}/$vars->{$1} = 1;/eg;
+    foreach my $file ( qw(cgi-bin/BackupPC_Admin bin/BackupPC_sendEmail) ) {
+       open(F, $file) || die("can't open $file");
+       while ( <F> ) {
+           s/\$Lang->{([^}]*)}/$vars->{$1} = 1;/eg;
+       }
+       close(F);
     }
-    close(F);
     foreach my $f ( <lib/BackupPC/Lang/*.pm> ) {
         my $done = {};
         open(F, $f) || die("can't open $f\n");