|
|
@ -30,7 +30,7 @@ foreach my $user (@users){ |
|
|
|
next if $pass eq 'yes'; |
|
|
|
next if $pass eq 'yes'; |
|
|
|
|
|
|
|
|
|
|
|
my $expired = $user->prop('ExpireLockedOn') || ''; |
|
|
|
my $expired = $user->prop('ExpireLockedOn') || ''; |
|
|
|
next if $expired !~ (\d{4}\-\d{1,2}\-\d{1,2}); |
|
|
|
next if $expired !~ /^\d{4}\-\d{1,2}\-\d{1,2}$/; |
|
|
|
|
|
|
|
|
|
|
|
my $home = getpwnam($userName)->dir; |
|
|
|
my $home = getpwnam($userName)->dir; |
|
|
|
mkdir $home . '/.lock-auto-reply' unless -d $home . '/.lock-auto-reply'; |
|
|
|
mkdir $home . '/.lock-auto-reply' unless -d $home . '/.lock-auto-reply'; |
|
|
|