Index: /trunk/PS-IPP-Config/lib/PS/IPP/Config.pm
===================================================================
--- /trunk/PS-IPP-Config/lib/PS/IPP/Config.pm	(revision 12798)
+++ /trunk/PS-IPP-Config/lib/PS/IPP/Config.pm	(revision 12799)
@@ -1,5 +1,5 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.33 2007-03-09 22:31:15 price Exp $
+# $Id: Config.pm,v 1.34 2007-04-11 01:58:02 eugene Exp $
 
 package PS::IPP::Config;
@@ -377,4 +377,45 @@
 }   
 
+# Return an EXTNAME From the EXTNAME.RULE table in the camera configuration
+##  sub extname_rule
+##  {
+##      my $self = shift;		# Configuration object
+##      my $name = shift;		# Name of the EXTNAME to build
+##      my $component = shift;	# For replacing {CHIP.NAME}
+##  
+##      unless (defined $self and defined $name) {
+##  	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 $extname_rules = _mdLookupMD($camera, 'EXTNAME.RULES');	# File rules
+##      unless (defined $extname_fules) {
+##  	carp "Can't find EXTNAME.RULES in camera configuration.\n";
+##  	return undef;
+##      }
+##  
+##      my $extname = _mdLookupStr($file, $name); # File name
+##      unless (defined $extname) {
+##  	carp "Can't find $name within EXTNAME.RULES in camera configuration.\n";
+##  	return undef;
+##      }
+##  
+##      if ($extname =~ /\{CHIP\.NAME\}/) {
+##  	unless (defined $component) {
+##  	    carp "Programming error";
+##  	    exit($PS_EXIT_PROG_ERROR);
+##  	}
+##  	$extname =~ s/\{CHIP\.NAME\}/$component/;
+##      }
+##  
+##      return $extname;
+##  }   
+
 # Return the DVO.CAMERADIR in the camera configuration
 sub dvo_cameradir
