Changeset 20851

Timestamp:

Nov 26, 2008, 10:48:26 AM (17 years ago)

Author:

Paul Price

Message:

Allowing use of filenames other than Nebulous.

File:

• trunk/tools/stack_inputs.pl (modified) (1 diff)

trunk/tools/stack_inputs.pl

@@ -71 +71 @@
     foreach my $type ( keys %{EXTENSIONS()} ) {
         my $ext = ${EXTENSIONS()}{$type}; # Extension
-        my $neb = "$warp_path$ext"; # Nebulous file
-        my $source = `neb-locate --path $neb` or die "Unable to locate $neb\n"; # Actual file
+        my $file = "$warp_path$ext"; # File
+        my $source = `ipp_datapath.pl $file` or die "Unable to locate $file\n"; # Resolved file name
         chomp $source;
-        my ($target) = $source =~ m|^.*:(.*)|; # Target name
+        my ($target) = $source =~ m|^.*[:/](.*)|; # Target name
         !system "cp $source $target" or die "Unable to copy $source\n";
         print $list "\t$type\tSTR\t$target\n" if defined $input;