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

14
lib/WebGUI/Operation/Spectre.pm
View file

@ -172,7 +172,21 @@ sub www_spectreTest {
my $session = shift;
$session->http->setMimeType("text/plain");
$session->http->setCacheControl("none");
return WebGUI::Operation::Spectre::spectreTest($session);
}
#-------------------------------------------------------------------
=head2 spectreTest ( )
Spectre executes this function to see if WebGUI connectivity is working.
=cut
sub spectreTest{
my $session = shift;
my $subnets = $session->config->get("spectreSubnets");
if (!defined $subnets) {
$subnets = [];
}

7
lib/WebGUI/Operation/VersionTag.pm
View file

@ -307,6 +307,13 @@ sub www_commitVersionTag {
my $session = shift;
my $tagId = $session->form->param("tagId");
my $spectreTest = WebGUI::Operation::Spectre::spectreTest($session);
if($spectreTest ne "success"){
my $i18n = WebGUI::International->new($session, "Macro_SpectreCheck")->get($spectreTest);
my $ac = WebGUI::AdminConsole->new($session,"versions");
return $ac->render( $i18n );
}
if ( !$tagId ) {
return www_manageVersions( $session );
}