#!/usr/bin/perl
# stta_view.cgi
# Display Status STTA
# STTA Rev. 1.3 Copyright (c) 2001-2002 Jesús Pérez Lorenzo  --- license GNU GPL 

 require './stta-lib.pl';

 &headerstta($text{'srvSTATUS'}, "", "ttastatus",undef,1,1,$text{headpage_rigth} );
 print "<hr><p>\n"; 
 print "<table width=100% border>\n";
 print "<tr $tb> <td><b>$text{'srvSTATUS'}</b></td> </tr>\n";
 &load_ttaprops();
 &scanSTTA_services("all");
 print "<tr $cb> <td><table width=100%>\n";
 print "<tr><td><pre>\n";
    $text_str="";
    &checkSTTA_services("all","status",\$text_str);
    $text_str=~s/STTA:/<tr><td><li>/g;
    $text_str=~s/\n/<\/b><\/td><\/tr>/g;
    $text_str=~s/==/<td><b>/g;
    print $text_str;
 print "</table></table><p>\n";
 $config{check_services}="true";
 &footer($config{'back_return'},$text{'index'});
 do "footer.pl";
 exit;



