blob: 4b519ba0a6b8a45cf378fc26ed36c0b5aa2d159f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#!/usr/bin/perl -w
use strict;
use lib "/opt/vyatta/share/perl5/";
use Getopt::Long;
my $op='';
GetOptions("op=s" => \$op);
if ($op eq '') {
die 'No op specified';
}
if ($op eq 'clear-vpn-ipsec-process') {
system '/usr/sbin/ipsec setup restart';
}
if ($op eq 'show-vpn-debug') {
system '/usr/sbin/ipsec auto --status';
}
if ($op eq 'show-vpn-debug-detail') {
system '/usr/sbin/ipsec barf';
}
die "Unknown op: $op";
|
