From beae8c6231ead94e2ea704ccce6ee39d4e22f594 Mon Sep 17 00:00:00 2001
From: Bob Gilligan <gilligan@vyatta.com>
Date: Wed, 4 Feb 2009 14:37:21 -0800
Subject: Add type checking functions for 16- and 32-bit hexadecimal values.

---
 lib/Vyatta/TypeChecker.pm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/lib/Vyatta/TypeChecker.pm b/lib/Vyatta/TypeChecker.pm
index 37f365d..89b8932 100755
--- a/lib/Vyatta/TypeChecker.pm
+++ b/lib/Vyatta/TypeChecker.pm
@@ -67,6 +67,8 @@ my %type_handler = (
 		    'ipv6_negate' => \&validate_ipv6_negate,
 		    'ipv6net' => \&validate_ipv6net,
 		    'ipv6net_negate' => \&validate_ipv6net_negate,
+		    'hex16' => \&validate_hex_16_bits,
+		    'hex32' => \&validate_hex_32_bits,
                    );
 
 sub validate_ipv4 {
@@ -222,6 +224,20 @@ sub validate_ipv6net_negate {
   return validate_ipv6net($value);
 }
 
+# Validate a 16-bit hex value, no leading "0x"
+sub validate_hex_16_bits {
+  my $value = shift;
+  $value = lc $value;
+  return 1 if ($value =~ /^[0-9a-f]{4}$/)
+}
+
+# Validate a 32-bit hex value, no leading "0x"
+sub validate_hex_32_bits {
+  my $value = shift;
+  $value = lc $value;
+  return 1 if ($value =~ /^[0-9a-f]{8}$/)
+}
+
 sub validateType {
   my ($type, $value, $quiet) = @_;
   if (!defined($type) || !defined($value)) {
-- 
cgit v1.2.3