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

RFE 549 commits now check for spectre connectivity before commiting and a new macro for showing spectre status.

Browse source
This commit is contained in:
Kaleb Murphy 2008-10-21 16:54:00 +00:00
parent 655e5e7654
commit 77913e956b
7 changed files with 42 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/Macro/SpectreCheck.pm
View file

@ -16,15 +16,14 @@ use WebGUI::International;
=head1 NAME
Package WebGUI::Macro::SessionId
Package WebGUI::Macro:SpectreCheck:
=head1 DESCRIPTION
A macro to return the ID of the user's current session.
A macro to return the status of Spectre.
=head2 process( )
Really just a wrapper around $session->getId;
=cut
@ -32,13 +31,15 @@ Really just a wrapper around $session->getId;
#-------------------------------------------------------------------
sub process {
my $session = shift;
my $remote = WebGUI::Operation::Spectre::getASpectre($session);
my $status = WebGUI::Operation::Spectre::spectreTest($session);
my $i18n = WebGUI::International->new($session, "Macro_SpectreCheck");
if (defined $remote) {
return $i18n->get('spectre ok');
if (defined $status) {
return $i18n->get('success') if($status eq 'success');
return $i18n->get('subnet') if($status eq 'subnet');
return $i18n->get('spectre') if($status eq 'spectre');
}
else {
return $i18n->get('spectre is down');
return $i18n->get('spectre');
}
}