Cisco ASA Series Cli Configuration Manual page 2084

Backing Up Configurations or Other Files
sub restore {
$obj = shift;
my $file = shift;
my $output;
open(IN,"$file") or die "can't open $file\n";
while (<IN>) {
}
close(IN);
}
sub process_options {
if (defined($options{s})) {
}
else {
}
if (defined($options{h})) {
}
else {
}
if (defined ($options{u})) {
}
else {
}
if (defined ($options{w})) {
}
else {
}
if (defined ($options{p})) {
}
else {
}
if (defined ($options{e})) {
}
else {
}
if (defined ($options{r})) {
Cisco ASA Series CLI Configuration Guide
1-24
$obj->send("$_");
$obj->expect(15, "$prompt#" );
$output = $obj->before();
print "$output\n";
$tstr= $options{s};
$storage = "tftp://$tstr";
print "Enter TFTP host name or IP address:";
chop($tstr=<>);
$storage = "tftp://$tstr";
$asa = $options{h};
print "Enter ASA host name or IP address:";
chop($asa=<>);
$user= $options{u};
print "Enter user name:";
chop($user=<>);
$password= $options{w};
print "Enter password:";
chop($password=<>);
$prompt= $options{p};
print "Enter ASA prompt:";
chop($prompt=<>);
$enable = $options{e};
print "Enter enable password:";
chop($enable=<>);
Chapter 1 Managing Software and Configurations