git.maemo.org Git - pkg-perl/blob - deb-src/liburi-perl/liburi-perl-1.35.dfsg.1/URI/ftp.pm

   1 package URI::ftp;
   2
   3 require URI::_server;
   4 require URI::_userpass;
   5 @ISA=qw(URI::_server URI::_userpass);
   6
   7 use strict;
   8
   9 sub default_port { 21 }
  10
  11 sub path { shift->path_query(@_) }  # XXX
  12
  13 sub _user     { shift->SUPER::user(@_);     }
  14 sub _password { shift->SUPER::password(@_); }
  15
  16 sub user
  17 {
  18     my $self = shift;
  19     my $user = $self->_user(@_);
  20     $user = "anonymous" unless defined $user;
  21     $user;
  22 }
  23
  24 sub password
  25 {
  26     my $self = shift;
  27     my $pass = $self->_password(@_);
  28     unless (defined $pass) {
  29         my $user = $self->user;
  30         if ($user eq 'anonymous' || $user eq 'ftp') {
  31             # anonymous ftp login password
  32             # If there is no ftp anonymous password specified
  33             # then we'll just use 'anonymous@'
  34             # We don't try to send the read e-mail address because:
  35             # - We want to remain anonymous
  36             # - We want to stop SPAM
  37             # - We don't want to let ftp sites to discriminate by the user,
  38             #   host, country or ftp client being used.
  39             $pass = 'anonymous@';
  40         }
  41     }
  42     $pass;
  43 }
  44
  45 1;