Telefonní systém kosmické lodi Hipporion ze SKSP2019
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

25 lines
436 B

# (c) Pali 2019, Perl license
use strict;
use warnings;
use Net::Telnet;
die "Usage: $0 host pass\n" unless @ARGV == 2;
my $host = $ARGV[0];
my $pass = $ARGV[1];
my $t = Net::Telnet->new(Timeout => 3, Prompt => '/[^\n]*> $/');
$t->waitfor('/Password :$/');
$t->cmd('erase protflash');
# TODO: check if erase was allowed