Changeset 14575 for trunk/PS-IPP-Config/lib/PS/IPP/Config.pm

Timestamp:

Aug 20, 2007, 3:53:13 PM (19 years ago)

Author:

Paul Price

Message:

Adding function to lookup boolean value.

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Config.pm (modified) (3 diffs)

trunk/PS-IPP-Config/lib/PS/IPP/Config.pm

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.63 2007-08-01 20:50:32 jhoblitt Exp $
+# $Id: Config.pm,v 1.64 2007-08-21 01:53:13 price Exp $
 
 package PS::IPP::Config;
@@ -29 +29 @@
                     metadataLookupStr
                     metadataLookupMD
+                    metadataLookupBool
                     caturi
                     );
@@ -881 +882 @@
 }
 
+# Lookup the metadata, checking the type is BOOL
+sub metadataLookupBool
+{
+    my $mdc = shift;            # Metadata config to look up
+    my $name = shift;           # Name of item to look ip
+
+    unless (defined $mdc and defined $name) {
+        carp "Programming error";
+        exit($PS_EXIT_PROG_ERROR);
+    }
+
+    # Iterate through the array of hashes
+    foreach my $item (@$mdc) {
+        if ($item->{name} eq $name) {
+            carp "$name within metadata is not of type BOOL.\n" unless $item->{class} eq "bool";
+            return $item->{value};
+        }
+    }
+
+    carp "Unable to find $name within metadata.\n";
+    return undef;
+}
+
 # Lookup the metadata, checking the type is MD; may be redirection
 sub _mdLookupMDwithRedirect