Cisco Cisco ASA 5555-X Adaptive Security Appliance 产品宣传页

$asa = '';

$storage = '';

$user = '';

$password = '';

$enable = '';

$prompt = '';

$date = 'date +%F';

chop($date);

my $exp = new Expect();

getopts("h:u:p:w:e:s:r:",\%options);

do process_options();

do login($exp);

do enable($exp);

if ($restore) {

   do restore($exp,$restore_file);

}

else {

   $restore_file = "$prompt-restore-$date.cli";

   open(OUT,">$restore_file") or die "Can't open $restore_file\n";

   do running_config($exp);

   do lang_trans($exp);

   do customization($exp);

   do plugin($exp);

   do url_list($exp);

   do webcontent($exp);

   do dap($exp);

   do csd($exp);

   close(OUT);

}

do finish($exp);

sub enable {

   $obj = shift;

   $obj->send("enable\n");

   unless ($obj->expect(15, 'Password:')) {

      print "timed out waiting for Password:\n";

   }

   $obj->send("$enable\n");

   unless ($obj->expect(15, "$prompt#")) {

      print "timed out waiting for $prompt#\n";

   }

}

sub lang_trans {

   $obj = shift;

   $obj->clear_accum();

   $obj->send("show import webvpn translation-table\n");

   $obj->expect(15, "$prompt#" );

   $output = $obj->before();

   @items = split(/\n+/, $output);

   for (@items) {

     s/^\s+//;

     s/\s+$//;

     next if /show import/ or /Translation Tables/;

     next unless (/^.+\s+.+$/);

     ($lang, $transtable) = split(/\s+/,$_);

     $cli = "export webvpn translation-table $transtable language $lang 

$storage/$prompt-$date-$transtable-$lang.po";

     $ocli = $cli;

     $ocli =~ s/^export/import/;

     print "$cli\n";