Initialize variable and check for invalid args.

1 files changed, 9 insertions, 5 deletions

diff --git a/scripts/vyatta-vpn-op.pl b/scripts/vyatta-vpn-op.pl
index bd785e2..4b519ba 100755
--- a/scripts/vyatta-vpn-op.pl
+++ b/scripts/vyatta-vpn-op.pl
@@ -4,9 +4,16 @@ use strict;
 use lib "/opt/vyatta/share/perl5/";
 
 use Getopt::Long;
-my $op;
+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';
 }
@@ -14,8 +21,5 @@ if ($op eq 'show-vpn-debug-detail') {
 	system '/usr/sbin/ipsec barf';
 }
 
-if ($op eq 'clear-vpn-ipsec-process') {
-	system '/usr/sbin/ipsec setup restart';
-}
-
+die "Unknown op: $op";