source:
git/update-debcl.pl
@
9f28094
Last change on this file since 9f28094 was 9f28094, checked in by , 18 years ago | |
---|---|
|
|
File size: 754 bytes |
Rev | Line | |
---|---|---|
[15f8095b] | 1 | #!/usr/bin/perl -w |
2 | require 5.003; | |
3 | use strict; | |
4 | ||
[e042244] | 5 | use POSIX; |
6 | ||
[15f8095b] | 7 | my $package = ''; |
8 | my $version = ''; | |
9 | open C, "<configure.in" or die $!; | |
10 | while (<C>) { | |
11 | if (/^AM_INIT_AUTOMAKE\(\s*([^,]+?)\s*,\s*([\d.]+)\)/) { | |
12 | $package = $1; | |
13 | $version = $2; | |
14 | last; | |
15 | } | |
16 | } | |
17 | close C; | |
18 | ||
19 | open CL, "<debian/changelog" or die $!; | |
20 | ||
[e042244] | 21 | my $date = strftime("%a, %d %b %Y %X %z", localtime); |
[15f8095b] | 22 | |
23 | my $line = <CL>; | |
[9f28094] | 24 | unless ($line =~ /^\Q$package ($version\E-\d+\)/) { |
[15f8095b] | 25 | open O, ">debian/changelog~" or die $!; |
26 | print O <<END; | |
[11e20cd3] | 27 | $package ($version-1) unstable; urgency=low |
[15f8095b] | 28 | |
29 | * New release | |
30 | ||
[b7f0d7a] | 31 | -- Wookey <wookey\@survex.com> $date |
[15f8095b] | 32 | |
33 | END | |
34 | print O $line; | |
35 | while (<CL>) { | |
36 | print O $_; | |
37 | } | |
38 | close CL; | |
39 | close O; | |
40 | rename "debian/changelog~", "debian/changelog" or die $!; | |
41 | } |
Note: See TracBrowser
for help on using the repository browser.