#!/usr/bin/perl require "../date.pm"; require "CGI.pm"; require "../svn.pm"; my $inyear = CGI::param('year'); my $inmon = CGI::param('month'); sub setval { my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime(time); srand($ENV{'REMOTE_ADDR'} . "$mday.$mon.$year"); return rand(1000000); } sub setrand { my ($m, $y, $add)= @_; my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime(time); srand($m+$y+$hour+$min+$add); return int(rand(100000)); } my $val = setval(); if($inyear) { my $rand = CGI::cookie('usercheck'); if($rand eq $val) { print "Content-Type: text/plain\n"; print "Content-Encoding: x-gzip\n\n"; open(FILE, "gzip -c mail-$inyear-$inmon|") || print "can't do it"; while() { print $_; } close(FILE); exit; } else { my $incode = CGI::param('code'); my $msg; if($incode) { if(($incode eq setrand($inmonth, $inyear)) || ($incode eq setrand($inmonth, $inyear, 1))) { my $cookie = CGI::cookie(-name=> "usercheck", -value=> setval()); print "Location: ./mbox.cgi?year=$inyear&month=$inmon\nSet-Cookie: $cookie\n\n"; exit; } else { $msg= "Bad code given, retry! "; } } print "Content-Type: text/html\n\n"; my $code = setrand($inmonth, $inyear); print < Prove that you are in fact human $msg Before I\'ll let you view any mbox files, I want you to prove that you are in fact a human. Do this by entering this code ($code) in this form, within 30 seconds:
POO ; exit; } } print "Content-Type: text/html\n\n"; print < Subversion Users mboxes POO ; showlinks(); print <

Subversion Users mboxes

POO ; showmboxes(); print "
daniel.haxx.se\n";