Cisco Cisco ASA 5580 Adaptive Security Appliance Leaflet

     $turl =~ s/\/\+//;

     $turl =~ s/\+\//-/;

     $cli = "export webvpn webcontent $url $storage/$prompt-$date-$turl";

     $ocli = $cli;

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

     print "$cli\n";

     print OUT "$ocli\n";

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

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

   }

}

sub login {

    $obj = shift;

    $obj->raw_pty(1);

    $obj->log_stdout(0); #turn off console logging.

    $obj->spawn("/usr/bin/ssh $user\@$asa") or die "can't spawn ssh\n";

    unless ($obj->expect(15, "password:" )) {

        die "timeout waiting for password:\n";

    }

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

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

        die "timeout waiting for $prompt>\n";

    }

}

sub finish {

    $obj = shift;

    $obj->hard_close();

    print "\n\n";

}

sub restore {

   $obj = shift;

   my $file = shift;

   my $output;

   open(IN,"$file") or die "can't open $file\n";

   while (<IN>) {

      $obj->send("$_");

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

      $output = $obj->before();

      print "$output\n";

   }

   close(IN);

}

sub process_options {

  if (defined($options{s})) {

      $tstr= $options{s};

      $storage = "tftp://$tstr";

  }

  else {

      print "Enter TFTP host name or IP address:";

      chop($tstr=<>);

      $storage = "tftp://$tstr";

  }

  if (defined($options{h})) {

      $asa = $options{h};

  }

  else {

      print "Enter ASA host name or IP address:";