#!/usr/bin/perl -w -T use strict; use CGI qw(param); delete @ENV{"PATH"}; my $numboxes = 5; my %games; my %gamelinks; sub addgame { my $game = shift; my $user = shift; if ($games{$game}) { $games{$game}->[@{$games{$game}}]=$user; } else { $games{$game}=[$user]; } } sub printunique { my $user = shift; my $game; print "$user owns unique games:
"; foreach $game (sort keys %gamelinks) { my @owners = @{$games{$game}}; if ((@owners==1)&&($owners[0] eq $user)) { print "$gamelinks{$game}
"; } } } if (param("data")) { my $arg; foreach $arg (param()) { if ($arg=~/(^id\d)/) { if (param($arg)=~/([\w ]+)/) { my $user = $1; my $line; open(COLLECTION,"/usr/bin/wget -q -O - \"http://www.boardgamegeek.com/viewcollection.php3?username=$user&dir=&orderby=&startletter=&own=1&rated=both&comment=both&trade=both&want=both&rating=\"|") or die "Can't get $user"."'s collection!"; while ($line=) { if ($line=~/(.*<\/b><\/A>)/i) { my $game = $1; $game =~s///; if ($line=~/(.*)<\/b><\/A>/) { my $gamename = $1; addgame($gamename,$user); $gamelinks{$gamename}=$game; } } } close(COLLECTION); } } } print "Content-type: text/html\r\n\r\n"; foreach $arg (param()) { if ($arg=~/(^id\d)/) { if (param("unique$arg")) { if (param($arg)=~/([\w ]+)/) { printunique($1); } } } } if (param("collection") eq "on") { my $game; print "Unified collection:
"; foreach $game (sort keys %games) { my @owners = @{$games{$game}}; print "$gamelinks{$game} ["; print join(",",@owners); print "]
"; } } print ""; } else { if (param("numboxes")=~/(\d+)/) { $numboxes=$1; } print "Content-type: text/html\r\n\r\n"; print "
"; print ""; print ""; my $i; for ($i=0;$i<$numboxes;$i++) { print ""; print ""; print ""; print ""; } print "
BoardGameGeek IDShow unique games?
"; if (param("id$i")) { my $olddata = param("id$i"); print ""; } else { print ""; } print ""; if (param("uniqueid$i")) { print ""; } else { print ""; } print "
"; print ""; print "
"; print ""; print "
"; print ""; print ""; print "
"; print ""; }