| rjw | 6c1fd8f | 2022-11-30 14:33:01 +0800 | [diff] [blame] | 1 | use Net::FTP; |
| 2 | $ftp = Net::FTP->new("10.15.10.34", Debug => 0) or die "Cannot connect to RD3 ftp: $@"; | ||||
| 3 | $ftp->login("rd3build",'xu06z8dkrd3') or die "Cannot login ", $ftp->message; | ||||
| 4 | $ftp->binary or die "Can not change to binarry mode\n"; | ||||
| 5 | if(!-e $ARGV[0]){ | ||||
| 6 | die "Can not find file:".$ARGV[0]."\n"; | ||||
| 7 | } | ||||
| 8 | $ftp->put("$ARGV[0]") or die "Upload failed ", $ftp->message; | ||||
| 9 | $ftp->quit; | ||||
| 10 | |||||
| 11 | exit 0; | ||||