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

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

   for (@items) {

     chop;

     next if /^Template/ or /show import/ or /^\s*$/ or /No bookmarks/;

     $cli="export webvpn url-list $_ $storage/$prompt-$date-urllist-$_.xml";

     $ocli = $cli;

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

     print "$cli\n";

     print OUT "$ocli\n";

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

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

   }

}

sub dap {

   $obj = shift;

   $obj->clear_accum();

   $obj->send("dir dap.xml\n");

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

   $output = $obj->before();

   return 0 if($output =~ /Error/);

   $cli="copy /noconfirm dap.xml $storage/$prompt-$date-dap.xml";

   $ocli="copy /noconfirm $storage/$prompt-$date-dap.xml disk0:/dap.xml";

   print "$cli\n";

   print OUT "$ocli\n";

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

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

}

sub csd {

   $obj = shift;

   $obj->clear_accum();

   $obj->send("dir sdesktop\n");

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

   $output = $obj->before();

   return 0 if($output =~ /Error/);

   $cli="copy /noconfirm sdesktop/data.xml $storage/$prompt-$date-data.xml";

   $ocli="copy /noconfirm $storage/$prompt-$date-data.xml disk0:/sdesktop/data.xml";

   print "$cli\n";

   print OUT "$ocli\n";

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

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

}

sub webcontent {

   $obj = shift;

   $obj->clear_accum();

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

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

   $output = $obj->before();

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

   for (@items) {

     s/^\s+//;

     s/\s+$//;

     next if /show import/ or /No custom/;

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

     ($url, $type) = split(/\s+/,$_);

     $turl = $url;