Changeset 619 for trunk/gsdl/perllib/util.pm

Timestamp:

1999-09-22T12:18:59+12:00 (25 years ago)

Author:

sjboddie

Message:

Added function to form hard link between two files
(used for handling images sensibly during building of

HTML pages)

File:

• trunk/gsdl/perllib/util.pm (modified) (3 diffs)

trunk/gsdl/perllib/util.pm

@@ -27 +27 @@
 
 use File::Copy;
+use File::Basename;
 
 
@@ -210 +211 @@
 }
 
+# make hard link to file if supported by OS, otherwise copy the file
+sub hard_link {
+    my ($src,$dest) = @_;
+
+    # remove trailing slashes from source and destination files
+    $src =~ s/[\\\/]+$//;
+    $dest =~ s/[\\\/]+$//;
+
+    # a few sanity checks
+    if (!-e $src) {
+    print STDERR "util::hard_link source file $src does not exist\n";
+    return;
+    }
+    elsif (-d $src) {
+    print STDERR "util::hard_link source $src is a directory\n";
+    return;
+    }
+
+    my $dest_dir = &File::Basename::dirname($dest);
+    mk_all_dir($dest_dir) if (!-e $dest_dir);
+
+    if (!link($src,$dest))
+    {
+    print STDERR "util::hard_link: unable to create hard link. ";
+    print STDERR " Attempting to copy file: $src -> $dest\n";
+    &File::Copy::copy ($src, $dest);
+    }
+    
+}
+
+
+
 
 # updates a copy of a directory in some other part of the filesystem
@@ -374 +407 @@
 }
 
+sub get_os_dirsep {
+
+    if ($ENV{'GSDLOS'} =~ /^windows$/i) {
+    return "\\\\";
+    } else {
+    return "\\\/";
+    }
+}
+
+sub get_re_dirsep {
+
+    return "\\\\|\\\/";
+}
+
 
 # if this is running on windows we want binaries to end in