add list language to output

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;
 }