Changeset 651 in MondoRescue for branches/stable/tools/mkchangelog.pl

Timestamp:

Jun 8, 2006, 12:56:31 PM (18 years ago)

Author:

bcornec

Message:

Lots of bug fixes on delivery process
Addition of mkannounce to generate announces of new versions automatically

File:

• branches/stable/tools/mkchangelog.pl (modified) (5 diffs)

branches/stable/tools/mkchangelog.pl

@@ -10 +10 @@
 use strict;
 use Date::Manip;
+use File::Basename;
+use English;
 
 my $log = "";
@@ -16 +18 @@
 my $pkg2;
 my $outfile = $ARGV[2];
-my $TOOLHOME = $ENV{TOOLHOME};
 my $chglog = "";
 my $ndate = "";
@@ -30 +31 @@
         (not (defined $pkg)) || ($pkg eq "") || 
         (not (defined $outfile)) || ($outfile eq ""));
+
+my $TOOLHOME;
+$tmp = dirname($PROGRAM_NAME);
+if ($tmp =~ /^\//) {
+    $TOOLHOME = $tmp;
+    }
+else {
+    $TOOLHOME = "$ENV{PWD}/$tmp";
+    }
+
+die "TOOLHOME doesn't exist" if (not (defined $TOOLHOME));
 
 if (-f "$TOOLHOME/../$pkg/ChangeLog") {
@@ -52 +64 @@
 $tmp = <INPUT>;
 $tmp = <INPUT>;
+if ($dtype eq "announce") {
+    print OUTPUT $tmp;
+}
 $tmp = <INPUT>;
+if ($dtype eq "announce") {
+    print OUTPUT $tmp;
+}
 
 # Handle each block separated by newline
@@ -59 +77 @@
     chomp($date);
     $date =~ s/\(([0-9-]+)\)/$1/;
-    print "**$date**\n";
+    #print "**$date**\n";
     $ndate = UnixDate($date,"%a", "%b", "%d", "%Y");
-    print "**$ndate**\n";
+    #print "**$ndate**\n";
     if ($dtype eq "rpm") {
-        printf OUTPUT "* $ndate Bruno Cornec <bruno\@mondorescue.org> $ver\n";
-        printf OUTPUT "- Updated to $ver\n";
+        print OUTPUT "* $ndate Bruno Cornec <bruno\@mondorescue.org> $ver\n";
+        print OUTPUT "- Updated to $ver\n";
+        }
 
-        $tmp = <INPUT>; 
-        while ($tmp !~ /^$/) {
-            printf OUTPUT $tmp;
-            $tmp = <INPUT>; 
-        }
-        printf OUTPUT "\n";
+    $tmp = <INPUT>; 
+    while ($tmp !~ /^$/) {
+        print OUTPUT $tmp;
+        last if (eof(INPUT));
+        $tmp = <INPUT>;
     }
+    print OUTPUT "\n";
+    last if (eof(INPUT));
+    last if ($dtype eq "announce");
 }
 close(OUTPUT);