Changeset 659 in MondoRescue for branches/stable/tools/mkchangelog.pl
- Timestamp:
- Jun 9, 2006, 10:33:24 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/stable/tools/mkchangelog.pl
r651 r659 20 20 my $chglog = ""; 21 21 my $ndate = ""; 22 my $n2date = ""; 22 23 my $tmp = ""; 23 24 my $ver = ""; … … 79 80 #print "**$date**\n"; 80 81 $ndate = UnixDate($date,"%a", "%b", "%d", "%Y"); 82 $n2date = &UnixDate($date,"%a, %d %b %Y %H:%M:%S %z"); 81 83 #print "**$ndate**\n"; 82 84 if ($dtype eq "rpm") { … … 84 86 print OUTPUT "- Updated to $ver\n"; 85 87 } 88 if ($dtype eq "deb") { 89 print OUTPUT "$pkg ($ver) unstable; urgency=low\n"; 90 print OUTPUT "\n"; 91 } 86 92 87 93 $tmp = <INPUT>; 88 94 while ($tmp !~ /^$/) { 89 print OUTPUT $tmp; 95 if ($dtype eq "deb") { 96 print OUTPUT " * $tmp"; 97 } 98 else { 99 print OUTPUT "$tmp"; 100 } 90 101 last if (eof(INPUT)); 91 102 $tmp = <INPUT>; 92 103 } 93 104 print OUTPUT "\n"; 105 106 if ($dtype eq "deb") { 107 print OUTPUT " -- Bruno Cornec <bruno\@mondorescue.org> $n2date\n\n"; 108 print OUTPUT "\n"; 109 } 110 94 111 last if (eof(INPUT)); 95 112 last if ($dtype eq "announce");
Note:
See TracChangeset
for help on using the changeset viewer.