Changeset 652 in MondoRescue for trunk/tools/mkchangelog.pl
- Timestamp:
- Jun 8, 2006, 2:15:09 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/mkchangelog.pl
r649 r652 10 10 use strict; 11 11 use Date::Manip; 12 use File::Basename; 13 use English; 12 14 13 15 my $log = ""; … … 16 18 my $pkg2; 17 19 my $outfile = $ARGV[2]; 18 my $TOOLHOME = $ENV{TOOLHOME};19 20 my $chglog = ""; 20 21 my $ndate = ""; … … 30 31 (not (defined $pkg)) || ($pkg eq "") || 31 32 (not (defined $outfile)) || ($outfile eq "")); 33 34 my $TOOLHOME; 35 $tmp = dirname($PROGRAM_NAME); 36 if ($tmp =~ /^\//) { 37 $TOOLHOME = $tmp; 38 } 39 else { 40 $TOOLHOME = "$ENV{PWD}/$tmp"; 41 } 42 43 die "TOOLHOME doesn't exist" if (not (defined $TOOLHOME)); 32 44 33 45 if (-f "$TOOLHOME/../$pkg/ChangeLog") { … … 52 64 $tmp = <INPUT>; 53 65 $tmp = <INPUT>; 66 if ($dtype eq "announce") { 67 print OUTPUT $tmp; 68 } 54 69 $tmp = <INPUT>; 70 if ($dtype eq "announce") { 71 print OUTPUT $tmp; 72 } 55 73 56 74 # Handle each block separated by newline … … 59 77 chomp($date); 60 78 $date =~ s/\(([0-9-]+)\)/$1/; 61 print "**$date**\n";79 #print "**$date**\n"; 62 80 $ndate = UnixDate($date,"%a", "%b", "%d", "%Y"); 63 print "**$ndate**\n";81 #print "**$ndate**\n"; 64 82 if ($dtype eq "rpm") { 65 printf OUTPUT "* $ndate Bruno Cornec <bruno\@mondorescue.org> $ver\n"; 66 printf OUTPUT "- Updated to $ver\n"; 83 print OUTPUT "* $ndate Bruno Cornec <bruno\@mondorescue.org> $ver\n"; 84 print OUTPUT "- Updated to $ver\n"; 85 } 67 86 68 $tmp = <INPUT>; 69 while ($tmp !~ /^$/) { 70 printf OUTPUT $tmp; 71 $tmp = <INPUT>; 72 } 73 printf OUTPUT "\n"; 87 $tmp = <INPUT>; 88 while ($tmp !~ /^$/) { 89 print OUTPUT $tmp; 90 last if (eof(INPUT)); 91 $tmp = <INPUT>; 74 92 } 93 print OUTPUT "\n"; 94 last if (eof(INPUT)); 95 last if ($dtype eq "announce"); 75 96 } 76 97 close(OUTPUT);
Note:
See TracChangeset
for help on using the changeset viewer.