[Savannah-cvs] administration/lists stats.pl pending_projects_...

[Sylvain Beucler]

CVSROOT:        /cvsroot/administration
Module name:    administration
Branch:         
Changes by:     Sylvain Beucler <address@hidden>        04/09/17 13:22:45

Modified files:
        lists          : stats.pl 

Log message:
        improve.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/lists/stats.pl.diff?tr1=1.1&tr2=1.2&r1=text&r2=text

Modified files:
        lists          : pending_projects_to_keep.txt 

Log message:
        txt2xhtml was approved

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/lists/pending_projects_to_keep.txt.diff?tr1=1.336&tr2=1.337&r1=text&r2=text

Patches:
Index: administration/lists/stats.pl
diff -u administration/lists/stats.pl:1.4 administration/lists/stats.pl:1.5
--- administration/lists/stats.pl:1.4   Sun Sep 12 02:57:22 2004
+++ administration/lists/stats.pl       Sun Sep 12 08:31:42 2004
@@ -70,20 +70,20 @@
            $cur_description = $2;
        } else {
            die "not in a section on line $lineno near: $_" if $cur_section eq 
'';
-           $stats{$cur_section} = {} if !exists $stats{$cur_section};
+           $stats->{$cur_section} = {} if !exists $stats->{$cur_section};
 
            if (/^([A-Za-z0-9\-]+)$/) {
-               $stats{$cur_section}{'projects'} = [] if !exists 
$stats{$cur_section}{'projects'};
-               push @{$stats{$cur_section}{'projects'}}, $1;
-               $stats{$cur_section}{'count'}++;
+               $stats->{$cur_section}{'projects'} = [] if !exists 
$stats->{$cur_section}{'projects'};
+               push @{$stats->{$cur_section}{'projects'}}, $1;
+               $stats->{$cur_section}{'count'}++;
            } elsif (/^([A-Za-z0-9\-]+)\s+\(([A-Za-z]+)\)$/) {
-               $stats{$cur_section}{'count'}++;
-               $stats{$cur_section}{$1}{'evaluator'} = "\L$2";
+               $stats->{$cur_section}{'count'}++;
+               $stats->{$cur_section}{$1}{'evaluator'} = "\L$2";
            } elsif (/^([A-Za-z0-9\-]+)\s+\(([A-Za-z]+)(.+)\)$/) {
-               $stats{$cur_section}{'count'}++;
-               $stats{$cur_section}{$1}{'evaluator'} = "\L$2";
-               $stats{$cur_section}{$1}{'comment'} = "\L$3";
-               $stats{$cur_section}{$1}{'comment'} =~ s/;\s+//;
+               $stats->{$cur_section}{'count'}++;
+               $stats->{$cur_section}{$1}{'evaluator'} = "\L$2";
+               $stats->{$cur_section}{$1}{'comment'} = "\L$3";
+               $stats->{$cur_section}{$1}{'comment'} =~ s/;\s+//;
            } else {
                die "input error on line $lineno near: $_";
            }
Index: administration/lists/pending_projects_to_keep.txt
diff -u administration/lists/pending_projects_to_keep.txt:1.336 
administration/lists/pending_projects_to_keep.txt:1.337
--- administration/lists/pending_projects_to_keep.txt:1.336     Fri Sep 17 
12:35:38 2004
+++ administration/lists/pending_projects_to_keep.txt   Fri Sep 17 13:22:45 2004
@@ -31,7 +31,6 @@
 ggn (tsauter)
 ucblogo (tsauter)
 moppa (xni; asked for an updated tarball first)
-txt2xhtml (beu; wants to be GNU)
 stkpp (mjflick)
 libwx (Beuc; change unix_group_name to libwy)
 abyssx (Beuc)
@@ -166,3 +165,4 @@
 adcd (mjflick)
 ddrescue (tsauter)
 willowbark (Beuc)
+txt2xhtml (beu)