dummy.pl


#!/opt/local/bin/perl
use foursquare;

my $username = 'CHANGE ME';
my $password = 'CHANGE ME';

my %locations = (
  2209702 => 'Whitehouse, South Lawn - Washington, DC',
  68217   => 'Lincoln Memorial - Washington, DC',
  9186    => 'Washington Monument - Washington, DC'
);

my $delay = defined $ARGV[0] && $ARGV[0] =~ m/^\d+$/ ? $ARGV[0] : 60 * 5; # default of 5 minutes

my $fs = foursquare->new($username, $password);

my @location_ids = keys %locations;
$fs->bulkCheckin(\@location_ids);

my %details = $fs->venueDetails(9186);
foreach my $key (keys %details) {
  print "$key = $details{$key}\n";
}