Changeset 7681

Timestamp:

2004-07-01T09:16:17+12:00 (20 years ago)

Author:

jrm21

Message:

more portable way of reading config file

File:

• trunk/gsdl/perllib/plugins/DBPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/DBPlug.pm

@@ -134 +134 @@
 
     # read in config file.
-    eval `cat $filename`;
+    if (!open (CONF, $filename)) {
+        print $outhandle "DBPlug: can't read $filename: $!\n";
+        return 0;
+    }
+    undef $/;       # don't use \n as line separator
+    my $conf = <CONF>;  # reads in whole file
+    $/ = "\n";      # set line separator back
+    close CONF;
+    eval $conf;     # execute the perl commands in that file
 
     if (!defined($db)) {