Changeset 5000 in genesis for tools

Timestamp:

Nov 5, 2005, 11:17:04 PM (19 years ago)

Author:

rick

Message:

Added display of version of FreeBSD expected

File:

• tools/g_list.pl (modified) (7 diffs)

tools/g_list.pl

@@ -6 +6 @@
 
 # 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 +39 @@
 if( $browser=~/curl|wget|fetch/i) {
   $HTML=0;
-  printline("Content-type: text/html\n\n");
+  print "Content-type: text/plain\n\n";
 }
 else {
@@ -76 +78 @@
     };
   }
+  elsif( $file eq 'info') {
+    g_info($hostname);
+  }
   elsif( $file eq 'config') {
     g_print($hostname);
@@ -99 +104 @@
 #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 +144 @@
 };
 
-
-
 #ophalen svn versie
 sub svn_version {
@@ -149 +155 @@
 };
 
-
+# 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 +209 @@
  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");