[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[commit-womb] gnumaint gm
From: |
Karl Berry |
Subject: |
[commit-womb] gnumaint gm |
Date: |
Mon, 05 Dec 2011 01:13:04 +0000 |
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]} : @_;
- [commit-womb] gnumaint gm,
Karl Berry <=