Changeset 30455

Timestamp:

Feb 1, 2011, 3:07:54 PM (15 years ago)

Author:

bills

Message:

Allow files referenced in list to be nebulous paths

File:

• trunk/DataStoreServer/scripts/dsreg (modified) (1 diff)

trunk/DataStoreServer/scripts/dsreg

@@ -338 +338 @@
                 ## then copy or symlink the files into place
                 foreach my $ref (@files) {
-                    my $src = (defined $abspath ? '' : "$datapath/") . "$ref->{file}";
+                    my $src_path = (defined $abspath ? '' : "$datapath/") . "$ref->{file}";
                     my $filename = fileparse($ref->{file}, ());
                     my $dest = "$fileset_dir/$filename";
 
+                    my $src = $ipprc->file_resolve($src_path);
+                    if (!$src) {
+                        print STDERR "failed to resolve file $src_path\n";
+                        exit $PS_EXIT_SYS_ERROR;
+                    }
                     if ( !-e $src or !-r $src) {
                         print STDERR "source file $src does not exist or is not accessible\n";