Make slow.cgi more generic

denishowe · Feb 25, 2024 · ed10b57 · ed10b57
1 parent eb2ede9
commit ed10b57
Showing 1 changed file with 3 additions and 9 deletions.
diff --git a/pub/misc/slow.cgi b/pub/misc/slow.cgi
@@ -3,14 +3,8 @@
 use strict;
 use warnings;
 
-my ($string, $delay) = split /\&/, $ENV{QUERY_STRING};
+my ($string, $delay) = split /\&/, ($ENV{QUERY_STRING} || '&');
 $string =~ s/%20/ /g;
 print "Content-type: text/javascript\n\n";
-sleep $delay;
-print qq{
-log('$string ($delay)');
-};
-
-# Local variables:
-# compile-command: "http://foldoc.org/pub/js/slow.cgi?Body"
-# End:
+sleep ($delay || 1);
+print $string;