1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
package Net::FTP;
our @ISA = qw();
sub DESTROY() {}
sub _ABOR() {}
sub _ACCT() {}
sub _ALLO() {}
sub _APPE() {}
sub _AUTH() {}
sub _CDUP() {}
sub _CWD() {}
sub _DELE() {}
sub _FEAT() {}
sub _HELP() {}
sub _LIST() {}
sub _MDTM() {}
sub _MKD() {}
sub _MODE() {}
sub _NLST() {}
sub _NOOP() {}
sub _PASS() {}
sub _PASV() {}
sub _PORT() {}
sub _PWD() {}
sub _QUIT() {}
sub _REIN() {}
sub _RESP() {}
sub _REST() {}
sub _RETR() {}
sub _RMD() {}
sub _RNFR() {}
sub _RNTO() {}
sub _SIZE() {}
sub _SMNT() {}
sub _STAT() {}
sub _STOR() {}
sub _STOU() {}
sub _STRU() {}
sub _SYST() {}
sub _TYPE() {}
sub _USER() {}
sub _auth_id { my ($_ftp, $_auth, $_o_resp) = @_ }
sub _data_cmd() {}
sub _dataconn() {}
sub _extract_path { my ($_ftp, $_o_path) = @_ }
sub _list_cmd() {}
sub _store_cmd { my ($_ftp, $_cmd, $_local, $_o_remote) = @_ }
sub abort() {}
sub account() {}
sub alloc() {}
sub appe() {}
sub append() {}
sub ascii() {}
sub authorise() {}
sub authorize() {}
sub binary() {}
sub byte() {}
sub cdup() {}
sub cmd() {}
sub command() {}
sub cwd { my ($_ftp, $_o_dir) = @_ }
sub debug_text() {}
sub delete() {}
sub dir() {}
sub ebcdic() {}
sub feature { my ($_ftp, $_o_feat) = @_ }
sub get { my ($_ftp, $_remote, $_local, $_o_where) = @_ }
sub hash { my ($_h, $_o_b) = @_ }
sub host() {}
sub list() {}
sub login { my ($_ftp, $_user, $_pass, $_o_acct) = @_ }
sub ls() {}
sub lsl() {}
sub mdtm() {}
sub mkdir { my ($_ftp, $_dir, $_o_recurse) = @_ }
sub new { my (@_more_paras) = @_ }
sub nlst() {}
sub parse_response() {}
sub pasv() {}
sub pasv_wait { my ($_ftp, $_o_non_pasv) = @_ }
sub pasv_xfer { my ($_sftp, $_sfile, $_dftp, $_dfile, $_o_unique) = @_ }
sub pasv_xfer_unique { my ($_sftp, $_sfile, $_dftp, $_o_dfile) = @_ }
sub port { my ($_ftp, $_o_port) = @_ }
sub put() {}
sub put_unique() {}
sub pwd() {}
sub quit() {}
sub quot() {}
sub rename { my ($_ftp, $_from, $_o_to) = @_ }
sub response() {}
sub restart { my ($_ftp, $_o_where) = @_ }
sub retr() {}
sub rmdir { my ($_ftp, $_dir, $_o_recurse) = @_ }
sub site() {}
sub size { my ($_ftp, $_o_file) = @_ }
sub stor() {}
sub stou() {}
sub supported() {}
sub type() {}
sub unique_name() {}
package Net::FTP::A;
our @ISA = qw();
sub read { my ($_o_timeout) = @_ }
sub write { my ($_o_timeout) = @_ }
package Net::FTP::I;
our @ISA = qw();
sub read { my ($_o_timeout) = @_ }
sub write { my ($_o_timeout) = @_ }
package Net::FTP::dataconn;
our @ISA = qw();
sub _close() {}
sub _select { my ($_data, $_timeout, $_o_do_read) = @_ }
sub abort() {}
sub bytes_read() {}
sub can_read() {}
sub can_write() {}
sub close() {}
sub cmd() {}
sub reading() {}
|
