#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $current_user = 1;
my $cutoff_weeks = 10;
my $max_users = 8000;
my $active_count = 0;
while ($current_user < $max_users) {
    my $url = "http://www.gamerswithjobs.com/user/$current_user/track";
    my $response = $ua->get($url);
    if ($response->is_success) {
	my $content = $response->content;
	
	if($content =~ /No posts available/) {
	    print "User $current_user not active\n";
	} elsif($content =~ /<title>(.*?) \|/) {
	    my $username = $1;
	    if($content =~ /class="last-reply">(.*?)<\/td>/) {
		my $time = $1;		
		print "User $username active $time";
		
		unless(($time =~ /year/) ||
		       ($time =~ /(\d+) weeks/ && $1 > $cutoff_weeks)) {		    
		    $active_count++;
		    print " ++";
		}
		print "\n";
	    }	    
	}
    } else {
	print "User $current_user not available\n";
    }
    $current_user++;
}

print "\nFinished. $active_count active users.\n";