#!/opt/SUNWstade/bin/perl -I/opt/SUNWstade/lib
#<copyright>
# ----------------------------------------------------------
# Sun Proprietary/Confidential Code
# Copyright 2001, Sun Microsystems, Inc. All rights reserved.
# ----------------------------------------------------------
#</copyright>

use System;
use Util;
use Http;
use Roles;

$BGCOLOR  = "#E0E0E0";
$LIGHT    = "#CCCCFF";

$local_p  = $INC[0];
my($ix)   = rindex($local_p, "/");
$HOME     = substr($local_p,0,$ix);
$RASPORT  = System->getConfigPort($HOME);
$PASSW    = "$HOME/System/password";

System->set_home($HOME);
System->set_rasport($RASPORT);

my($renv, $devices, $hosts, $notifs) = PDM::ConfigFile->read();
System->set_renv($renv);

open(O,$PASSW); $PASSWORD = <O>; close(O);
my $role_db = Roles->read();

$http = Http->new({
                   logfile => "",
                      root => "$HOME/htdocs",
                     roles => $role_db,
                     login => "ras",
                  timeout  => 10,
                  password => $PASSWORD,
                 });

$http->cgi();


sub info {
  my($m, $col) = @_;
  $col= "red" if (!$col);
  return "<center><table border=0 cellspacing=4 cellpadding=2><tr><td bgcolor=$col> 
  <table border=0 cellspacing=2 cellpadding=3 bgcolor=white> <tr><td><b><center>&nbsp;$m &nbsp;</table></table></center>";
}

# header("", "<options>", "help section");

sub header {
  my($m,$w, $opt, $move) = @_;

  Html->header($m, $w, $opt, $move);
}

sub make_select {
  my($name, $l, $val) = @_;
  my($o, $ck);
  @a = split(/\|/, $l);
  $o = "<select name=$name><option value=\"\">[Select]</option>";
  foreach $x (@a) {
    @b = split(/=/, $x);
    $b[1] = $b[0] if (!$b[1]);
    $ck = ($b[0] eq $val)? "selected":"";
    $o .= "<option $ck value=$b[0]>$b[1]</option>";
  }
  $o .= "</select>";
  return $o;
}

sub make_radio {
  my($name, $l, $val) = @_;
  my($o, $ck);
  @a = split(/\|/, $l);
  foreach $x (@a) {
    @b = split(/=/, $x);
    $ck = ($b[0] eq $val)? "checked":"";
    $o .= "<input type=radio name=$name $ck value=$b[0]>&nbsp;<b>:$b[1]</b>&nbsp;&nbsp;";
  }
  return $o;
}



