ACIL FM

Nama	Ukuran	Aksi
file	-	Open
urn	-	Open
data.pm	3.31 MB	View DL Edit
Escape.pm	6.9 MB	View DL Edit
file.pm	9.53 MB	View DL Edit
ftp.pm	1.03 MB	View DL Edit
gopher.pm	2.37 MB	View DL Edit
Heuristic.pm	6.37 MB	View DL Edit
http.pm	425 B	View DL Edit
https.pm	144 B	View DL Edit
IRI.pm	794 B	View DL Edit
ldap.pm	2.86 MB	View DL Edit
ldapi.pm	440 B	View DL Edit
ldaps.pm	144 B	View DL Edit
mailto.pm	1.25 MB	View DL Edit
mms.pm	125 B	View DL Edit
news.pm	1.42 MB	View DL Edit
nntp.pm	127 B	View DL Edit
nntps.pm	144 B	View DL Edit
pop.pm	1.18 MB	View DL Edit
QueryParam.pm	4.75 MB	View DL Edit
rlogin.pm	129 B	View DL Edit
rsync.pm	207 B	View DL Edit
rtsp.pm	125 B	View DL Edit
rtspu.pm	126 B	View DL Edit
sftp.pm	98 B	View DL Edit
sip.pm	1.66 MB	View DL Edit
sips.pm	143 B	View DL Edit
snews.pm	172 B	View DL Edit
Split.pm	2.3 MB	View DL Edit
ssh.pm	175 B	View DL Edit
telnet.pm	128 B	View DL Edit
tn3270.pm	128 B	View DL Edit
URL.pm	5.36 MB	View DL Edit
urn.pm	2.12 MB	View DL Edit
WithBase.pm	3.77 MB	View DL Edit
_foreign.pm	107 B	View DL Edit
_generic.pm	5.69 MB	View DL Edit
_idna.pm	2.03 MB	View DL Edit
_ldap.pm	3.17 MB	View DL Edit
_login.pm	231 B	View DL Edit
_punycode.pm	5.49 MB	View DL Edit
_query.pm	2.47 MB	View DL Edit
_segment.pm	416 B	View DL Edit
_server.pm	3.64 MB	View DL Edit
_userpass.pm	1.01 MB	View DL Edit

Edit file: /usr/share/perl5/URI/ftp.pm

package URI::ftp;

use strict;
use warnings;

our $VERSION = '5.09';

use parent qw(URI::_server URI::_userpass);

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;
}

Batal