Changeset 26873 for branches/eam_branches/20091201/ippScripts/scripts/ipp_image_path.pl

Timestamp:

Feb 10, 2010, 4:16:03 PM (16 years ago)

Author:

eugene

Message:

updates from trunk

File:

• branches/eam_branches/20091201/ippScripts/scripts/ipp_image_path.pl (modified) (3 diffs)

branches/eam_branches/20091201/ippScripts/scripts/ipp_image_path.pl

@@ -19 +19 @@
 use PS::IPP::Metadata::Config;
 use PS::IPP::Config 1.01 qw( :standard );
+use Nebulous::Client;
 
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
 use Pod::Usage qw( pod2usage );
 
-my ($exp_name, $class_id, $from_registered, $dbname, $verbose);
+my ($exp_name, $class_id, $from_registered, $dbname, $verbose, $alternate);
 
 GetOptions(
@@ -31 +32 @@
     'dbname|d=s'    => \$dbname, # Database name    
     'verbose'       => \$verbose,   # Print to stdout
+    'alternate'     => \$alternate,
 ) or pod2usage( 2 );
 
@@ -99 +101 @@
                 $path = resolve_ipp008_file($uri);
             } elsif ($use_017_workaround && ($uri =~ /4683/) &&
-                    ($uri =~ /ipp017/)) {
+                     ($uri =~ /ipp017/)) {
                 $path = resolve_ipp017_file($uri);
-            } else {
+            } elsif ($alternate) {
+                my $neb = $ipprc->nebulous();
+                my $uris = $neb->find_instances($uri,'any');
+                my @files = map {URI->new($_)->file if $_} @$uris;
+
+                if ($#files > 0) {
+                    $path = $files[1];
+                }
+                else {
+                    $path = $files[0];
+                }
+
+            }
+            else {
                 $path = $ipprc->file_resolve($uri);
             }