projects
/
OpenSPARC-T2-DV
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Initial commit of OpenSPARC T2 design and verification files.
[OpenSPARC-T2-DV]
/
tools
/
perl-5.8.0
/
lib
/
5.8.0
/
Net
/
demos
/
ftp
#!/usr/local/bin/perl
use
blib
;
use
Net
::
FTP
;
use
Getopt
::
Long
;
$opt_debug
=
undef
;
$opt_firewall
=
undef
;
GetOptions
(
qw(debug firewall=s)
);
@firewall
=
defined
$opt_firewall
?
(
Firewall
=>
$opt_firewall
) : ();
foreach
$host
(
@ARGV
)
{
$ftp
=
Net
::
FTP
->
new
(
$host
,
@firewall
,
Debug
=>
$opt_debug
?
1
:
0
);
$ftp
->
login
();
print
$ftp
->
pwd
,
"
\n
"
;
$ftp
->
quit
;
}