summaryrefslogtreecommitdiff
path: root/lib/URI/ftp.pm
diff options
context:
space:
mode:
authorAndreas Brachold <vdr07@deltab.de>2007-11-11 06:55:13 +0000
committerAndreas Brachold <vdr07@deltab.de>2007-11-11 06:55:13 +0000
commit3282be229999dc36c197b264d63063a18d136331 (patch)
tree98a42db29d955b39e7bed1b599fdcc56c3a29de9 /lib/URI/ftp.pm
parentcfdd733c17cfa4f1a43b827a656e9e53cc2524ac (diff)
downloadxxv-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.pm45
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;