0ct0pu5/wesnoth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

I updated weblist.pl to display translation information.

Browse source
This commit is contained in:
Bruno Wolff III 2005-10-11 01:57:19 +00:00
parent bbf7c4d67f
commit 1e8ee63e14
2 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
changelog
View file

@ -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:

14
utils/weblist.pl
View file

@ -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',