User: mkirchner Date: 06/02/12 14:32:53 Modified: /de/www/dev/ makemap.pl
Log: Anderung am utf8-Handling von html Files um auch das BOM verwenden zu koennen File Changes: Directory: /de/www/dev/ ======================= File [changed]: makemap.pl Url: http://de.openoffice.org/source/browse/de/www/dev/makemap.pl?r1=1.5&r2=1.6 Delta lines: +8 -5 ------------------- --- makemap.pl 29 Jan 2006 22:00:50 -0000 1.5 +++ makemap.pl 12 Feb 2006 22:32:45 -0000 1.6 @@ -531,12 +531,13 @@ # vielleicht finden wir ja da einen Text zum Eintrag $p = HTML::HeadParser->new; - $p->parse_file($file); + open (my $fh, "<:utf8",$file) or die "Kann $file nicht oeffnen"; + $p->parse_file($fh); $title = $p->header('Title'); if (not defined $title) {$title = $p->header('X-Meta-title') } if (not defined $title) {$title = "" } - + close ($fh); # Eine kurze Bemerkung zum Thema Unicode: # Da site.data und die map_*.html in UTF8 sind @@ -687,7 +688,7 @@ Änderungen, die nicht auch in der Flattext Datenbank site.data eingepflegt werden, beim nächsten überschreiben verloren. Im Zweifelsfall bitte auf devde um die Änderung bitten. - \$Id: makemap.pl,v 1.5 2006/01/29 22:00:50 mkirchner Exp $ + \$Id: makemap.pl,v 1.6 2006/02/12 22:32:45 mkirchner Exp $ < --> @@ -887,8 +888,10 @@ $navbarkopf = <<EOT; <!-- > Kommentare zur Navbar $navbartitle - \$Id: makemap.pl,v 1.5 2006/01/29 22:00:50 mkirchner Exp $ - $outfile,V $Version $Datum $ENV{'USERNAME'} + Makemapversion: + \$Id: makemap.pl,v 1.6 2006/02/12 22:32:45 mkirchner Exp $ + Navbar: + $outfile ,V $Version $Datum $ENV{'USERNAME'} < --> EOT --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
