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

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

Still tools update

  • 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}
60#print "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                $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";
101        print OUTPUT "- Updated to $ver\n";
102        }
103    if ($dtype eq "deb") {
104        print OUTPUT "$pkg ($ver) unstable; urgency=low\n";
105        print OUTPUT "\n";
106        }
107
108    $tmp = <INPUT>; 
109    while ($tmp !~ /^$/) {
110        if ($dtype eq "deb") {
111            print OUTPUT "  * $tmp";
112        }
113        else {
114            print OUTPUT "$tmp";
115        }
116        last if (eof(INPUT));
117        $tmp = <INPUT>;
118    }
119    print OUTPUT "\n";
120
121    if ($dtype eq "deb") {
122        print OUTPUT " -- Bruno Cornec <bruno\@mondorescue.org>  $n2date\n\n";
123        print OUTPUT "\n";
124        }
125
126    last if (eof(INPUT));
127    last if ($dtype eq "announce");
128}
129close(OUTPUT);
130close(INPUT);
Note: See TracBrowser for help on using the repository browser.