[Pkg-doc-linux-devel] r229 - trunk/website

[Frank Lichtenheld]

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'), " &gt;&gt; ",
 			 a({-href=>"cat_$category.html"},$category) );
 	print LICFILE h1($licenses[$_]);
 	print LICFILE ul( li( [ sort @{$howtos{$licenses[$_]}} ] ) );