sub expiracionUsuarios {
our %valor_correcto_de;
my $FICHERO = '/etc/login.defs';
my $login_defs = do { undef $/; open F, $FICHERO; <F> };
for my $parametro (sort keys %valor_correcto_de) {
if (my($valor_actual) = $login_defs =~ /^ $parametro \s+ (\S+?) $/xsim) {
if ($valor_actual == $valor_correcto_de{$parametro}) {
print BOLD, GREEN, 'Positivo: ', RESET, "El valor del parametro $parametro es correcto\n";
}
else {
print BOLD, RED , 'Negativo: ', RESET, "El valor del parametro $parametro es incorrecto: ",
"$valor_actual != $valor_correcto_de{$parametro}\n";
print ARCH "<tr><td><font color=#ff0000 face=Verdana size=1>Negativo</font><font face=Verdana size=1> El valor del parametro $parametro es incorrecto: $valor_actual != $valor_correcto_de{$parametro}</font></td></tr>\n";
}
}
else {
print BOLD . 'No existe ' . RESET, "el parametro $parametro en $FICHERO";
}
}
}
sub seguridadnet {
our %valor_correcto_net;
my $FICHERO2 = '/etc/sysctl.conf';
my $var_net = do { undef $/; open F, $FICHERO2; <F> };
for my $parametro2 (sort keys %valor_correcto_net) {
if (my($valor_actual_net) = $var_net =~ /^ $parametro2(\S+?) $/xsim) {
if ($valor_actual_net == $valor_correcto_net{$parametro2}) {
print BOLD, GREEN, 'Positivo: ', RESET, "El valor del parametro $parametro2 es correcto\n";
}
else {
print BOLD, RED , 'Negativo: ', RESET, "El valor del parametro $parametro2 es incorrecto: ",
"$valor_actual_net != $valor_correcto_net{$parametro2}\n";
print ARCH "<tr><td><font color=#ff0000 face=Verdana size=1>Negativo</font><font face=Verdana size=1> El valor del parametro $parametro2 es incorrecto: $valor_actual_net != $valor_correcto_net{$parametro2}</font></td></tr>\n";
}
}
else {
print BOLD . 'No existe ' . RESET, "el parametro $parametro2 en $FICHERO2\n";
}
}
}
sub seguridadssh {
our %valor_correcto_ssh;
my $FICHERO3 = '/etc/ssh/sshd_config';
my $var_ssh = do { undef $/; open F, $FICHERO3; <F> };
for my $parametro3 (sort keys %valor_correcto_ssh) {
if (my($valor_actual_ssh) = $var_ssh =~ /^ $parametro3 \s+ (\S+?) $/xsim) {
if ($valor_actual_ssh eq $valor_correcto_ssh{$parametro3}) {
print BOLD, GREEN, 'Positivo: ', RESET, "El valor del parametro $parametro3 es correcto\n";
}
else {
print BOLD, RED , 'Negativo: ', RESET, "El valor del parametro $parametro3 es incorrecto: $valor_actual_ssh != $valor_correcto_ssh{$parametro3}\n";
print ARCH "<tr><td><font color=#ff0000 face=Verdana size=1>Negativo</font><font face=Verdana size=1> El valor del parametro $parametro3 es incorrecto: $valor_actual_ssh != $valor_correcto_ssh{$parametro3}</font></td></tr>\n";
}
}
else {
print BOLD . 'No existe ' . RESET, "el parametro $parametro3 en $FICHERO3\n";
}
}
}