package URI::ftp; require URI::_server; require URI::_userpass; @ISA=qw(URI::_server URI::_userpass); use strict; sub default_port { 21 } sub path { shift->path_query(@_) } # XXX sub _user { shift->SUPER::user(@_); } sub _password { shift->SUPER::password(@_); } sub user { my $self = shift; my $user = $self->_user(@_); $user = "anonymous" unless defined $user; $user; } sub password { my $self = shift; my $pass = $self->_password(@_); unless (defined $pass) { my $user = $self->user; if ($user eq 'anonymous' || $user eq 'ftp') { # anonymous ftp login password # If there is no ftp anonymous password specified # then we'll just use 'anonymous@' # We don't try to send the read e-mail address because: # - We want to remain anonymous # - We want to stop SPAM # - We don't want to let ftp sites to discriminate by the user, # host, country or ftp client being used. $pass = 'anonymous@'; } } $pass; } 1;
Name | Type | Size | Permission | Actions |
---|---|---|---|---|
file | Folder | 0755 |
|
|
urn | Folder | 0755 |
|
|
Escape.pm | File | 6.49 KB | 0644 |
|
Heuristic.pm | File | 6.41 KB | 0644 |
|
IRI.pm | File | 769 B | 0644 |
|
QueryParam.pm | File | 4.47 KB | 0644 |
|
Split.pm | File | 2.3 KB | 0644 |
|
URL.pm | File | 5.4 KB | 0644 |
|
WithBase.pm | File | 3.74 KB | 0644 |
|
_foreign.pm | File | 75 B | 0644 |
|
_generic.pm | File | 5.63 KB | 0644 |
|
_idna.pm | File | 1.99 KB | 0644 |
|
_ldap.pm | File | 3.17 KB | 0644 |
|
_login.pm | File | 222 B | 0644 |
|
_punycode.pm | File | 4.52 KB | 0644 |
|
_query.pm | File | 2.39 KB | 0644 |
|
_segment.pm | File | 377 B | 0644 |
|
_server.pm | File | 3.62 KB | 0644 |
|
_userpass.pm | File | 977 B | 0644 |
|
data.pm | File | 3.28 KB | 0644 |
|
file.pm | File | 9.58 KB | 0644 |
|
ftp.pm | File | 1.03 KB | 0644 |
|
gopher.pm | File | 2.34 KB | 0644 |
|
http.pm | File | 405 B | 0644 |
|
https.pm | File | 107 B | 0644 |
|
ldap.pm | File | 2.9 KB | 0644 |
|
ldapi.pm | File | 460 B | 0644 |
|
ldaps.pm | File | 107 B | 0644 |
|
mailto.pm | File | 1.24 KB | 0644 |
|
mms.pm | File | 89 B | 0644 |
|
news.pm | File | 1.39 KB | 0644 |
|
nntp.pm | File | 91 B | 0644 |
|
pop.pm | File | 1.15 KB | 0644 |
|
rlogin.pm | File | 96 B | 0644 |
|
rsync.pm | File | 197 B | 0644 |
|
rtsp.pm | File | 89 B | 0644 |
|
rtspu.pm | File | 90 B | 0644 |
|
sip.pm | File | 1.72 KB | 0644 |
|
sips.pm | File | 105 B | 0644 |
|
snews.pm | File | 136 B | 0644 |
|
ssh.pm | File | 140 B | 0644 |
|
telnet.pm | File | 95 B | 0644 |
|
tn3270.pm | File | 95 B | 0644 |
|
urn.pm | File | 1.91 KB | 0644 |
|