Changeset 12358

Timestamp:

Mar 8, 2007, 4:10:09 PM (19 years ago)

Author:

Paul Price

Message:

Adding dvo_cameradir to return DVO.CAMERADIR within the camera configuration.

File:

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

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

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.31 2007-02-16 20:58:15 price Exp $
+# $Id: Config.pm,v 1.32 2007-03-09 02:10:09 price Exp $
 
 package PS::IPP::Config;
@@ -377 +377 @@
 }   
 
+# Return the DVO.CAMERADIR in the camera configuration
+sub dvo_cameradir
+{
+    my $self = shift;           # Configuration object
+
+    unless (defined $self) {
+        carp "Programming error";
+        exit($PS_EXIT_PROG_ERROR);
+    }
+
+    my $camera = $self->{camera}; # Camera configuration
+    unless (defined $camera) {
+        carp "Camera has not yet been defined.\n";
+        return undef;
+    }
+
+    my $dir = _mdLookupStr($file, "DVO.CAMERADIR"); # Directory of interest
+    unless (defined $filename) {
+        carp "Can't find DVO.CAMERADIR in camera configuration.\n";
+        return undef;
+    }
+
+    return $dir;
+}
 
 # Interpolate environment variables in a directory (or colon-delimited list of directories)