Changeset 17669 for trunk/ippScripts/scripts
- Timestamp:
- May 13, 2008, 4:18:40 PM (18 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/ipp_image_path.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/ipp_image_path.pl
r17663 r17669 77 77 my ($scheme) = $uri =~/^(path|neb|file):/; 78 78 79 # XXX: I'd like to just use file_resolve but it doesn't currently80 # work for nebulous paths81 79 if (!$scheme) { 82 80 $path = $uri; 83 81 } else { 84 if (lc($scheme) ne "neb") { 85 $path = $ipprc->file_resolve($uri); 86 } else { 87 # use neb-locate 88 my $command = "$neb_locate $uri"; 89 my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = 90 run(command => $command, verbose => $verbose); 91 unless ($success) { 92 $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR); 93 warn ("Unable to run $command: $error_code"); 94 exit($error_code); 95 } 96 $path = "@$stdout_buf"; 97 chomp $path; 98 } 82 $path = $ipprc->file_resolve($uri); 99 83 } 100 84 if ($path) {
Note:
See TracChangeset
for help on using the changeset viewer.
