[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Savannah-cvs] administration/lists stats.pl pending_projects_...
From: |
Sylvain Beucler |
Subject: |
[Savannah-cvs] administration/lists stats.pl pending_projects_... |
Date: |
Fri, 17 Sep 2004 09:29:47 -0400 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Savannah-cvs] administration/lists stats.pl pending_projects_...,
Sylvain Beucler <=