From d2de5c5263822a0c3bfa625f8d7cb3a2baa9377c Mon Sep 17 00:00:00 2001
From: Stig Thormodsrud <stig@uffda.(none)>
Date: Mon, 5 Nov 2007 17:30:38 -0800
Subject: Add ospf area validation and fix tab completion for router-id.

---
 scripts/vyatta_quagga_utils.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'scripts')

diff --git a/scripts/vyatta_quagga_utils.pl b/scripts/vyatta_quagga_utils.pl
index 2b5b05ac..d64be3a9 100644
--- a/scripts/vyatta_quagga_utils.pl
+++ b/scripts/vyatta_quagga_utils.pl
@@ -8,11 +8,13 @@ use Getopt::Long;
 GetOptions("check-prefix-boundry=s" => \$prefix,
            "not-exists=s"           => \$notexists,
 	   "exists=s"		    => \$exists,
+	   "check-ospf-area=s"      => \$area,
 );
 
 if (defined $prefix)    { check_prefix_boundry($prefix); }
 if (defined $notexists) { check_not_exists($notexists); }
 if (defined $exists)    { check_exists($exists); }
+if (defined $area)      { check_ospf_area($area); }
 
 exit 0;
 
@@ -52,3 +54,19 @@ sub check_not_exists() {
   exit 1;
 }
 
+sub check_ospf_area() {
+    my $area = shift;
+    
+    if ($area =~ m/^\d+$/) {
+	if ($area >= 0 && $area <= 4294967295) {
+	    return 0;
+	}
+    }
+
+    if (isIpAddress($area)) {
+	return 0;
+    }
+    print "invalid ospf area\n";
+    exit 1;
+}
+
-- 
cgit v1.2.3