#!/usr/bin/perl my $wordcount=2360; my $finish=50000; my $pacerstart=1009861200; my $pacerend=1012539600; my $pacerlength=$pacerend-$pacerstart; my $stamp=time(); my $pacerpos=$stamp-$pacerstart; my $pacercount=int($finish*$pacerpos/$pacerlength); if ($pacercount>$finish) {$pacercount=$finish;} my $realwordcount=$wordcount; if ($wordcount>$finish) {$wordcount=$finish;} my $q=$ENV{'QUERY_STRING'}; my @people; my $head=''; my $foot=''; if ($q=~s/^Update//i) { my ($user,$words,$pass); if ($q=~/^\&(.*?)=(.*?)\&([^=]*?)$/i) { ($user,$words,$pass)=($1,$2,$3); } else { my @parts=split(/&/,$q); my $part; foreach $part (@parts) { my ($a,$b)=split(/=/,$part); if ($a=~/username/i) {$user=$b;} elsif ($a=~/wordcount/i) {$words=$b;} elsif ($a=~/password/i) {$pass=$b;} } } print "Content-type: text/html\n"; if ($pass) { $pass=~s/[^a-zA-Z0-9]//g; $user=~s/[^a-zA-Z0-9\-]//g; print "Set-Cookie: novelpass=$pass; path=/; expires=Mon, 01-Jan-2010 00:00:00 GMT\n"; print "Set-Cookie: noveluser=$user; path=/; expires=Mon, 01-Jan-2010 00:00:00 GMT\n"; } elsif ($words) { my @cookies=split(/; /,$ENV{'HTTP_COOKIE'}||''); my $part; foreach $part (@cookies) { my ($a,$b)=split(/=/,$part); if ($a eq 'novelpass') {$pass=$b;} if ($a eq 'noveluser') {$user=$b;} } } while (length($user)<10) {$user.=' ';} while (length($pass)<10) {$pass.=' ';} while (length($words)<10) {$words.=' ';} if (length($words)>10) {print "Bloody liar."; exit;} open (HANDLE,'+; } close(HANDLE); # @people=('Pacer',$user); $q=''; print "\n"; } else { print "Content-type: text/html\n\n"; } my $tablewidth="90%"; if (!($q=~s/^\&//)) { $head=' '; $foot=' '; $tablewidth="100%"; } my $divisions=1; while ($q=~s/^\///) { $divisions++; } if ($#people==-1) {@people=split(/=/,$q);} open(HANDLE,'wordcounts.txt'); my @data=; close(HANDLE); if ($#people==-1) { push(@people,'Pacer'); grep {if ($_=~/^([A-Za-z]{1,10})/) {push(@people,$1);}} @data; } print $head.'

'; my $subdiv=$divisions-1; my $subdivwidth=int(100/$divisions); foreach $person (@people) { if ($subdiv==$divisions-1) {print "";} print ' '; } else { my $wordcount=0; my $colour='#ffffff'; my $myfinish='0=words&50000=done'; grep {if ($_=~/^$person/) {$wordcount=substr($_,20,9); $colour=substr($_,30,7); $myfinish=substr($_,38,1024); chomp $myfinish;}} @data; print &ProgressBar(int($wordcount),$myfinish,500,$colour,'#000000',$person.': '.int($wordcount)).''; } if (!$subdiv) { print ""; $subdiv=$divisions; } $subdiv--; } print '

Projects Status

'; if ($person=~/Pacer/i) { print &ProgressBar($pacercount,$finish,500,'#ffffff','#000000','Pacer: '.$pacercount).'

'.$foot; sub ProgressBar { my ($pos,$myfinish,$size,$color1,$color2,$text)=@_; my $max=0; my $currentstage=''; my $nextstage=''; $size=100; { my @parts=split(/\&/,$myfinish); my $part; my $lowestundone=999999; my $highestdone=0; foreach $part (@parts) { my ($a,$b)=split(/=/,$part); if ($a>$max) {$max=$a;} if ($a>=$highestdone and $pos>=$a) {$currentstage=$b; $highestdone=$a;} if ($a<$lowestundone and $pos<$a) {$nextstage=$b.', at '.$a; $lowestundone=$a;} } } my $ret=''; my $xpos=int($pos*$size/($max||999999)); my $units=''; if ($max==100) {$units.='%';} elsif ($max>=50000) {$units.=' words';} $text.=$units; $text=''.$text.''; if ($pos>$max/2) { $ret.=' '; if ($size-$xpos>6) { $ret.=' '; } } else { if ($xpos>0) { $ret.=' '; } $ret.=' '; } $ret.='

'.$text.'

'; return $ret; }