[Pkg-doc-linux-devel] r229 - trunk/website
Frank Lichtenheld
djpig at alioth.debian.org
Tue Nov 28 16:51:56 CET 2006
Author: djpig
Date: 2006-11-28 16:51:56 +0100 (Tue, 28 Nov 2006)
New Revision: 229
Modified:
trunk/website/create_index_pages.pl
Log:
Fix some encoding issues
Modified: trunk/website/create_index_pages.pl
===================================================================
--- trunk/website/create_index_pages.pl 2006-09-28 22:30:29 UTC (rev 228)
+++ trunk/website/create_index_pages.pl 2006-11-28 15:51:56 UTC (rev 229)
@@ -54,13 +54,13 @@
while (<LICENSE>) {
$text .= $_;
}
- push @licensetexts, encode_entities($text) || 'N/A';
+ push @licensetexts, encode_entities($text,'<>&"') || 'N/A';
}
print "Create File $html_dir/cat_$category.html\n";
open CATFILE, '>', "$html_dir/cat_$category.html"
or die "couldn't open $html_dir/cat_$category.html: $!";
- print CATFILE start_html("$category HOWTO licenses");
+ print CATFILE start_html(-title=>"$category HOWTO licenses",-encoding=>'UTF-8');
print CATFILE p( a({-href=>"index.html"},'Home') );
print CATFILE h1("$category HOWTO licenses");
print CATFILE p( "Follow the links to get a list of HOWTOs currently distributed under the license. There are currently $howtos HOWTOs in this category." );
@@ -72,8 +72,8 @@
print "\tCreate File $html_dir/lic_$licenses[$_].html\n";
open LICFILE, '>', "$html_dir/lic_$licenses[$_].html"
or die "couldn't open $html_dir/lic_$licenses[$_].html: $!";
- print LICFILE start_html($licenses[$_]);
- print LICFILE p( a({-href=>"index.html"},'Home'), " >> ",
+ print LICFILE start_html(-title=>$licenses[$_],-encoding=>'UTF-8');
+ print LICFILE p( a({-href=>"index.html"},'Home'), " >> ",
a({-href=>"cat_$category.html"},$category) );
print LICFILE h1($licenses[$_]);
print LICFILE ul( li( [ sort @{$howtos{$licenses[$_]}} ] ) );
More information about the Pkg-doc-linux-devel
mailing list