# Copyrights 2001-2007 by Mark Overmeer.
# For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 1.00.
use strict;
use vars '$VERSION';
$VERSION = '2.071';
use Carp;
sub init($)
{ my ($self, $args) = @_;
$args->{lock_type} ||= 'NONE';
$args->{body_type} ||= 'Mail::Message::Body::Lines';
$args->{folder} ||= '/';
$args->{trusted} ||= 0;
$self->SUPER::init($args);
$self->{MBN_username} = $args->{username};
$self->{MBN_password} = $args->{password};
$self->{MBN_hostname} = $args->{server_name};
$self->{MBN_port} = $args->{server_port};
$self->log(WARNING => "The term 'hostname' is confusing wrt folder. You probably need 'server_name'")
if exists $args->{hostname};
$self;
}
#-------------------------------------------
sub create(@) {shift->notImplemented}
#-------------------------------------------
sub folderdir(;$) { undef }
#-------------------------------------------
sub organization() { 'REMOTE' }
#-------------------------------------------
sub url()
{ my $self = shift;
my ($user, $pass, $host, $port)
= @$self{ qw/MBN_username MBN_password MBN_hostname MBN_port/ };
my $perm = '';
$perm = $user if defined $user;
if(defined $pass)
{ $pass =~ s/(\W)/sprintf "%%%02X", ord $1/ge;
$perm .= ':'.$pass;
}
$perm .= '@' if length $perm;
my $loc = $host;
$loc .= ':'.$port if length $port;
my $name = $self->name;
$loc .= '/'.$name if $name ne '/';
$self->type . '://' . $perm . $loc;
}
#-------------------------------------------
1;