r319 - trunk/varnish-tools/recursor
des at projects.linpro.no
des at projects.linpro.no
Wed Jul 5 12:39:09 CEST 2006
Author: des
Date: 2006-07-05 12:39:09 +0200 (Wed, 05 Jul 2006)
New Revision: 319
Modified:
trunk/varnish-tools/recursor/recursor.pl
Log:
Increase the period to 100000 documents
Send CRLF instead of just LF
Vary expiry from 300 to 1800 seconds
Tack on 8 kB of blank lines
Modified: trunk/varnish-tools/recursor/recursor.pl
===================================================================
--- trunk/varnish-tools/recursor/recursor.pl 2006-07-05 10:01:04 UTC (rev 318)
+++ trunk/varnish-tools/recursor/recursor.pl 2006-07-05 10:39:09 UTC (rev 319)
@@ -9,11 +9,13 @@
my $q = new CGI;
my $foo = int($q->param('foo'));
-my $i = ($foo * 2) % 5000;
-my $j = ($foo * 2 + 1) % 5000;
+my $i = ($foo * 2) % 100000;
+my $j = ($foo * 2 + 1) % 100000;
-print $q->header(-expires=>'+60m');
+my $exp = ($foo % 1500) + 300; # 300 to 1800 seconds
+print $q->header(-expires=>"+$exp");
-print "<h1>Page $foo</h1>\n";
-print "<p><a href=\"/cgi-bin/recursor.pl?foo=$i\">Link $i</a></p>\n";
-print "<p><a href=\"/cgi-bin/recursor.pl?foo=$j\">Link $j</a></p>\n";
+print "<h1>Page $foo</h1>\r\n";
+print "<p><a href=\"/cgi-bin/recursor.pl?foo=$i\">Link $i</a></p>\r\n";
+print "<p><a href=\"/cgi-bin/recursor.pl?foo=$j\">Link $j</a></p>\r\n";
+print "\r\n"x4096
More information about the varnish-commit
mailing list