* Major changes from Ryan Kucera to add style sheets to the CGI

[BackupPC.git] / makeDist

diff --git a/makeDist b/makeDist
index 712ca05..8c547a4 100755 (executable)
--- a/makeDist
+++ b/makeDist
@@ -47,6 +47,9 @@ my $DistDir     = "dist/BackupPC-$Version";
 
 my @PerlSrc = qw(
     bin/BackupPC
 
 my @PerlSrc = qw(
     bin/BackupPC

+    bin/BackupPC_archive
+    bin/BackupPC_archivecd
+    bin/BackupPC_archivetape

     bin/BackupPC_dump
     bin/BackupPC_link
     bin/BackupPC_nightly
     bin/BackupPC_dump
     bin/BackupPC_link
     bin/BackupPC_nightly


@@ -64,6 +67,9 @@ my @PerlSrc = qw(
     lib/BackupPC/Lib.pm
     lib/BackupPC/PoolWrite.pm
     lib/BackupPC/View.pm
     lib/BackupPC/Lib.pm
     lib/BackupPC/PoolWrite.pm
     lib/BackupPC/View.pm

+    lib/BackupPC/CGI/AdminOptions.pm
+    lib/BackupPC/CGI/Archive.pm
+    lib/BackupPC/CGI/ArchiveInfo.pm

     lib/BackupPC/CGI/Browse.pm
     lib/BackupPC/CGI/DirHistory.pm
     lib/BackupPC/CGI/EmailSummary.pm
     lib/BackupPC/CGI/Browse.pm
     lib/BackupPC/CGI/DirHistory.pm
     lib/BackupPC/CGI/EmailSummary.pm


@@ -72,16 +78,20 @@ my @PerlSrc = qw(
     lib/BackupPC/CGI/Lib.pm
     lib/BackupPC/CGI/LOGlist.pm
     lib/BackupPC/CGI/Queue.pm
     lib/BackupPC/CGI/Lib.pm
     lib/BackupPC/CGI/LOGlist.pm
     lib/BackupPC/CGI/Queue.pm

+    lib/BackupPC/CGI/ReloadServer.pm

     lib/BackupPC/CGI/RestoreFile.pm
     lib/BackupPC/CGI/RestoreInfo.pm
     lib/BackupPC/CGI/Restore.pm
     lib/BackupPC/CGI/RestoreFile.pm
     lib/BackupPC/CGI/RestoreInfo.pm
     lib/BackupPC/CGI/Restore.pm

+    lib/BackupPC/CGI/StartServer.pm

     lib/BackupPC/CGI/StartStopBackup.pm
     lib/BackupPC/CGI/StartStopBackup.pm

+    lib/BackupPC/CGI/StopServer.pm

     lib/BackupPC/CGI/Summary.pm
     lib/BackupPC/CGI/View.pm
     lib/BackupPC/Lang/de.pm
     lib/BackupPC/Lang/en.pm
     lib/BackupPC/Lang/es.pm
     lib/BackupPC/Lang/fr.pm
     lib/BackupPC/CGI/Summary.pm
     lib/BackupPC/CGI/View.pm
     lib/BackupPC/Lang/de.pm
     lib/BackupPC/Lang/en.pm
     lib/BackupPC/Lang/es.pm
     lib/BackupPC/Lang/fr.pm

+    lib/BackupPC/Xfer/Archive.pm

     lib/BackupPC/Xfer/Smb.pm
     lib/BackupPC/Xfer/Tar.pm
     lib/BackupPC/Xfer/Rsync.pm
     lib/BackupPC/Xfer/Smb.pm
     lib/BackupPC/Xfer/Tar.pm
     lib/BackupPC/Xfer/Rsync.pm


@@ -107,6 +117,7 @@ foreach my $file ( @PerlSrc ) {
 $errCnt += CheckLangUsage();
 exit(1) if ( $errCnt );
 
 $errCnt += CheckLangUsage();
 exit(1) if ( $errCnt );
 

+$errCnt = 0;

 foreach my $var ( sort(keys(%$ConfVars) ) ) {
     next if ( $ConfVars->{$var} >= 2 || $var =~ /^\$/ );
     printf("Unused config parameter $var\n");
 foreach my $var ( sort(keys(%$ConfVars) ) ) {
     next if ( $ConfVars->{$var} >= 2 || $var =~ /^\$/ );
     printf("Unused config parameter $var\n");


@@ -335,7 +346,11 @@ sub CheckLangUsage
        }
        close(F);
     }
        }
        close(F);
     }

-    foreach my $f ( <lib/BackupPC/Lang/*.pm> ) {
+    # CB: disable other lang checks for now
+    #
+    # foreach my $f ( <lib/BackupPC/Lang/*.pm> ) {
+    #
+    foreach my $f ( <lib/BackupPC/Lang/en.pm> ) {

         my $done = {};
         open(F, $f) || die("can't open $f\n");
        binmode(F);
         my $done = {};
         open(F, $f) || die("can't open $f\n");
        binmode(F);


@@ -343,7 +358,7 @@ sub CheckLangUsage
             s/#.*//g;
             s/\$Lang{([^}]*)}/
                    my $var = $1;
             s/#.*//g;
             s/\$Lang{([^}]*)}/
                    my $var = $1;

-                   next if ( $var =~ m{^(Reason_|Status_)} );
+                   next if ( $var =~ m{^(Reason_|Status_|backupType_)} );

                     if ( !defined($vars->{$var}) ) {
                         print("Unexpected Lang var $var in $f\n");
                         $errors++;
                     if ( !defined($vars->{$var}) ) {
                         print("Unexpected Lang var $var in $f\n");
                         $errors++;