Update of /cvsroot/fink/web/xml
In directory vz-cvs-3.sog:/tmp/cvs-serv3651
Modified Files:
htmlify.pl
Log Message:
Tweak htmlify.pl to make it also work for non-i18n files
Index: htmlify.pl
===================================================================
RCS file: /cvsroot/fink/web/xml/htmlify.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- htmlify.pl 24 Oct 2006 18:58:59 -0000 1.2
+++ htmlify.pl 25 Oct 2011 00:51:58 -0000 1.3
@@ -1,12 +1,7 @@
#!/usr/bin/perl -w
use strict;
-my ($filename, $currentlanguage);
-
-if ($ARGV[0] =~ /(.+)\.([^.]+)\.html\.tmp/) {
- $filename = $1;
- $currentlanguage = $2;
-}
+my ($filename, $currentlanguage, $newheader);
my %phpLang_languages = (
"en" => ['en', 'english', 'English'],
@@ -32,34 +27,41 @@
"zh" => ['zh', 'chinese_simplified', '中文
(简) (Simplified Chinese)']
);
-my $newheader = '<table width="100%" cellspacing="0">' .
-"\n" . '<tr valign="bottom">' . "\n" . '<td align="center">' . "\n" .
- 'Available Languages: | ' . "\n";
-for my $language (sort @ARGV) {
- if (exists $phpLang_languages{$language}) {
- if ($language eq $currentlanguage) {
- $newheader .= "${$phpLang_languages{$language}}[2] | \n";
- } else {
- $newheader .= "<a
href=\"$filename.$language.html\">${$phpLang_languages{$language}}[2]</a> | \n";
+if ($ARGV[0] =~ /(.+)\.([^.]+)\.html\.tmp/) {
+ $filename = $1;
+ $currentlanguage = $2;
+
+ $newheader = '<table width="100%" cellspacing="0">' . "\n" .
+ '<tr valign="bottom">' . "\n" .
+ '<td align="center">' . "\n" .
+ 'Available Languages: | ' . "\n";
+
+ # Add all supported languages to the header.
+ for my $language (sort @ARGV) {
+ if (exists $phpLang_languages{$language}) {
+ if ($language eq $currentlanguage) {
+ $newheader .=
"${$phpLang_languages{$language}}[2] | \n";
+ } else {
+ $newheader .= "<a
href=\"$filename.$language.html\">${$phpLang_languages{$language}}[2]</a> | \n";
+ }
+ }
}
- }
+
+ $newheader .= "</td>\n</tr>\n</table>\n" ;
}
-$newheader .= "</td>\n</tr>\n</table>\n" ;
open(INFILE,"$ARGV[0]") or die "Can't open $ARGV[0]: $!";
-my $text;
-
while (<INFILE>) {
- $_ =~ s/\$Id/\$Fink/g;
- $_ =~ s/<body>/<body>\n$newheader/;
- $text .= $_;
+ $_ =~ s/\$Id/\$Fink/g;
+ if (defined $newheader) {
+ $_ =~ s/<body>/<body>\n$newheader/;
+ }
+ print $_;
}
close INFILE;
-print $text;
-
exit 0;
------------------------------------------------------------------------------
The demand for IT networking professionals continues to grow, and the
demand for specialized networking skills is growing even more rapidly.
Take a complimentary Learning@Cisco Self-Assessment and learn
about Cisco certifications, training, and career opportunities.
http://p.sf.net/sfu/cisco-dev2dev
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
http://news.gmane.org/gmane.os.apple.fink.cvs
