From 1e8ee63e14749b37a1e83f9d8be367126ddb5596 Mon Sep 17 00:00:00 2001
From: Bruno Wolff III <bruno@wolff.to>
Date: Tue, 11 Oct 2005 01:57:19 +0000
Subject: [PATCH] I updated weblist.pl to display translation information.

---
 changelog        |  1 +
 utils/weblist.pl | 14 ++++++++++++++
 2 files changed, 15 insertions(+)

diff --git a/changelog b/changelog
index d47247262af..16388b2acc8 100644
--- a/changelog
+++ b/changelog
@@ -41,6 +41,7 @@ SVN trunk:
    * campaign_list response now contains the time the request was processed
    * campaign_list response now contains information about translations
  * utils: added weblist.pl and webtgz.pl web interface programs
+   * I updated weblist.pl to display translation information
 
 Version 1.0rc1:
  * language and i18n:
diff --git a/utils/weblist.pl b/utils/weblist.pl
index 54df76e3549..b4d79a6f64b 100755
--- a/utils/weblist.pl
+++ b/utils/weblist.pl
@@ -191,6 +191,19 @@ foreach my $campaign (@sorted) {
   push @row, a({href=>($campaign->{'attr'}->{'name'}).'.tgz'},
     escapeHTML($campaign->{'attr'}->{'title'}));
   push @row, escapeHTML($campaign->{'attr'}->{'version'});
+  my $trans = '';
+  my $first = 1;
+  my @lang = &wml::get_children($campaign,'translation');
+  foreach my $lang (sort @lang) {
+    if (!$first) {
+      $trans .= ' ';
+      $first = 0;
+    }
+    $trans .= $lang->{'attr'}->{'language'};
+  }
+  $trans =~ s/\001[^\003]*\003//g;
+  $trans =~ s/[\001-\037\177-\237]/ /g;
+  push @row, escapeHTML($trans);
   push @row, escapeHTML($campaign->{'attr'}->{'author'});
   if ($campaign->{'attr'}->{'timestamp'} =~ m/^\d+$/) {
     push @row, escapeHTML(gmctime($campaign->{'attr'}->{'timestamp'}) . ' GMT');
@@ -209,6 +222,7 @@ print table({frame=>'border',rules=>'all'},
   thead(Tr(th(['Icon',
     a({href=>$myurl . '?sort=' . $title_sort}, 'Title'),
     a({href=>$myurl . '?sort=' . $version_sort}, 'Version'),
+    'Translations',
     a({href=>$myurl . '?sort=' . $author_sort}, 'Author'),
     a({href=>$myurl . '?sort=' . $timestamp_sort}, 'Last Updated'),
     'Description',