Changeset 29749

Timestamp:

Nov 10, 2010, 3:22:01 PM (15 years ago)

Author:

bills

Message:

add metadataLookupS32 to avoid errors from reading site.config

File:

• tags/ipp-20101029/PS-IPP-Config/lib/PS/IPP/Config.pm (modified) (4 diffs, 1 prop)

tags/ipp-20101029/PS-IPP-Config/lib/PS/IPP/Config.pm

@@ -39 +39 @@
                     metadataLookupMD
                     metadataLookupBool
+                    metadataLookupS32
                     caturi
                     file_scheme
@@ -353 +354 @@
     my $dbuser = metadataLookupStr($self->{_siteConfig}, "DBUSER");
     my $dbpassword = metadataLookupStr($self->{_siteConfig}, "DBPASSWORD");
-    my $dbport = metadataLookupStr($self->{_siteConfig}, "DBPORT");
+    my $dbport = metadataLookupS32($self->{_siteConfig}, "DBPORT");
     my $admindb = "ippadmin";
 
@@ -1371 +1372 @@
     return undef if not defined $item;
     my $name = shift;                # Name of item
-    carp "$name within metadata is not of type STR.\n" unless $item->{type} eq "STR";
+    carp "$name within metadata is type $item->{type} not STR.\n" unless $item->{type} eq "STR";
+    return $item->{value};
+}
+
+# Lookup the metadata, checking the type is S32
+sub metadataLookupS32
+{
+    my $item = metadataLookup(@_);
+    return undef if not defined $item;
+    my $name = shift;                # Name of item
+    carp "$name within metadata is type $item->{type} not S32.\n" unless $item->{type} eq "S32";
     return $item->{value};
 }
@@ -1391 +1402 @@
     return undef if not defined $item;
     my $name = shift;                # Name of item
-    carp "$name within metadata is not of type BOOL.\n" unless $item->{type} eq "BOOL";
+    carp "$name within metadata is type $item->{type} not BOOL.\n" unless $item->{type} eq "BOOL";
     return $item->{value};
 }