Changeset 4127 in genesis for tools

Timestamp:

Mar 20, 2005, 10:22:03 PM (20 years ago)

Author:

rick

Message:

Werkt niet

File:

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

tools/g_list.pl

@@ -75 +75 @@
 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
-    printline("<H2>Please wait while updating svn...</H2><P><PRE>");
-    exec '$svn update $home';
+    system '$svn update $home';
     printline("</PRE>");
     printline("<H2>Done.<H2><P>");