This is a regex

tags/smeserver-expire-accounts-0.1.7-1
Daniel Berteaud 8 years ago
parent a9ab4ee9a4
commit cf6d4069e3
  1. 2
      root/etc/e-smith/events/actions/expire-update-auto-reply

@ -30,7 +30,7 @@ foreach my $user (@users){
next if $pass eq 'yes';
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;
mkdir $home . '/.lock-auto-reply' unless -d $home . '/.lock-auto-reply';

Loading…
Cancel
Save