From cfa368bbc1d4c55c42c60838e04fc523625932b7 Mon Sep 17 00:00:00 2001
From: An-Cheng Huang <ancheng@vyatta.com>
Date: Mon, 1 Oct 2007 13:14:31 -0700
Subject: initial import (from eureka /cli).

---
 scripts/bgp/vyatta-bgp.pl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 scripts/bgp/vyatta-bgp.pl

(limited to 'scripts/bgp')

diff --git a/scripts/bgp/vyatta-bgp.pl b/scripts/bgp/vyatta-bgp.pl
new file mode 100755
index 00000000..d20ad8fa
--- /dev/null
+++ b/scripts/bgp/vyatta-bgp.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+use lib "/opt/vyatta/share/perl5/";
+use VyattaMisc;
+use Getopt::Long;
+
+GetOptions("check-peer-name=s"      => \$peername,
+);
+
+if (defined $peername) { check_peer_name($peername); }
+
+exit 0;
+
+sub check_peer_name() {
+  my $neighbor = shift;
+
+  $_ = $neighbor;
+  if ((! isIpAddress("$neighbor")) && (/[\s\W]/g)) { 
+    print "malformed neighbor address $neighbor\n";
+    exit 1;
+  }
+  exit 0;
+}
-- 
cgit v1.2.3