This is a regex

tags/smeserver-expire-accounts-0.1.7-1
Daniel Berteaud 9 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'; 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';

Loading…
Cancel
Save