[commit-womb] gnumaint gm

[Karl Berry]

CVSROOT:        /sources/womb
Module name:    gnumaint
Changes by:     Karl Berry <karl>       11/12/05 01:13:04

Modified files:
        .              : gm 

Log message:
        { does not need to be in column 1 in Perl, since we have sub

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnumaint/gm?cvsroot=womb&r1=1.45&r2=1.46

Patches:
Index: gm
===================================================================
RCS file: /sources/womb/gnumaint/gm,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -b -r1.45 -r1.46
--- gm  3 Dec 2011 01:31:38 -0000       1.45
+++ gm  5 Dec 2011 01:13:03 -0000       1.46
@@ -1,5 +1,5 @@
 #!/usr/bin/env perl
-# $Id: gm,v 1.45 2011/12/03 01:31:38 karl Exp $
+# $Id: gm,v 1.46 2011/12/05 01:13:03 karl Exp $
 # GNU maintainer-related operations.
 # 
 # Copyright 2007, 2008, 2009, 2010, 2011 Free Software Foundation Inc.
@@ -33,8 +33,7 @@
 
 exit (&main ());
 
-sub main
-{
+sub main {
   my $cmd = $ARGV[0];
   my $arg1 = $ARGV[1];
   my $arg2 = $ARGV[2];
@@ -95,8 +94,7 @@
 # Return list of packages in the activity report that is not in the
 # maintainers file.
 # 
-sub check_activityfile_
-{
+sub check_activityfile_ {
   my @ret = ();
 
   my %pkgs = &read_maintainers ("by-package");
@@ -129,8 +127,7 @@
 # Return list of entries in the ftp listing that are not in the official
 # list of packages.
 # 
-sub check_ftplisting_
-{
+sub check_ftplisting_ {
   my @ret = ();
   
   my %pkgs = &read_gnupackages ();
@@ -156,8 +153,7 @@
 # Return list of packages in the gnupackages file that are not in the
 # maintainers file, and vice versa.
 # 
-sub check_maintainers_
-{
+sub check_maintainers_ {
   my @ret = ();
   
   my %maint_file = &read_maintainers ("by-package");
@@ -198,8 +194,7 @@
 # The sv file is at http://savannah.gnu.org/cooperation/groups.tsv
 # and is updated via cron on savannah.
 # 
-sub check_savannah_
-{
+sub check_savannah_ {
   my @ret = ();
   
   my %pkg_file = &read_gnupackages ();
@@ -224,8 +219,7 @@
 # Return doc links for all packages.  The result is included in
 # www.gnu.org/manual/manual.html via SSI.
 # 
-sub generate_logos_html
-{
+sub generate_logos_html {
   my $autostamp = &generated_by_us ();
   my @ret = ("<!-- File $autostamp -->");
   push (@ret, "<table>");
@@ -237,7 +231,7 @@
     next unless $logo;
     
     push (@ret, qq!<tr><td><a href="/software/$pkgname/">$pkgname</a></td>!);
-    push (@ret, qq!    <td><img alt="$pkgname" src="$logo"/></td></tr>\n!);
+    push (@ret, qq!    <td><img alt="$pkgname" src="$logo" /></td></tr>\n!);
   }
 
   push (@ret, "</table>");
@@ -251,8 +245,7 @@
 # Return doc links for all packages.  The result is included in
 # www.gnu.org/manual/manual.html via SSI.
 # 
-sub generate_manual_html
-{
+sub generate_manual_html {
   my $autostamp = &generated_by_us ();
   my @ret = ("<!-- File $autostamp -->");
   
@@ -493,8 +486,7 @@
 # line, like the original format of the maintainers file.  We run this
 # from cron.
 # 
-sub generate_maintainers_bypackage
-{
+sub generate_maintainers_bypackage {
   my @ret = ();
   
   my %pkgs = &read_maintainers ("by-package");
@@ -541,8 +533,7 @@
 # so this works.  Use the simple pkgname/ directory, since nothing else
 # (neither /index.html nor /pkgname.html) always works.
 # 
-sub generate_packages_html
-{
+sub generate_packages_html {
   my $autostamp = &generated_by_us ();
   my @ret = ("<!-- File $autostamp -->");
 
@@ -562,8 +553,7 @@
 # which the FSF is the copyright holder.  Or, if the NOT argument is
 # set, for which it is not the copyright holder.
 # 
-sub list_copyrightfsf_
-{
+sub list_copyrightfsf_ {
   my ($notfsf) = @_;
   my @ret = ();
 
@@ -653,8 +643,7 @@
 
 # Return the packages for which the FSF is not the copyright holder.
 # 
-sub list_copyrightfsfnot_
-{
+sub list_copyrightfsfnot_ {
   return list_copyrightfsf_ (1);
 }
 
@@ -662,8 +651,7 @@
 
 # Return list of maintainers for whom we have no phone or address.
 # 
-sub list_maintainers_nophysical
-{
+sub list_maintainers_nophysical {
   my @maints = ();
   my %maints = &read_maintainers ("by-maintainer");
 
@@ -683,8 +671,7 @@
 
 # Return all packages sorted by activity status, one package per line.
 # 
-sub list_packages_activity
-{
+sub list_packages_activity {
   my @ret = ();
 
   # sort activity statuses in this order.  If other strings are used,
@@ -715,8 +702,7 @@
 
 # Return all packages whose GPLv3 status is not final.
 # 
-sub list_packages_gplv3
-{
+sub list_packages_gplv3 {
   my @ret = ();
 
   my %pkgs = &read_gnupackages ();
@@ -743,8 +729,7 @@
 
 # Return list of packages for whom no maintainer has answered.
 # 
-sub list_packages_unanswered
-{
+sub list_packages_unanswered {
   my @recentrel = &read_recentrel ();
   my %activity = &read_activity ("by-package");
   my %pkgs = &read_maintainers ("by-package");
@@ -784,8 +769,7 @@
 # Read $COPYRIGHT_LIST_FILE.  Return hash with the keys being 
 # package names and the values their line numbers in the file.
 # 
-sub read_copyright_list
-{
+sub read_copyright_list {
   my %ret;
   
   open (COPYRIGHT_LIST_FILE) || die "open($COPYRIGHT_LIST_FILE) failed: $!";
@@ -817,7 +801,7 @@
       last if $w =~ /^[-\d]+/;
       
       # keyword ANY in copyright.list is not a package name for us, etc.
-      next if $w =~ /^(ANY|SPECIAL|TRANSLATIONS)$/;
+      next if $w =~ /^(ANY|UNUSED|SPECIAL|TRANSLATIONS)$/;
       next if $w =~ /^(CCLRC|CNOC|ET|INSIGHT|L3|LINBIT|MEDIAGOBLIN|WCT|FOO)$/;
 #      next if $w =~ /^(ANY|BROWSER|BSD|CCLRC|CNOC|COMPILER)$/;
 #      next if $w =~ /^(DOSFCHECK.C|FSF|GNU|GRAPHIC)$/;
@@ -968,8 +952,7 @@
 # 
 # Return list of directories and symlinks under gnu/.
 #
-sub read_ftplisting
-{
+sub read_ftplisting {
   my @ret;
 
   open (FTPLISTING_FILE) || die "open($FTPLISTING_FILE) failed: $!";
@@ -998,8 +981,7 @@
 # If we ever need a third piece of information, should probably switch
 # to a hash for the values.
 # 
-sub read_doc_categories
-{
+sub read_doc_categories {
   my ($short_cat) = @_;
   
   if (keys %doc_category == 0) {
@@ -1042,8 +1024,7 @@
 # values are separated by |.  A key "lineno" is synthesized with the
 # line number of the blank line following the package.
 # 
-sub read_gnupackages
-{
+sub read_gnupackages {
   my %ret;
  
   open (GNUPACKAGES_FILE) || die "open($GNUPACKAGES_FILE) failed: $!";
@@ -1101,8 +1082,7 @@
 # See the HTML Xref Configuration node in the Texinfo manual.
 # The file is maintained in the util subdirectory of the Texinfo sources.
 # 
-sub read_htmlxref
-{
+sub read_htmlxref {
   my ($pkgname) = @_;
   my %ret;
     
@@ -1198,8 +1178,7 @@
 # best_email - uses privateemail where present, in preference to email;
 # lineno - location in the file.
 # 
-sub read_maintainers
-{
+sub read_maintainers {
   my ($how) = @_;
   my %ret;
   
@@ -1293,8 +1272,7 @@
 # Return list of entries in $RECENTREL_FILE -- one per line, ignoring
 # comments starting with # and blank lines.
 # 
-sub read_oldpackages
-{
+sub read_oldpackages {
   local $GNUPACKAGES_FILE = $OLDPACKAGES_FILE;
   my %ret = &read_gnupackages ();    # reuse routine via dynamic scoping
   return %ret;
@@ -1305,8 +1283,7 @@
 # Return list of entries in $RECENTREL_FILE -- one per line, ignoring
 # comments starting with # and blank lines.
 # 
-sub read_recentrel
-{
+sub read_recentrel {
   my @ret = ();
   
   open (RECENTREL_FILE) || die "open($RECENTREL_FILE) failed: $!";
@@ -1327,8 +1304,7 @@
 # the keys are project identifiers and the values are references to
 # hashes with the information.  A key "lineno" is included in each value.
 # 
-sub read_savannah
-{
+sub read_savannah {
   my %ret;
   
   open (SAVANNAH_FILE) || die "open($SAVANNAH_FILE) failed: $!";
@@ -1363,8 +1339,7 @@
 
 # Since we need this in more than one place.
 #
-sub skip_pkg_p
-{
+sub skip_pkg_p {
   my ($pkgname) = @_;
   return $pkgname =~ / /            # gimp www pages, flex manual
          || $pkgname =~ /^gg-/      # groups
@@ -1375,8 +1350,7 @@
 
 # avoid repeating the field widths.
 # 
-sub gnupkgs_msg
-{
+sub gnupkgs_msg {
   my ($msg, %p) = @_;
   warn "gnupkgs_msg: no lineno/package elements in %p hash"
     unless $p{"lineno"} && $p{"package"};
@@ -1387,8 +1361,7 @@
 
 # return auto-generation notice to include in output files.
 # 
-sub generated_by_us
-{
+sub generated_by_us {
   chomp (my $date = `date`);
   (my $us = $0) =~ s,^\./,,;
   return "generated by womb/gnumaint/$us $date";
@@ -1401,8 +1374,7 @@
 
 # Log LABEL followed by hash elements, all on one line.
 # 
-sub debug_hash
-{
+sub debug_hash {
   return unless $DEBUG;
   my ($label) = shift;
   my (%hash) = (ref $_[0] && $_[0] =~ /.*HASH.*/) ? %{$_[0]} : @_;