hide scheduled without option
[BackupPC.git] / makePatch
index ab5913c..132206d 100755 (executable)
--- a/makePatch
+++ b/makePatch
@@ -8,8 +8,8 @@ use strict;
 use File::Find;
 use File::Path;
 
-my $BaseVersion  = "2.1.0beta2";
-my $PatchLevel   = "pl1";
+my $BaseVersion  = "3.2.0";
+my $PatchLevel   = "pl0";
 my $PatchVersion = "$BaseVersion$PatchLevel";
 
 my $Base         = "/home/craig/admin/packages/BackupPC-$BaseVersion";
@@ -49,7 +49,7 @@ print OUT <<EOF;
 EOF
 
 foreach my $dir ( qw(bin lib cgi-bin) ) {
-    open(DIFF, "diff -ur $Base/$dir $TmpDir/$dir|")
+    open(DIFF, "diff -ur -I '^# Version .*, released ' $Base/$dir $TmpDir/$dir|")
            || die("can't run diff\n");
     while ( <DIFF> ) {
        next if ( /^Only/ || /^diff / );
@@ -74,7 +74,7 @@ sub CopyFile
     open(OUT, ">", "$TmpDir/$file")
                     || die("Can't open $TmpDir/$file for output\n");
     while ( <IN> ) {
-        if ( /^use lib ".*BackupPC\/lib";/
+        if ( /^use lib ".*BackupPC[\d.]*\/lib";/
                 || /^use lib "\/home\/pcbackup\/install\/lib";/ ) {
             print OUT "use lib \"__INSTALLDIR__/lib\";\n";
         } elsif ( $file =~ /Lib.pm/ && /(.*TopDir *=> .*)'.*',/ ) {