oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

- Added a basic status interface to spectre, for troubleshooting.

Browse source
This commit is contained in:
JT Smith 2007-02-01 21:51:04 +00:00
parent f92fe7786d
commit 9d315264c6
1 changed files with 23 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

24
sbin/spectre.pl
View file

@ -24,6 +24,7 @@ my $daemon;
my $run; my $run;
my $debug; my $debug;
my $test; my $test;
my $status;
GetOptions( GetOptions(
'help'=>\$help, 'help'=>\$help,
@ -31,11 +32,12 @@ GetOptions(
'shutdown'=>\$shutdown, 'shutdown'=>\$shutdown,
'daemon'=>\$daemon, 'daemon'=>\$daemon,
'debug' =>\$debug, 'debug' =>\$debug,
'status' => \$status,
'run' => \$run, 'run' => \$run,
'test' => \$test 'test' => \$test
); );
if ($help || !($ping||$shutdown||$daemon||$run||$test)) { if ($help || !($ping||$shutdown||$daemon||$run||$test||$status)) {
print <<STOP; print <<STOP;
S.P.E.C.T.R.E. is the Supervisor of Perplexing Event-handling Contraptions for S.P.E.C.T.R.E. is the Supervisor of Perplexing Event-handling Contraptions for
@ -59,6 +61,8 @@ if ($help || !($ping||$shutdown||$daemon||$run||$test)) {
--shutdown Stops the running Spectre server. --shutdown Stops the running Spectre server.
--status Returns a report about the internals of Spectre.
--test Tests the connection between Spectre and WebGUI. Both Spectre --test Tests the connection between Spectre and WebGUI. Both Spectre
and WebGUI must be running to use this function. and WebGUI must be running to use this function.
@ -95,6 +99,8 @@ if ($shutdown) {
my $res = ping(); my $res = ping();
print "Spectre is Alive!\n" unless $res; print "Spectre is Alive!\n" unless $res;
print "Spectre is not responding.\n".$res if $res; print "Spectre is not responding.\n".$res if $res;
} elsif ($status) {
print getStatusReport();
} elsif ($test) { } elsif ($test) {
Spectre::Admin->runTests($config); Spectre::Admin->runTests($config);
} elsif ($run) { } elsif ($run) {
@ -123,3 +129,19 @@ sub ping {
return 0 if ($result eq "pong"); return 0 if ($result eq "pong");
return 1; return 1;
} }
sub getStatusReport {
my $remote = create_ikc_client(
port=>$config->get("port"),
ip=>$config->get("ip"),
name=>rand(100000),
timeout=>10
);
return $POE::Component::IKC::ClientLite::error unless $remote;
my $result = $remote->post_respond('workflow/getStatus');
return $POE::Component::IKC::ClientLite::error unless defined $result;
$remote->disconnect;
undef $remote;
return $result;
}