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

     print OUT "$ocli\n";

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

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

   }

}

sub running_config {

  $obj = shift;

  $obj->clear_accum();

  $cli ="copy /noconfirm running-config $storage/$prompt-$date.cfg";

  print "$cli\n";

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

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

}

sub customization {

  $obj = shift;

  $obj->clear_accum();

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

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

  $output = $obj->before();

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

  for (@items) {

    chop;

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

    $cli = "export webvpn customization $_ $storage/$prompt-$date-cust-$_.xml";

    $ocli = $cli;

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

    print "$cli\n";

    print OUT "$ocli\n";

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

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

  }

}

sub plugin {

   $obj = shift;

   $obj->clear_accum();

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

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

   $output = $obj->before();

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

   for (@items) {

     chop;

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

     $cli = "export webvpn plug-in protocol $_ $storage/$prompt-$date-plugin-$_.jar";

     $ocli = $cli;

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

     print "$cli\n";

     print OUT "$ocli\n";

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

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

   }

}

sub url_list {

   $obj = shift;

   $obj->clear_accum();

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

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

   $output = $obj->before();