?? ftp.pm
字號(hào):
package URI::URL::ftp;require URI::URL::_generic;@ISA = qw(URI::URL::_generic);sub default_port { 21 }sub _parse { my($self, $init) = @_; # The ftp URLs can't have any query string $self->URI::URL::_generic::_parse($init, qw(netloc path params frag)); 1;}sub user{ my($self, @val) = @_; my $old = $self->SUPER::user(@val); defined $old ? $old : "anonymous";}BEGIN { $whoami = undef; $fqdn = undef;}sub password{ my($self, @val) = @_; my $old = $self->SUPER::password(@val); unless (defined $old) { my $user = $self->user; if ($user eq 'anonymous' || $user eq 'ftp') { # anonymous ftp login password unless (defined $fqdn) { eval { require Net::Domain; $fqdn = Net::Domain::hostfqdn(); }; if ($@) { $fqdn = ''; } } unless (defined $whoami) { $whoami = $ENV{USER} || $ENV{LOGNAME} || $ENV{USERNAME}; unless ($whoami) { if ($^O eq 'MSWin32') { $whoami = Win32::LoginName() } else { $whoami = getlogin || getpwuid($<) || 'unknown'; } } } $old = "$whoami\@$fqdn"; } else { $old = ""; } } $old;}sub crack{ my $self = shift; my @c = $self->SUPER::crack; if ($c[3] && !$c[1]) { # hostname defined, but user is undefined $c[1] = $self->user; $c[2] = $self->password; } @c;}*query = \&URI::URL::bad_method;*equery = \&URI::URL::bad_method;1;
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -