Changeset 1783 for trunk/gsdl/lib

Timestamp:

2000-12-12T11:51:57+13:00 (23 years ago)

Author:

sjboddie

Message:

Added a check to make sure perl is functional before using the collector

Location:

trunk/gsdl/lib

Files:

• gsdltools.cpp (modified) (1 diff)
• gsdltools.h (modified) (1 diff)

trunk/gsdl/lib/gsdltools.cpp

@@ -167 +167 @@
   return rv;
 }
+
+// attempts to work out if perl is functional
+bool perl_ok () {
+  int i = system ("perl -e exit(-10)");
+  return (i == -10);
+}

trunk/gsdl/lib/gsdltools.h

@@ -70 +70 @@
 int gsdl_call_perl (char *perl_cmd, ...);
 
+// attempts to work out if perl is functional
+bool perl_ok ();
 
 #endif