* Frank Dietrich <bits_n_bytes@gmx.de> [18-12-2005 15:07]: > Das mit dem Script werde ich auf jeden Fall noch machen. Ohne ein > solches ist die Ausgabe wirklich nicht sonderlich User-freundlich. Hi, hab mal schnell ein Skript zusammengebastelt, nicht sehr schön - erfüllt aber sein Zweck. (libdate-manip-perl muss installiert sein) #!/usr/bin/perl use strict; use warnings; use IO::File; use Date::Manip; my $pipe = IO::File->new("passwd -S |") || die "pipe error: $!\n"; my $data = <$pipe>; my ($user, $status ,$update, $min, $max, $warn, $inactive) = split(/ /, $data); print "user login .....................: $user\n"; if ($status eq 'P'){ print "user account ...................: has a usable password\n"; }elsif ($status eq 'NP'){ print "user account ...................: has no password\n"; }elsif ($status eq 'L'){ print "user account ...................: is locked\n"; } print "last password change ...........: $update\n"; print "minimum age ....................: $min day(s)\n"; print "maximum age ....................: $max day(s)\n"; if ($warn > 0){ print "warning period .................: $warn day(s)\n"; } if ($inactive > 0){ print "inactivity period ..............: $inactive day(s)\n"; } my $target = &UnixDate(&ParseDate(&DateCalc($update, "+ ${max}days")), "%m/%d/%Y"); print "next password change ...........: $target\n"; exit 0; ### eof Gruss Uwe
Attachment:
signature.asc
Description: Digital signature