2 # vim: ts=4 sw=4 nowrap
4 # Read a comments-file and output only the comments that are still relevant
10 $Version = "CommentClean 1.0\nCopyright (C) Wichert Akkerman <wakkerma\@debian.org>\n";
12 $statusfile = "status";
13 $commentfile = "comments";
23 $0 [-V] [-h] [-S file] [-C file]
26 -h show some (hopefully) helpfull information
27 -S use different statusfile
28 -C use different commentfile
35 ShowUsage if ($opt_h);
36 ShowVersion if ($opt_V);
37 $statusfile=$opt_S if ($opt_S);
38 $commentfile=$opt_C if ($opt_C);
40 &readstatus($statusfile);
41 &readcomments($commentfile);
43 for $p (keys %packagelist) {
44 for my $nr (@{$packagelist{$p}}) {
49 for $n (sort keys %exclude) {
50 print "$n EXCLUDE\n\n"
51 if (defined($found{$n}) or defined ($packagelist{$n}));
54 for $n (sort keys %comments) {
55 print "$n\n$comments{$n}\n"
56 if (defined($found{$n}) or defined ($packagelist{$n}));