diff options
| author | Andreas Brachold <vdr07@deltab.de> | 2007-11-11 06:55:13 +0000 |
|---|---|---|
| committer | Andreas Brachold <vdr07@deltab.de> | 2007-11-11 06:55:13 +0000 |
| commit | 3282be229999dc36c197b264d63063a18d136331 (patch) | |
| tree | 98a42db29d955b39e7bed1b599fdcc56c3a29de9 /lib/URI/ftp.pm | |
| parent | cfdd733c17cfa4f1a43b827a656e9e53cc2524ac (diff) | |
| download | xxv-3282be229999dc36c197b264d63063a18d136331.tar.gz xxv-3282be229999dc36c197b264d63063a18d136331.tar.bz2 | |
* Update installation list with required modules
* Remove unused/doubled provided external perl moduls
Diffstat (limited to 'lib/URI/ftp.pm')
| -rw-r--r-- | lib/URI/ftp.pm | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/lib/URI/ftp.pm b/lib/URI/ftp.pm deleted file mode 100644 index 89aeb07..0000000 --- a/lib/URI/ftp.pm +++ /dev/null @@ -1,45 +0,0 @@ -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; |
