From: des <des@d4fa192b-c00b-0410-8231-f00ffab90ce4>
Date: Wed, 5 Jul 2006 10:39:09 +0000 (+0000)
Subject: Increase the period to 100000 documents
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b5f960514fba6c37021e65780529e5f3744bb0d3;p=varnish

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

git-svn-id: svn+ssh://projects.linpro.no/svn/varnish/trunk@319 d4fa192b-c00b-0410-8231-f00ffab90ce4
---

diff --git a/varnish-tools/recursor/recursor.pl b/varnish-tools/recursor/recursor.pl
index ad5f5574..f3e1b85e 100755
--- a/varnish-tools/recursor/recursor.pl
+++ b/varnish-tools/recursor/recursor.pl
@@ -9,11 +9,13 @@ use CGI;
 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