6 use CGI::Carp qw(fatalsToBrowser);
7 use lib qw(/srv/bzr.sesse.net/www/xml-template/perl/);
9 require '../foosball.pm';
13 my $username1 = $cgi->param('username1');
14 $username1 =~ /^([a-z][a-z0-9]*)$/ or die "Invalid user name 1";
17 my $username2 = $cgi->param('username2');
18 $username2 =~ /^([a-z][a-z0-9]*)$/ or die "Invalid user name 2";
21 my $dbh = foosball::db_connect();
23 # fetch the single ratings
24 my ($rating1, $rd1) = foosball::find_single_rating($dbh, $username1);
25 my ($rating2, $rd2) = foosball::find_single_rating($dbh, $username2);
27 open ASSESS, "/srv/foosball.sesse.net/foosrank $rating1 $rd1 $rating2 $rd2 |"
28 or die "foosrank: $!";
32 my ($score, $prob, $rdiff1, $rdiff2) = split /,/, $_;
35 prob => (sprintf "%.3f", $prob),
36 rdiff1 => (sprintf "%+d", int($rdiff1+0.5)),
37 rdiff2 => (sprintf "%+d", int($rdiff2+0.5)),
41 print CGI->header(-type=>'application/xhtml+xml');
43 my $doc = XML::Template::process_file('assess.xml', {
44 'username1' => $username1,
45 'username2' => $username2,
46 'rating1' => int($rating1+0.5),
47 'rating2' => int($rating2+0.5),
48 '#results' => \@results,