cluster-software/edit_host.cgi.bak

   1 #!/usr/local/bin/perl
   2 # edit_host.cgi
   3 # Show details of a managed host, and all the packages on it
   4
   5 require './cluster-software-lib.pl';
   6 &foreign_require("servers", "servers-lib.pl");
   7 &ReadParse();
   8 &header($text{'host_title'}, "");
   9 print "<hr>\n";
  10
  11 @hosts = &list_software_hosts();
  12 ($host) = grep { $_->{'id'} eq $in{'id'} } @hosts;
  13 $server = &foreign_call("servers", "get_server", $in{'id'});
  14 @packages = @{$host->{'packages'}};
  15
  16 # Show host details
  17 print "<form action=delete_host.cgi>\n";
  18 print "<input type=hidden name=id value=$in{'id'}>\n";
  19 print "<table border width=100%>\n";
  20 print "<tr $tb> <td><b>$text{'host_header'}</b></td> </tr>\n";
  21 print "<tr $cb> <td><table width=100%>\n";
  22
  23 print "<tr> <td><b>$text{'host_name'}</b></td>\n";
  24 if ($server->{'id'}) {
  25         printf "<td><a href='/servers/link.cgi/%s/'>%s</a></td>\n",
  26                 $server->{'id'}, $server->{'desc'} ? "$server->{'desc'} ($server->{'host'}:$server->{'port'})" : "$server->{'host'}:$server->{'port'}";
  27         }
  28 else {
  29         print "<td><a href=/>$text{'this_server'}</a></td>\n";
  30         }
  31
  32 if ($server->{'id'}) {
  33         print "<td><b>$text{'host_type'}</b></td> <td>\n";
  34         foreach $t (@servers::server_types) {
  35                 print $t->[1] if ($t->[0] eq $server->{'type'});
  36                 }
  37         print "</td>\n";
  38         }
  39 print "</tr>\n";
  40
  41 print "<tr> <td><b>$text{'host_count'}</b></td>\n";
  42 printf "<td>%d</td>\n", scalar(@packages);
  43
  44 print "<td><b>$text{'host_os'}</b></td>\n";
  45 print "<td>$host->{'real_os_type'} $host->{'real_os_version'}</td> </tr>\n";
  46
  47 print "</table></td></tr></table>\n";
  48 print "<input type=submit value='$text{'host_delete'}'></form>\n";
  49
  50 # Show tree of packages
  51 $heir{""} = "";
  52 foreach $c (sort { $a cmp $b } &unique(map { $_->{'class'} } @packages)) {
  53         if (!$c) { next; }
  54         @w = split(/\//, $c);
  55         $p = join('/', @w[0..$#w-1]);
  56         if (!defined($heir{$p})) {
  57                 $pp = join('/', @w[0..$#w-2]);
  58                 $heir{$pp} .= "$p\0";
  59                 }
  60         $heir{$p} .= "$c\0";
  61         $hasclasses++;
  62         }
  63
  64 # get the current open list
  65 open(HEIROPEN, "$module_config_directory/heiropen.$in{'id'}");
  66 while(<HEIROPEN>) {
  67         chop;
  68         $heiropen{$_}++;
  69         }
  70 close(HEIROPEN);
  71 $heiropen{""}++;
  72
  73 # traverse the heirarchy
  74 $spacer = "&nbsp;"x3;
  75 print "<hr>\n";
  76 print "<h3>$text{'host_installed'}</h3>\n";
  77 print "<table width=100%>\n";
  78 &traverse("", 0);
  79 print "</table>\n";
  80 if ($hasclasses) {
  81         print "<a href='closeall.cgi?id=$in{'id'}'>$text{'host_close'}</a> $spacer\n";
  82         print "<a href='openall.cgi?id=$in{'id'}'>$text{'host_open'}</a><p>\n";
  83         }
  84
  85 print "<hr>\n";
  86 &footer("", $text{'index_return'});
  87
  88 sub traverse
  89 {
  90 local($s, $act, $i);
  91 print "<tr> <td>", $spacer x $_[1];
  92 if ($_[0]) {
  93         print "<a name=\"$_[0]\"></a>\n";
  94         $act = $heiropen{$_[0]} ? "close" : "open";
  95         print "<a href=\"$act.cgi?id=$in{'id'}&what=",&urlize($_[0]),"\">";
  96         $_[0] =~ /([^\/]+)$/;
  97         print "<img border=0 src=images/$act.gif></a>&nbsp; $1</td>\n",
  98         }
  99 else { print "<img src=images/close.gif> <i>$text{'host_all'}</i></td>\n"; }
 100 print "<td><br></td> </tr>\n";
 101 if ($heiropen{$_[0]}) {
 102         # print sub-folders followed by packages
 103         foreach $i (@packages) {
 104                 if ($i->{'class'} eq $_[0]) {
 105                         print "<tr> <td>", $spacer x ($_[1]+1);
 106                         print "<img border=0 src=images/pack.gif></a>&nbsp;\n";
 107                         print "<a href=\"edit_pack.cgi?package=",
 108                              &urlize($i->{'name'}),"\">$i->{'name'}</a></td>\n";
 109                         print "<td>$i->{'desc'}</td>\n";
 110                         print "</tr>\n";
 111                         }
 112                 }
 113         foreach $s (&unique(split(/\0+/, $heir{$_[0]}))) {
 114                 &traverse($s, $_[1]+1);
 115                 }
 116         }
 117 }
 118