Cross Reference: ftp
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
lib
/
Net
/
demos
/
ftp
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
ftp revision 1
1
N/A
#!/
usr
/
local
/
bin
/
perl
1
N/A
1
N/A
use
blib
;
1
N/A
use
Net
::
FTP
;
1
N/A
use
Getopt
::
Long
;
1
N/A
1
N/A
$opt_debug
=
undef
;
1
N/A
$opt_firewall
=
undef
;
1
N/A
1
N/A
GetOptions
(
qw
(
debug
firewall
=s)
)
;
1
N/A
1
N/A
@
firewall
=
defined
$opt_firewall
?
(
Firewall
=>
$opt_firewall
)
:
()
;
1
N/A
1
N/A
foreach
$host
(@
ARGV
)
1
N/A
{
1
N/A
$ftp
=
Net
::
FTP
->
new
(
$host
, @
firewall
,
Debug
=>
$opt_debug
?
1
:
0
)
;
1
N/A
$ftp
->
login
()
;
1
N/A
print
$ftp
->
pwd
,
"\n"
;
1
N/A
$ftp
->
quit
;
1
N/A
}
1
N/A