1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
use strict;
package Mail::Box::Net;
use vars '$VERSION';
$VERSION = '2.068';
use base 'Mail::Box';
use Mail::Box::Net::Message;
use Mail::Message::Body::Lines;
use Mail::Message::Body::File;
use Mail::Message::Body::Delayed;
use Mail::Message::Body::Multipart;
use Mail::Message::Head;
use Mail::Message::Head::Delayed;
use Carp;
use File::Copy;
use File::Spec;
use File::Basename;
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;
|
