Changeset 15

Timestamp:

1998-11-17T22:51:58+13:00 (25 years ago)

Author:

rjmcnab

Message:

Changed the calling of hashfile so that the program doesn't have
to end in .exe on unix platforms (consistent with other external
programs).

File:

• trunk/gsdl/perllib/doc.pm (modified) (2 diffs)

trunk/gsdl/perllib/doc.pm

@@ -118 +118 @@
     my ($filename) = @_;
 
-    my $hashfile_exe = "$ENV{'GSDLHOME'}/bin/$ENV{'GSDLOS'}/hashfile.exe";
+    my $osexe = &util::get_os_exe();
+
+    my $hashfile_exe = "$ENV{'GSDLHOME'}/bin/$ENV{'GSDLOS'}/hashfile$osexe";
     my $result = "NULL";
 
@@ -126 +128 @@
 
     } else {
-    print STDERR "doc::_calc_OID hashfile.exe could not be found\n";
+    print STDERR "doc::_calc_OID hashfile_exe could not be found\n";
     }