#!/usr/bin/perl -w
###########################################
# rmpost - Remove a post
# Mike Schilli, 2005 (m@perlmeister.com)
###########################################
use strict;
use Log::Log4perl qw(:easy);
use Pod::Usage;
use WWW::Mechanize::Pluggable;
use Getopt::Long 2.35;

GetOptions(\my %opts,
    "url=s", "pass=s", "user=s", "post=i");

if(grep { ! defined $opts{$_} } qw(url pass user post)) {
    pod2usage("Parameter missing");
}

Log::Log4perl->easy_init($DEBUG);

my $mech = new WWW::Mechanize::Pluggable;
$mech->get($opts{url});

$mech->phpbb_login($opts{user}, $opts{pass});

$mech->get("$opts{url}/viewtopic.php?p=$opts{post}");
$mech->phpbb_post_remove($opts{post});

__END__

=head1 NAME

    rmpost - Delete a post from a phpbb forum

=head1 SYNOPSIS

    rmpost -url=URL -user=USERID -pass=PASSWD -post=NNN

=head1 DESCRIPTION

C<rmpost> removes a post from phpbb forum by logging into the forum
under URL as a forum admin, and clicking the buttons until a specified post
has been deleted. Very handy to combat the phpbb spammers.

=head1 EXAMPLES

  $ rmpost -url=http://xyz.com/forum -user=admin -pass=xxx -post=123

=head1 LEGALESE

Copyright 2006 by Mike Schilli, all rights reserved.
This program is free software, you can redistribute it and/or
modify it under the same terms as Perl itself.

=head1 AUTHOR

2006, Mike Schilli <cpan@perlmeister.com>