Index: /tools/g_list.pl
===================================================================
--- /tools/g_list.pl	(revision 4998)
+++ /tools/g_list.pl	(revision 5000)
@@ -6,6 +6,8 @@
 
 # Config located at other file
-my $conf_file="/home/genesis/tools/genesis.conf";
-do($conf_file) || die("Cann't open $conf_file");
+# my $conf_file="/home/genesis/tools/genesis.conf";
+# do($conf_file) || die("Cann't open $conf_file");
+die "Run with the preamble in cgi-bin"
+       unless defined $conf_file;
 
 my $HTML=1;
@@ -37,5 +39,5 @@
 if( $browser=~/curl|wget|fetch/i) {
   $HTML=0;
-  printline("Content-type: text/html\n\n");
+  print "Content-type: text/plain\n\n";
 }
 else {
@@ -76,4 +78,7 @@
     };
   }
+  elsif( $file eq 'info') {
+    g_info($hostname);
+  }
   elsif( $file eq 'config') {
     g_print($hostname);
@@ -99,4 +104,7 @@
 #Het opbouwen van het begin scherm
 sub g_list {
+  my $version = 1;
+  $version = $1 if $ENV{"QUERY_STRING"}=~/version=(\d+)/i;
+
   if( $HTML) {
     my $svn_version=svn_version("$ndir");
@@ -136,6 +144,4 @@
 };
 
-
-
 #ophalen svn versie
 sub svn_version {
@@ -149,5 +155,23 @@
 };
 
-
+# Print info on this node; version of the OS
+# expected, etc..
+sub g_info {
+  my $config="$ndir/$node/$configfile";
+  parse_config($config);
+
+  $release = 'unknown' unless $release;
+  $node_config_version = 0 unless $node_config_version;
+  $genesis_control = 'NO' unless $genesis_control;
+  $OS = 'Unknown' unless $OS;
+  print <<"EOM";
+$OS $release $node_config_version $genesis_control
+#
+# Operating system release:	$OS on $release
+# Node Config script version:	$node_config_version
+# Under Gensis control:		$genesis_control
+# 
+EOM
+}
 
 #netjes de configuratie printen
@@ -185,5 +209,6 @@
  printline("Y=$Y");
  printline("");
- printline("OS=$OS");
+ printline("Operating system: $OS / $release");
+ printline("Config management: Version $node_config_version, Used: $genesis_control");
  printline("");
  printline("$TP");