fase10.pl

#!/usr/bin/perl -w

use lib 'libs';
use Msg;
use open qw(:std :utf8);
use Encode qw(decode_utf8);
cambia_idioma($idioma_solicitado);
no warnings;

# ----------------------------------------------------------------------------------------
# Fase 10.0 -- Servicios
# ----------------------------------------------------------------------------------------
print "-" x 100;
print $Msg::msg[$Msg::idioma][100];
print F $Msg::msg[$Msg::idioma][101];
print F "<div>\n";
print F "<div class=\"content\">\n";

print R $Msg::msg[$Msg::idioma][101];
print R "<div>\n";
print R "<div class=\"content\">\n";

print "-" x 100;

$SERVICIOSCHECK=`/sbin/chkconfig --list > /tmp/servicios_check.txt`;
                
# Leer un fichero de texto
my $filename = '/tmp/servicios_check.txt';
open INFILE,$filename;
my $linea;
while ( $linea = <INFILE>) {
    chomp($linea); 
    print "\n$linea\n";
	print F "<p>$linea</p>\n";
} 
close INFILE;

unlink '/tmp/servicios_check.txt';			

print F "</div>\n";
print F "</div>\n";

print R $Msg::msg[$Msg::idioma][102];
print R "</div>\n";
print R "</div>\n";