Changeset 2112 for trunk/gsdl/src/recpt/collectoraction.cpp

Timestamp:

2001-03-05T12:19:24+13:00 (23 years ago)

Author:

sjboddie

Message:

Implemented export function in collector

File:

• trunk/gsdl/src/recpt/collectoraction.cpp (modified) (1 diff)

trunk/gsdl/src/recpt/collectoraction.cpp

@@ -1172 +1172 @@
   }
 
+  if (collector_page == "expt") {
+
+    // export the collection - we'll do a synchronous system call to
+    // exportcol.pl as that's the easiest way to do it. if it becomes a
+    // problem that it's taking too long to export a large collection then
+    // we may have to revisit this.
+    text_t tmpfile = filename_cat (gsdlhome, "tmp", collection + "_export.txt");
+    text_t export_cmd = "perl -S exportcol.pl -out " + tmpfile + " " + collection;
+    gsdl_system (export_cmd, true, logout);
+    if (file_exists (tmpfile)) {
+      text_t returnline = file_tail (tmpfile, 1, 0);
+      if (returnline.size() > 23 && (substr(returnline.begin(), returnline.begin()+23) == "exportcol.pl succeeded:")) {
+    // success
+    message = "exptsuccess";
+      } else {
+    message = "exptfail";
+      }
+    } else {
+      message = "exptfail";
+    }
+  }
+
   if (message.empty()) {
     if (collector_page != "bild") {