I made this little script to output data for graphing with cacti/RRD Tool. It outputs the number of members and guests browsing the forums. I tested it with VBulletin 2.2.9.


Run with

./vbull_users http://www.somesite/forumroot/

#!/usr/bin/perl
use WWW::Mechanize;
use HTML::TokeParser;

my $agent = WWW::Mechanize->new();
$agent->get( @ARGV[0] );
my $stream = HTML::TokeParser->new( \$agent->{content} );
if ( $stream->get_tag("nobr") ) {
    my $info = $stream->get_trimmed_text;
    my @members = split /\s+/, $info;
    print @members[3], " ", @members[6];
}
[download]