Changeset 13937 for trunk/PS-IPP-Config/lib/PS/IPP/Config.pm
- Timestamp:
- Jun 21, 2007, 2:10:11 PM (19 years ago)
- File:
-
- 1 edited
-
trunk/PS-IPP-Config/lib/PS/IPP/Config.pm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/PS-IPP-Config/lib/PS/IPP/Config.pm
r13789 r13937 1 1 # Copyright (c) 2006 Paul Price, Joshua Hoblitt 2 2 # 3 # $Id: Config.pm,v 1.6 1 2007-06-13 19:17:50 eugene Exp $3 # $Id: Config.pm,v 1.62 2007-06-22 00:10:10 price Exp $ 4 4 5 5 package PS::IPP::Config; … … 783 783 } 784 784 785 # Given a reduction class name (and a previously defined camera) and a 786 # symbolic name for the recipe, return the actual name of the recipe. 787 sub reduction 788 { 789 my $self = shift; # Configuration object 790 my $reduction = shift; # Reduction class 791 my $name = shift; # Symbolic name of recipe 792 793 unless (defined $self and defined $reduction and defined $name) { 794 carp "Programming error --- inputs undefined"; 795 exit($PS_EXIT_PROG_ERROR); 796 } 797 798 my $camera = $self->{camera}; # Camera configuration 799 unless (defined $camera) { 800 carp "Camera has not yet been defined.\n"; 801 return undef; 802 } 803 804 my $classes = metadataLookupMD($camera, "REDUCTION") or # Reduction classes 805 (carp "Can't find REDUCTION in camera configuration.\n" and exit($PS_EXIT_CONFIG_ERROR)); 806 807 my $class = metadataLookupMD($classes, $reduction) or # Class of interest 808 (carp "Can't find $reduction in REDUCTION in camera configuration.\n" and 809 exit($PS_EXIT_CONFIG_ERROR)); 810 811 my $actual = metadataLookupStr($class, $name) or # The actual recipe name of interest 812 (carp "Can't find $name in $class in REDUCTION in camera configuration.\n" and 813 exit($PS_EXIT_CONFIG_ERROR)); 814 815 return $actual; 816 } 817 785 818 # Interpolate environment variables in a directory (or colon-delimited list of directories) 786 819 sub _interpolate_env
Note:
See TracChangeset
for help on using the changeset viewer.
