Using perl Syntax Highlighting
- #!/usr/bin/perl -w
- use Term::ANSIColor qw(:constants);
- print"----------------------------------------------------------------------------------------------------------------\n";
- $comando2 = (split " ",( qx(grep ^PASS_MAX_DAY /etc/login.defs))[0] )[1];
- chomp $comando2;
- if ("$comando2" != 90) {
- print BOLD, RED, "Negativo:", RESET . " El valor del parametro PASS_MAX_DAYS es incorrecto\n";
- }
- else{
- print BOLD, GREEN, "Positivo:", RESET . " El valor del parametro PASS_MAX_DAYS es correcto\n";
- }
- $comando3 = (split " ",( qx(grep ^PASS_MIN_DAYS /etc/login.defs))[0] )[1];
- chomp $comando3;
- if ("$comando3" != 7) {
- print BOLD, RED, "Negativo:", RESET . " El valor del parametro PASS_MIN_DAYS es incorrecto\n";
- }
- else{
- print BOLD, GREEN, "Positivo:", RESET . " El valor del parametro PASS_MIN_DAYS es correcto\n";
- }
- $comando4 = (split " ",( qx(grep ^PASS_WARN_AGE /etc/login.defs))[0] )[1];
- chomp $comando4;
- if ("$comando4" != 28) {
- print BOLD, RED, "Negativo:", RESET . " El valor del parametro PASS_WARN_AGE es incorrecto\n";
- }
- else{
- print BOLD, GREEN, "Positivo:", RESET . " El valor del parametro PASS_WARN_AGE es correcto\n";
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Gracias.