From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 23 Apr 2017 01:04:27 +0000 (+0200)
Subject: source: disable syntax highlighting for large files
X-Git-Tag: v1.10~82
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/0561a41a9fde9b86999f5acf86047ef098c3df7c

source: disable syntax highlighting for large files

Attempt to keep responses within 2 seconds on my slow server; large files
are mostly data includes which do not benefit much from markup anyway.
---

diff --git a/source.plp b/source.plp
index 1f934ae..e3b2609 100644
--- a/source.plp
+++ b/source.plp
@@ -66,8 +66,10 @@ else {
 		}
 	}
 	-r $source or die "Requested file not found\n";
+	my $size = (stat $source)->[7];
 
 	if (my $hl = eval {
+		$size < 32_768 or die 'large files take too long to parse';
 		require Text::VimColor;
 		Text::VimColor->VERSION(0.12)
 			or die 'early versions are buggy under FastCGI';