vndb/yhdev
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Ncdc 1.8 released + various other changes and fixes

Browse source
This commit is contained in:
Yorhel 2012-02-13 10:20:13 +01:00
parent 91863fab76
commit 1d24a2c6bb
12 changed files with 129 additions and 62 deletions
Download patch file Download diff file Expand all files Collapse all files

6
index.cgi
View file

@ -120,9 +120,10 @@ package TUWF::Object;
use TUWF ':html';
# Accepts two special formatting codes:
# Accepts some special formatting codes:
# [dllink $file $title]
# [img $class $file $alt]
# [html]..É
sub htmlPOD {
my($s, $file, $toc) = @_;
require Pod::Simple::HTML;
@ -158,7 +159,7 @@ sub htmlPOD {
lit $p->index_as_html() if $toc;
$html =~ s/\[dllink ([^ ]+)(?: ([^>]+))?\]/$s->genDLLink($1, $2)/eg;
$html =~ s/\[img ([^ ]+) ([^ ]+) ([^\]]*)\]/<img src="\/img\/$2" class="$1" alt="$3" \/>/g;
#$html =~ s{\[html\](.*)É}{(my $h = $1) =~ s/\&gt;/>/g; $h =~ s/\&lt;/</g; $h =~ s/\&amp;/\&/g; $h =~ s/\&quot;/"/g; $h}egs;
$html =~ s{\[html\](.*)É}{(my $h = $1) =~ s/\&gt;/>/g; $h =~ s/\&lt;/</g; $h =~ s/\&amp;/\&/g; $h =~ s/\&quot;/"/g; $h}egs;
lit $html;
}
@ -192,7 +193,6 @@ sub htmlHeader {
a href => 'mailto:projects@yorhel.nl', 'projects@yorhel.nl';
br; a href => 'http://yorhel.nl', 'yh';
txt ' - '; a href => 'http://g.blicky.net', 'git';
txt ' - '; a href => 'http://svn.blicky.net', 'svn';
txt ' - '; a href => 'http://pgp.mit.edu:11371/pks/lookup?search=0x8c2739fa', 'pgp';
end;
end 'div';