Net::Plesk::Method::mail_set - Perl extension for Plesk XML Remote API mailbox setting

Net-Plesk documentation Contained in the Net-Plesk distribution.

Index

Code Index:

NAME

Top

Net::Plesk::Method::mail_set - Perl extension for Plesk XML Remote API mailbox setting

SYNOPSIS

Top

  use Net::Plesk::Method::mail_set

  my $p = new Net::Plesk::Method::mail_set
    ( $domainID, $mailbox, $passwd, $enabled );

  $request = $p->endcode;

DESCRIPTION

Top

This module implements an interface to construct a request for setting a mailbox using SWSOFT's Plesk.

METHODS

Top

init args ...

Initializes a Plesk mail_set object. The domainID, mailbox, and password options are required.

BUGS

Top

  Creepy crawlies.

SEE ALSO

Top

SWSOFT Plesk Remote API documentation (1.4.0.0 or later)

AUTHOR

Top

Jeff Finucane <jeff@cmh.net>

COPYRIGHT AND LICENSE

Top

Copyright (C) 2006 Jeff Finucane

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Net-Plesk documentation Contained in the Net-Plesk distribution. 
package Net::Plesk::Method::mail_set;

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, $password, $enabled) = @_;
  my $enabledflag = $enabled ? "true" : "false";
  $$self = join ( "\n", (
	            '<mail>',
	            '<update>',
	            '<set>',
	            '<filter>',
	            '<domain_id>',
	            $self->encode($domainid),
	            '</domain_id>',
	            '<mailname>',
	            '<name>',
	            $self->encode($mailbox),
	            '</name>',
		    '<mailbox>',
		    '<enabled>',
		    $self->encode($enabledflag),
		    '</enabled>',
		    '</mailbox>',
	            '<password>',
	            $self->encode($password),
	            '</password>',
	            '</mailname>',
	            '</filter>',
	            '</set>',
	            '</update>',
	            '</mail>',
	          ));
}


1;