#!/usr/bin/perl -w
###########################################
# topictest
# Mike Schilli, 2006 (m@perlmeister.com)
###########################################
use strict;
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($DEBUG);
use YAML qw(Dump);

use WWW::Mechanize::Pluggable;

my $mech = new WWW::Mechanize::Pluggable;

my($url) = @ARGV;

if(! defined $url) {
    die "usage: $0 forum_url";
}

$mech->get(shift);

    # Get a list of forums
my $forums = $mech->phpbb_forums();
for my $forum (@$forums) {
    print "Forum:", $forum->text(), "\n";
}

    # Enter first forum
$mech->phpbb_forum_enter(qr(.));

        # Return a list of topics
my $topics = $mech->phpbb_topics();
print Dump($topics);