#!/opt/dev/perl/bin/perl -w 

use strict;
use warnings;

use WWW::Mechanize;

my $number;
my $agentstr = 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12';
my $agent = WWW::Mechanize->new(autocheck => 1, agent => $agentstr);
my $forum_url = 'http://www.lordswm.com/forum.php';

my ($min_num) = (@ARGV);

if (!$min_num) {
	$min_num = 200;
}
$agent->get($forum_url);
$number = get_user_number($agent->content());
if ($number > $min_num) {
	print "OK, $number users online.\n";
	exit(0);
}
print "Not OK, only $number users online.\n";
exit(1);

sub get_user_number
{
	my ($str) = (@_);
	my $number = 0;
	if ($str =~ /(\d+)\s*online/s) {
		$number = $1;
	}
	return $number;
}