Changeset 8677 in genesis for config/iris/node/FreeBSD/8.0-RELEASE/g_list.pl

Timestamp:

Nov 30, 2010, 12:12:47 AM (14 years ago)

Author:

richardvm

Message:

uri wasn't right

File:

• config/iris/node/FreeBSD/8.0-RELEASE/g_list.pl (modified) (4 diffs)

config/iris/node/FreeBSD/8.0-RELEASE/g_list.pl

@@ -9 +9 @@
 my $conf_file = dirname(__FILE__) . "/genesis.conf";
 do($conf_file) || die("Cann't open $conf_file");
-
 
 
@@ -73 +72 @@
   if ( $debug ) { print "File: $file\n"; }
 }
-else {
-  $title="listing";
-};
-
 
 #controleer wat de browser is
@@ -94 +89 @@
 
 #als geen node gespecificeerd dan kijken of svn geupdate is gevraagd
-if( $ENV{"QUERY_STRING"}=~/update/i) {
-  printline("<PRE>");
-  #select(STDERR); $| = 1;     # make unbuffered
-  #select(STDOUT); $| = 1;     # make unbuffered
-  printline(`$svn update $ndir`);
-  printline("</PRE>");
-  printline("<H2>Done.<H2><P>");
-  printline("Click <A HREF=$source>here</A>");
-  printline("if you're not forwarded automaticly in 5 seconds.<P>");
-  printline("<META HTTP-EQUIV=REFRESH CONTENT=5;URL=$source>");
-}
-else {
- g_list( );
-}
-
-if( $node eq 'filelist' ) {
+if(!$node) {
+  if( $ENV{"QUERY_STRING"}=~/update/i) {
+    printline("<PRE>");
+    #select(STDERR); $| = 1;     # make unbuffered
+    #select(STDOUT); $| = 1;     # make unbuffered
+    printline(`$svn update $ndir`);
+    printline("</PRE>");
+    printline("<H2>Done.<H2><P>");
+    printline("Click <A HREF=$source>here</A>");
+    printline("if you're not forwarded automaticly in 5 seconds.<P>");
+    printline("<META HTTP-EQUIV=REFRESH CONTENT=5;URL=$source>");
+  }
+  else {
+   g_list( );
+  }
+}
+elsif( $node eq 'filelist' ) {
   filelist( );
 }
@@ -170 +166 @@
       printline("<TR><TD><A HREF=$node/config>$node</A></TD>");
       foreach $file (sort @filelist) {
-        printline("<TD><A HREF=$node/$file>$file</A></TD>\n");
+        printline("<TD><A HREF=$uri$node/$file>$file</A></TD>\n");
       };
     };