* BackupPC_trashClean now logs an error if it can't remove all the

[BackupPC.git] / makeDist

diff --git a/makeDist b/makeDist
index c6ebf3d..e3ba30f 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.0beta2";
+my $ReleaseDate = "11 May 2003";
 my $DistDir     = "dist/BackupPC-$Version";
 
 my @PerlSrc = qw(
@@ -62,7 +62,9 @@ my @PerlSrc = qw(
     lib/BackupPC/Attrib.pm
     lib/BackupPC/FileZIO.pm
     lib/BackupPC/Lib.pm
+    lib/BackupPC/Lang/de.pm
     lib/BackupPC/Lang/en.pm
+    lib/BackupPC/Lang/es.pm
     lib/BackupPC/Lang/fr.pm
     lib/BackupPC/PoolWrite.pm
     lib/BackupPC/View.pm
@@ -126,8 +128,11 @@ foreach my $file ( (@PerlSrc,
                conf/hosts
                init.d/README
                init.d/src/debian-backuppc
+               init.d/src/gentoo-backuppc
+               init.d/src/gentoo-backuppc.conf
                init.d/src/linux-backuppc
                init.d/src/solaris-backuppc
+               init.d/src/suse-backuppc
                doc/BackupPC.pod
                doc/BackupPC.html
                README
@@ -297,12 +302,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");