os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Properly fix the break of the build.

Browse source 
Thanks to hrs@ for fixing it in the first place.

(Despite that I had run a make on this file and the .xml file, it
 seems that it didn't break with the file until it was commited.
 I am confused too.)
This commit is contained in:
Edwin Groothuis 2008-12-07 06:12:06 +00:00
parent 667a7b6360
commit 760c82a092
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=33367
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
en/multimedia/multimedia.pl
View file

@ -1,8 +1,8 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# #
# $Id: multimedia.pl,v 1.5 2008-12-06 06:25:37 hrs Exp $ # $Id: multimedia.pl,v 1.6 2008-12-07 06:12:06 edwin Exp $
# $FreeBSD: www/en/multimedia/multimedia.pl,v 1.4 2008/12/06 02:50:43 edwin Exp $ # $FreeBSD: www/en/multimedia/multimedia.pl,v 1.5 2008/12/06 06:25:37 hrs Exp $
# #
use strict; use strict;
@ -157,7 +157,7 @@ sub xml_char {
# Note that $items[$ci]{fc} gets incremented in xml_start # Note that $items[$ci]{fc} gets incremented in xml_start
$items[$ci]{files}{$items[$ci]{fc}}{url} = "" $items[$ci]{files}{$items[$ci]{fc}}{url} = ""
if (!defined $items[$ci]{files}{$items[$ci]{fc}}{url}); if (!defined $items[$ci]{files}{$items[$ci]{fc}}{url});
$items[$ci]{files}{$items[$ci]{fc}}{url} .= htmlentities($value); $items[$ci]{files}{$items[$ci]{fc}}{url} .= $value;
return; return;
} }
if ($tree[5] eq "size") { if ($tree[5] eq "size") {
@ -204,7 +204,7 @@ sub xml_char {
return; return;
} }
if ($tree[3] eq "url") { if ($tree[3] eq "url") {
$sources{$sid}{url} = htmlentities($value); $sources{$sid}{url} = $value;
return; return;
} }
goto error; goto error;
@ -307,9 +307,9 @@ sub print_htmlitem {
my %file = %{$item{files}{$m}}; my %file = %{$item{files}{$m}};
print $fhandle ", " if ($c++); print $fhandle ", " if ($c++);
if (defined $item{prefix}) { if (defined $item{prefix}) {
print $fhandle "<a href=\"$item{prefix}/$file{url}\">$file{desc}</a>"; print $fhandle "<a href=\"" . htmlentities($item{prefix} . "/" . $file{url}) . "\">$file{desc}</a>";
} else { } else {
print $fhandle "<a href=\"$file{url}\">$file{desc}</a>"; print $fhandle "<a href=\"" . htmlentities($file{url}) . "\">$file{desc}</a>";
} }
if (defined $file{size} || defined $file{length}) { if (defined $file{size} || defined $file{length}) {
my $s = ""; my $s = "";