Net::Plesk::Method::mail_remove - Perl extension for Plesk XML Remote API mail removal

  use Net::Plesk::Method::mail_remove

  my $p =
    new Net::Plesk::Method::mail_remove ( $domainID, $mailbox );

  $request = $p->endcode;

  Creepy crawlies.

package Net::Plesk::Method::mail_remove;

use strict;

use vars qw( $VERSION @ISA $AUTOLOAD $DEBUG );

@ISA = qw( Net::Plesk::Method );
$VERSION = '0.01';

$DEBUG = 0;

sub init {
  my ($self, $domainid, $mailbox ) = @_;
  $$self = join ( "\n", (
	            '<mail>',
	            '<remove>',
	            '<filter>',
	            '<domain_id>',
	            $self->encode($domainid),
	            '</domain_id>',
	            '<name>',
	            $self->encode($mailbox),
	            '</name>',
	            '</filter>',
	            '</remove>',
	            '</mail>',
	          ));
}

1;