Index: /trunk/PS-IPP-Config/lib/PS/IPP/Config.pm
===================================================================
--- /trunk/PS-IPP-Config/lib/PS/IPP/Config.pm	(revision 12357)
+++ /trunk/PS-IPP-Config/lib/PS/IPP/Config.pm	(revision 12358)
@@ -1,5 +1,5 @@
 # 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,4 +377,28 @@
 }   
 
+# 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)