[commit-womb] gnumaint gm gnumaint sendmaintmail

[Karl Berry]

CVSROOT:        /sources/womb
Module name:    gnumaint
Changes by:     Karl Berry <karl>       07/08/21 23:16:17

Modified files:
        .              : gm gnumaint sendmaintmail 

Log message:
        license to gplv3

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnumaint/gm?cvsroot=womb&r1=1.5&r2=1.6
http://cvs.savannah.gnu.org/viewcvs/gnumaint/gnumaint?cvsroot=womb&r1=1.38&r2=1.39
http://cvs.savannah.gnu.org/viewcvs/gnumaint/sendmaintmail?cvsroot=womb&r1=1.5&r2=1.6

Patches:
Index: gm
===================================================================
RCS file: /sources/womb/gnumaint/gm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- gm  30 Jul 2007 00:16:03 -0000      1.5
+++ gm  21 Aug 2007 23:16:16 -0000      1.6
@@ -1,5 +1,23 @@
 #!/usr/bin/env perl
-# $Id: gm,v 1.5 2007/07/30 00:16:03 karl Exp $
+# $Id: gm,v 1.6 2007/08/21 23:16:16 karl Exp $
+# More gnumaint-related stuff, since I think better in Perl than TCL.
+# 
+# Copyright 2007 Free Software Foundation Inc.
+# 
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or (at
+# your option) any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#
+# Originally written by Karl Berry.
 
 $DEBUG = 0;
 $ACTIVITY_FILE = "activity-report.txt";
@@ -18,6 +36,9 @@
   
   } elsif ($op eq "unanswered") {
     @lines = &list_packages_unanswered ();
+
+  } else {
+    die "$0: unknown operation address@hidden'\n";
   }
 
   print map { "$_\n" } @lines;
@@ -239,6 +260,7 @@
 # 
 sub debug_hash
 {
+  return unless $DEBUG;
   my ($label) = shift;
   my (%hash) = (ref $_[0] && $_[0] =~ /.*HASH.*/) ? %{$_[0]} : @_;
 
@@ -253,6 +275,5 @@
   $str .= join (",", @items);
   $str .= "}";
 
-  warn "$str\n" if $DEBUG;
+  warn "$str\n";
 }
-

Index: gnumaint
===================================================================
RCS file: /sources/womb/gnumaint/gnumaint,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- gnumaint    30 Apr 2007 01:00:15 -0000      1.38
+++ gnumaint    21 Aug 2007 23:16:17 -0000      1.39
@@ -1,22 +1,21 @@
 #!/usr/bin/env tclsh
 # gnumaint - GNU maintainers file maintenance (/gd/gnuorg/maintainers)
-# $Id: gnumaint,v 1.38 2007/04/30 01:00:15 karl Exp $
+# $Id: gnumaint,v 1.39 2007/08/21 23:16:17 karl Exp $
 #
 # Copyright 2007 Free Software Foundation Inc.
 # 
-# This program is free software; you can redistribute it and/or modify
+# This program is free software: you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2, or (at your option)
-# any later version.
+# the Free Software Foundation, either version 3 of the License, or (at
+# your option) any later version.
 #
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
 #
 # You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software Foundation,
-# Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
 #
 # Originally written by Jose Marchesi.
 

Index: sendmaintmail
===================================================================
RCS file: /sources/womb/gnumaint/sendmaintmail,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- sendmaintmail       15 May 2007 00:08:40 -0000      1.5
+++ sendmaintmail       21 Aug 2007 23:16:17 -0000      1.6
@@ -1,22 +1,21 @@
 #!/usr/bin/env perl
-# $Id: sendmaintmail,v 1.5 2007/05/15 00:08:40 karl Exp $
+# $Id: sendmaintmail,v 1.6 2007/08/21 23:16:17 karl Exp $
 # Send or refrain from sending a message to a maintainer.
 # 
 # Copyright 2007 Free Software Foundation Inc.
 # 
-# This program is free software; you can redistribute it and/or modify
+# This program is free software: you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2, or (at your option)
-# any later version.
+# the Free Software Foundation, either version 3 of the License, or (at
+# your option) any later version.
 #
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
 #
 # You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software Foundation,
-# Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
 #
 # Originally written by Karl Berry.
 #