X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=makeDist;h=6079896de877e7892276cf2669d4b20a7cf7cced;hp=0821a7e0bcbce351750073f222d422eeae96b9ec;hb=8d7768574bb328c669a44c6efbff01e8a7e93d7e;hpb=69adb627ebd6145bc9bc5815093828306db17767

diff --git a/makeDist b/makeDist
index 0821a7e..6079896 100755
--- 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.0";
+my $ReleaseDate = "14 Jun 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
@@ -157,6 +162,8 @@ sub InstallFile
     } else {
 	open(FILE, $file)   || die("can't open $file for reading\n");
 	open(OUT, ">$dest") || die("can't open $dest for writing\n");
+	binmode(FILE);
+	binmode(OUT);
 	while ( <FILE> ) {
 	    s/^# *Version \d+\.\d+[\.\w]*, released \d+ \w+ \d{4}\.?/# Version __VERSION__, released __RELEASEDATE__./;
 	    s/__VERSION__/$Version/g;
@@ -197,6 +204,7 @@ sub InstallFile
 sub config2pod
 {
     open(C, "conf/config.pl") || die("can't open conf/config.pl");
+    binmode(C);
     my($str, $out, $getHdr, @conf);
     my $first = 1;
     while ( <C> ) {
@@ -256,6 +264,7 @@ sub CheckConfigParams
     my $errors;
 
     open(F, $file) || die("can't open $file\n");
+    binmode(F);
     if ( $check ) {
         while ( <F> ) {
             s/\$(self|bpc)->{Conf}{([^}\$]+)}/if ( !defined($vars->{$2}) ) {
@@ -299,6 +308,7 @@ sub CheckLangUsage
 
     foreach my $file ( qw(cgi-bin/BackupPC_Admin bin/BackupPC_sendEmail) ) {
 	open(F, $file) || die("can't open $file");
+	binmode(F);
 	while ( <F> ) {
 	    s/\$Lang->{([^}]*)}/$vars->{$1} = 1;/eg;
 	}
@@ -307,6 +317,7 @@ sub CheckLangUsage
     foreach my $f ( <lib/BackupPC/Lang/*.pm> ) {
         my $done = {};
         open(F, $f) || die("can't open $f\n");
+	binmode(F);
         while ( <F> ) {
             s/#.*//g;
             s/\$Lang{([^}]*)}/