From e3baa10e80c25c67ad07d0bfbdad8a6525997773 Mon Sep 17 00:00:00 2001
From: Matt Taggart <taggart@riseup.net>
Date: Fri, 1 Nov 2019 11:54:02 -0700
Subject: [PATCH] add list language to output
---
tools/stats/topvolume | 22 ++++++++++++----------
1 file changed, 12 insertions(+), 10 deletions(-)
diff --git a/tools/stats/topvolume b/tools/stats/topvolume
index 39c4488..f0e330a 100755
--- a/tools/stats/topvolume
+++ b/tools/stats/topvolume
@@ -11,24 +11,23 @@ $lastmonth=`date +%Y-%m -d'last month'`;
chomp($lastmonth);
$subscribersql='mysql -N --batch --database=sympa --execute "select list_subscriber,user_subscriber from subscriber_table, list_table where list_subscriber=list_table.name_list and list_table.status_list=\'open\'"';
-#subscribersql='mysql -N --batch --database=sympa --execute "select list_subscriber,user_subscriber from subscriber_table, list_table where list_subscriber=list_table.name_list and list_table.status_list=\'open\' limit 100000"';
-#$subscribersql='mysql -N --batch --database=sympa --execute "select list_subscriber,user_subscriber from subscriber_table"';
+#$subscribersql='mysql -N --batch --database=sympa --execute "select list_subscriber,user_subscriber from subscriber_table, list_table where list_subscriber=list_table.name_list and list_table.status_list=\'open\' limit 10000"';
open(SQL, "$subscribersql|") or die "cannot get subscriber data from database\n";
format Wiki =
-|[@*->https://lists.riseup.net/www/info/@*]|[@*->https://lists.riseup.net/www/arc/@*]|[@*->https://lists.riseup.net/www/review/@*]|
- $list, $list, $volume, $list, $subscribers, $list
+|[@*->https://lists.riseup.net/www/info/@*]|[@*->https://lists.riseup.net/www/arc/@*]|[@*->https://lists.riseup.net/www/review/@*]|@*|
+ $list, $list, $volume, $list, $subscribers, $list, $lang
.
format Plain =
-@>>>>>> @>>>>> @*
-$volume, $subscribers, $list
+@>>>>>> @>>>>> @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<
+$volume, $subscribers, $list, $lang
.
format Html =
-<tr><td><a href="https://lists.riseup.net/www/info/@*">@*</a></td><td align=right><a href=https://lists.riseup.net/www/arc/">@*</a></td><td><a href=https://lists.riseup.net/www/review/">@*</a></td></tr>
- $list, $list, $list, $volume, $list, $subscribers
+<tr><td><a href="https://lists.riseup.net/www/info/@*">@*</a></td><td align=right><a href=https://lists.riseup.net/www/arc/">@*</a></td><td><a href=https://lists.riseup.net/www/review/">@*</a></td><td>@*</td></tr>
+ $list, $list, $list, $volume, $list, $subscribers, $lang
.
format Pcre =
@@ -54,8 +53,8 @@ if ( $ARGV[0] eq '-w' ) {
$~='Plain';
print "Top $num lists by monthly volume\n";
print "(generated ".$date.")\n";
- print "Volume Subscribers List name\n";
- print "---------------------------------------------------------\n";
+ print "Volume Subscribers List name Lang\n";
+ print "-----------------------------------------------------------------------------\n";
}
while (<SQL>) {
@@ -79,6 +78,8 @@ foreach $list ( keys %lists ) {
chomp($msgs);
$volume=$msgs*$#{ $lists{$list} };
$vols{$list}=$volume;
+ my $lang=`grep ^lang /home/sympa/expl/$list/config |awk '{print \$2}'`;
+ $langs{$list}=$lang;
}
$count=0;
@@ -88,6 +89,7 @@ foreach $list ( sort { $vols{$b} <=> $vols{$a} } keys %vols ) {
$count++;
$subscribers=$#{ $lists{$list} };
$volume=$vols{$list};
+ $lang=$langs{$list};
#print "volume is $volume subscribers is $subscribers\n";
write;
}
--
GitLab