source: trunk/tools/mkchangelog.pl @ 783

Last change on this file since 783 was 782, checked in by Bruno Cornec, 14 years ago

merge -r763:781 $SVN_M/branches/stable

  • Property svn:executable set to *
File size: 2.6 KB
RevLine 
[636]1#!/usr/bin/perl -w
2#
3# Creates changelog for packages from Changelog files in the apps
4#
5# $Id$
6#
7# Syntax : mkchangelog dtype package-name output-file
8#
9
10use strict;
11use Date::Manip;
[652]12use File::Basename;
13use English;
[636]14
15my $log = "";
16my $dtype = $ARGV[0];
17my $pkg = $ARGV[1];
18my $pkg2;
19my $outfile = $ARGV[2];
20my $chglog = "";
21my $ndate = "";
[672]22my $n2date = "";
[636]23my $tmp = "";
24my $ver = "";
[782]25my $ver2 = "";
[636]26my $date = "";
27
28# For date handling
29$ENV{LANG}="C";
30
31die "Syntax : mkchangelog dtype package-name output-file" 
32    if ((not (defined $dtype)) || ($dtype eq "") || 
33        (not (defined $pkg)) || ($pkg eq "") || 
34        (not (defined $outfile)) || ($outfile eq ""));
35
[652]36my $TOOLHOME;
37$tmp = dirname($PROGRAM_NAME);
38if ($tmp =~ /^\//) {
39    $TOOLHOME = $tmp;
40    }
41else {
42    $TOOLHOME = "$ENV{PWD}/$tmp";
43    }
44
45die "TOOLHOME doesn't exist" if (not (defined $TOOLHOME));
46
[636]47if (-f "$TOOLHOME/../$pkg/ChangeLog") {
48    $chglog = "$TOOLHOME/../$pkg/ChangeLog";
49    }
50else {
51    $pkg2 = $pkg;
52    $pkg2 =~ s/-..*//;
53    if (-f "$TOOLHOME/../$pkg2/ChangeLog") {
54        $chglog = "$TOOLHOME/../$pkg2/ChangeLog";
55        }
56    else {
57        die "Unable to find a ChangeLog file for $pkg\n";
58    }
59}
[782]60#print "Using $chglog as input ChangeLog file for $pkg\n";
[636]61
62open(INPUT,"$chglog") || die "Unable to open $chglog (read)";
63open(OUTPUT,"> $outfile") || die "Unable to open $outfile (write)";
[782]64
[636]65# Skip first 4 lines
66$tmp = <INPUT>;
67$tmp = <INPUT>;
68$tmp = <INPUT>;
[652]69if ($dtype eq "announce") {
70    print OUTPUT $tmp;
71}
[636]72$tmp = <INPUT>;
[652]73if ($dtype eq "announce") {
74    print OUTPUT $tmp;
75}
[636]76
[782]77my $first=1;
78
[636]79# Handle each block separated by newline
80while (<INPUT>) {
81    ($ver, $date) = split(/ /);
[782]82    $ver =~ s/^v//;
[636]83    chomp($date);
84    $date =~ s/\(([0-9-]+)\)/$1/;
[652]85    #print "**$date**\n";
[636]86    $ndate = UnixDate($date,"%a", "%b", "%d", "%Y");
[672]87    $n2date = &UnixDate($date,"%a, %d %b %Y %H:%M:%S %z");
[652]88    #print "**$ndate**\n";
[636]89    if ($dtype eq "rpm") {
[782]90        if ($ver !~ /-/) {
91            if ($first eq 1) {
92                $ver2 = "$ver-$ENV{TAG}"."$ENV{suf}";
93                $first=0;
94            } else {
95                $ver2 = "$ver-1"."$ENV{suf}";
96            }
97        } else {
98            $ver2 = "$ver"."$ENV{suf}";
99        }
100        print OUTPUT "* $ndate Bruno Cornec <bruno\@mondorescue.org> $ver2\n";
[652]101        print OUTPUT "- Updated to $ver\n";
102        }
[672]103    if ($dtype eq "deb") {
104        print OUTPUT "$pkg ($ver) unstable; urgency=low\n";
105        print OUTPUT "\n";
106        }
[636]107
[652]108    $tmp = <INPUT>; 
109    while ($tmp !~ /^$/) {
[672]110        if ($dtype eq "deb") {
111            print OUTPUT "  * $tmp";
112        }
113        else {
114            print OUTPUT "$tmp";
115        }
[652]116        last if (eof(INPUT));
117        $tmp = <INPUT>;
[636]118    }
[652]119    print OUTPUT "\n";
[672]120
121    if ($dtype eq "deb") {
122        print OUTPUT " -- Bruno Cornec <bruno\@mondorescue.org>  $n2date\n\n";
123        print OUTPUT "\n";
124        }
125
[652]126    last if (eof(INPUT));
127    last if ($dtype eq "announce");
[636]128}
129close(OUTPUT);
130close(INPUT);
Note: See TracBrowser for help on using the repository browser.