X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/c11640facf0c976140547ef1b58971ec8a661dd3..98cfbf69d9806fe9cc9e352859da42f60a56a338:/source.plp

diff --git a/source.plp b/source.plp
index 7640ae0..f713a73 100644
--- a/source.plp
+++ b/source.plp
@@ -44,35 +44,39 @@ else {
 	}
 	-r $source or die "Requested file not found\n";
 
-	require Text::VimColor;
-	delete $Text::VimColor::SYNTAX_TYPE{Underlined};
-	my %TYPETAG = (
-		Statement => 'strong',
-		Error     => 'em',
-		Todo      => 'em',
-	);
+	if (eval { require Text::VimColor and Text::VimColor->VERSION(0.12) }) {
+		delete $Text::VimColor::SYNTAX_TYPE{Underlined};
+		my %TYPETAG = (
+			Statement => 'strong',
+			Error     => 'em',
+			Todo      => 'em',
+		);
 
-	my $hl = Text::VimColor->new(
-		file => $source,
-		vim_options => [@Text::VimColor::VIM_OPTIONS, '+:set enc=utf-8'],
-	);
-	my $parsed = $hl->marked;
-	print "<pre>\n";
-	foreach (@$parsed) {
-		my $tag = $_->[0] && ($TYPETAG{ $_->[0] } || 'span');
-		my $arg = '';
-		print "<$tag$arg class=\"sy-\l$_->[0]\">" if $tag;
-		if (!$_->[0] || $_->[0] eq 'Constant'
-		and $_->[1] =~ s{^(['"]?)(/?[a-z0-9_.]+\.(?:plp?|css|js))(?=\1$)}{}) {
-			printf '%s<a href="%s">%s</a>', $1, "/source/$2", $2;
+		my $hl = Text::VimColor->new(
+			file => $source,
+			vim_options => [@Text::VimColor::VIM_OPTIONS, '+:set enc=utf-8'],
+		);
+		my $parsed = $hl->marked;
+		print "<pre>\n";
+		foreach (@$parsed) {
+			my $tag = $_->[0] && ($TYPETAG{ $_->[0] } || 'span');
+			my $arg = '';
+			print "<$tag$arg class=\"sy-\l$_->[0]\">" if $tag;
+			if (!$_->[0] || $_->[0] eq 'Constant'
+			and $_->[1] =~ s{^(['"]?)(/?[a-z0-9_.]+\.(?:plp?|css|js))(?=\1$)}{}) {
+				printf '%s<a href="%s">%s</a>', $1, "/source/$2", $2;
+			}
+			if (!$_->[0] and $_->[1] =~ s/^(\s*)([A-Z]\w+(?:::\w+)+)(?![^;\s])//) {
+				printf '%s<a href="%s">%s</a>', $1, "/source/$2", $2;
+			}
+			print Text::VimColor::_xml_escape($_->[1]);
+			print "</$tag>" if $tag;
 		}
-		if (!$_->[0] and $_->[1] =~ s/^(\s*)([A-Z]\w+(?:::\w+)+)(?![^;\s])//) {
-			printf '%s<a href="%s">%s</a>', $1, "/source/$2", $2;
-		}
-		print Text::VimColor::_xml_escape($_->[1]);
-		print "</$tag>" if $tag;
+		print "</pre>\n";
+	}
+	else {
+		print "<pre>\n", EscapeHTML(ReadFile($source)), "</pre>\n";
 	}
-	print "</pre>\n";
 }
 :>
 <p class="footer">