source: branches/2.0.9/tools/mkchangelog.pl @ 779

Last change on this file since 779 was 779, checked in by bruno, 13 years ago

Build process updated from stable.

  • Property svn:executable set to *
File size: 2.6 KB
Line 
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;
12use File::Basename;
13use English;
14
15my $log = "";
16my $dtype = $ARGV[0];
17my $pkg = $ARGV[1];
18my $pkg2;
19my $outfile = $ARGV[2];
20my $chglog = "";
21my $ndate = "";
22my $n2date = "";
23my $tmp = "";
24my $ver = "";
25my $ver2 = "";
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
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
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}
60print "Using $chglog as input ChangeLog file for $pkg\n";
61
62open(INPUT,"$chglog") || die "Unable to open $chglog (read)";
63open(OUTPUT,"> $outfile") || die "Unable to open $outfile (write)";
64
65# Skip first 4 lines
66$tmp = <INPUT>;
67$tmp = <INPUT>;
68$tmp = <INPUT>;
69if ($dtype eq "announce") {
70    print OUTPUT $tmp;
71}
72$tmp = <INPUT>;
73if ($dtype eq "announce") {
74    print OUTPUT $tmp;
75}
76
77my $first=1;
78
79# Handle each block separated by newline
80while (<INPUT>) {
81    ($ver, $date) = split(/ /);
82    $ver =~ s/^v//;
83    chomp($date);
84    $date =~ s/\(([0-9-]+)\)/$1/;
85    #print "**$date**\n";
86    $ndate = UnixDate($date,"%a", "%b", "%d", "%Y");
87    $n2date = &UnixDate($date,"%a, %d %b %Y %H:%M:%S %z");
88    #print "**$ndate**\n";
89    if ($dtype eq "rpm") {
90        if ($ver !~ /-/) {
91            if ($first eq 1) {
92                $ver2 = "$ver-$ENV{TAG}"."$ENV{suf}";
93            } else {
94                $ver2 = "$ver-1"."$ENV{suf}";
95            }
96        } else {
97            $ver2 = "$ver"."$ENV{suf}";
98        }
99        print OUTPUT "* $ndate Bruno Cornec <bruno\@mondorescue.org> $ver2\n";
100        print OUTPUT "- Updated to $ver\n";
101        }
102    if ($dtype eq "deb") {
103        print OUTPUT "$pkg ($ver) unstable; urgency=low\n";
104        print OUTPUT "\n";
105        }
106
107    $tmp = <INPUT>; 
108    while ($tmp !~ /^$/) {
109        if ($dtype eq "deb") {
110            print OUTPUT "  * $tmp";
111        }
112        else {
113            print OUTPUT "$tmp";
114        }
115        last if (eof(INPUT));
116        $tmp = <INPUT>;
117    }
118    print OUTPUT "\n";
119
120    if ($dtype eq "deb") {
121        print OUTPUT " -- Bruno Cornec <bruno\@mondorescue.org>  $n2date\n\n";
122        print OUTPUT "\n";
123        }
124
125    last if (eof(INPUT));
126    last if ($dtype eq "announce");
127}
128close(OUTPUT);
129close(INPUT);
Note: See TracBrowser for help on using the repository browser.