1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#!/usr/bin/perl
# Copyright © 2009, David Bremner <bremner@unb.ca>
# This file may be distributed under the same terms as Perl: Artistic license or GPL 1+
use strict;
use Parse::DebControl;
use File::Slurp;
my $header="# Generated by refresh.pl from debian/packages.cfg. Edits may be lost.\n";
my %xform=(
'debian/copyright.in'=>{'#COPYRIGHT_STANZAS#'=>\©right_stanzas},
'debian/control.in'=> {'#MODULE_DESC_LIST#'=>\&module_desc_list},
'debian/watch.in'=> {'#WATCH_LIST#'=>\&watch_list}
);
my $parser=new Parse::DebControl;
my $pkgconf=$parser->parse_file("debian/packages.cfg",
{useTieIxHash=>1,stripComments=>1}) || die "parser failed: $!";
for my $file (keys %xform) {
my %subst=%{$xform{$file}};
my $content=$header . read_file($file);
for my $token (keys %subst){
my $val=&{$subst{$token}};
$content=~s/$token/$val/;
}
my $outfile= $file;
$outfile =~ s/\.in$//;
write_file($outfile,$content);
}
sub short_desc($){
my $module=shift;
my $desc=$module->{Description};
$desc=~s/\n.*//;
return $desc;
}
sub copyright_stanzas{
my @list=map { $parser->write_mem($_); } @{$pkgconf};
return join("\n\n",@list);
}
sub watch_list{
my @list=map {$_->{Watch} . " ". $_->{'Upstream-Version'} } @{$pkgconf};
return join("\n",@list);
}
sub module_desc_list{
my @list=map {" * ". $_->{Module} . " (". short_desc($_) .")" } @{$pkgconf};
return join("\n",@list);
}
|
