my $save = "";
my $load = "";
my $showstat = 0;
+my $gui = 0;
my $hostalias;
while (defined($ARGV[0])) {
shift @ARGV;
last SWITCH;
};
+ /^-G$/ && do {
+ $gui = 1;
+ shift @ARGV;
+ last SWITCH;
+ };
/^-save$/ && do {
shift @ARGV;
$save = shift @ARGV;
print STDERR "\t-l IP\t\tsend SYSLOG debug messages to IP\n";
print STDERR "\t-b\t\tshow board/server status\n";
print STDERR "\t-X\t\tsend raw XML string (start with REQ tag)\n";
+ print STDERR "\t-G\t\tstart GUI in appletviewer\n";
print STDERR "\t-v\t\tverbose\n";
print STDERR "\t-save file\tsave configuration to 'file'\n";
print STDERR "\t-load file\tload configuration from 'file'\n";
$poweronms = ${$Config{$hostalias}}{"poweronms"} if (defined(${$Config{$hostalias}}{"poweronms"}));
$poweroffms = ${$Config{$hostalias}}{"poweroffms"} if (defined(${$Config{$hostalias}}{"poweroffms"}));
+if ($gui) {
+ open(APPLET,"|appletviewer /dev/stdin");
+ print APPLET '<HTML><HEAD><TITLE>RSB S2 User Interface</TITLE></HEAD>';
+ print APPLET '<BODY>';
+ print APPLET '<object width="640" height="480">';
+ print APPLET '<param name="code" value="com/agilent/rmc/mgui/RmcUI.class">';
+ print APPLET '<param name="codebase" value="http://'.$host.'/">';
+ print APPLET '<param name="archive" value="gui.jar, msa_shared.jar, msa_shared_comm.jar, msa_shared_oem.jar">';
+ print APPLET '</object>';
+ print APPLET '</BODY></HTML>';
+ close(APPLET);
+}
+
$sid = login(${$Config{$hostalias}}{"user"}, ${$Config{$hostalias}}{"pass"});
if ($show) {
projects / rsbs2 / commitdiff