From fed73592cfd6fd2f87aad1669d1b9ebecfa03cdc Mon Sep 17 00:00:00 2001
From: Stephen Hemminger <stephen.hemminger@vyatta.com>
Date: Tue, 2 Feb 2010 09:12:36 -0800
Subject: Static host-name mapping changes

Fix help text (Bug 5254) and allow IPV6 static mapping (Bug 5298)
---
 scripts/check-ipv4-ipv6.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 scripts/check-ipv4-ipv6.pl

(limited to 'scripts/check-ipv4-ipv6.pl')

diff --git a/scripts/check-ipv4-ipv6.pl b/scripts/check-ipv4-ipv6.pl
new file mode 100644
index 00000000..0816ebee
--- /dev/null
+++ b/scripts/check-ipv4-ipv6.pl
@@ -0,0 +1,12 @@
+#! /usr/bin/perl
+
+# Trivial script to check for valid IPv4 or IPv6 address
+
+use strict;
+use NetAddr::IP; 
+
+foreach my $addr (@ARGV) {
+    die "$addr: not valid a valid IPv4 or IPv6 address\n"
+	unless new NetAddr::IP $addr;
+}
+
-- 
cgit v1.2.3