Changeset 7037 in genesis

Timestamp:

Jul 11, 2009, 9:17:30 AM (15 years ago)

Author:

rick

Message:

Make the update button work again (not live output anymore, but working it is :-))

File:

• tools/iris/g_list.pl (modified) (1 diff)

tools/iris/g_list.pl

@@ -94 +94 @@
 if( $node eq '') {
   if( $ENV{"QUERY_STRING"}=~/update/i) {
-    printline("<H2>Please wait while updating svn...</H2><P><PRE>");
-    select(STDERR); $| = 1;     # make unbuffered
-    select(STDOUT); $| = 1;     # make unbuffered
-    system("$svn update $ndir");
+    printline("<PRE>");
+    #select(STDERR); $| = 1;     # make unbuffered
+    #select(STDOUT); $| = 1;     # make unbuffered
+    printline(`$svn update $ndir`);
     printline("</PRE>");
     printline("<H2>Done.<H2><P>");