equal
deleted
inserted
replaced
97 die 'Invalid input' unless validate $conf, $user, $expiry; |
97 die 'Invalid input' unless validate $conf, $user, $expiry; |
98 |
98 |
99 my $at_cmd = "at now + " . 24 * 60 * $expiry . " minutes"; |
99 my $at_cmd = "at now + " . 24 * 60 * $expiry . " minutes"; |
100 open AT, "|$at_cmd" |
100 open AT, "|$at_cmd" |
101 or die "Can't open AT, '|$at_cmd': $!"; |
101 or die "Can't open AT, '|$at_cmd': $!"; |
102 print AT "dav-htuserdel"; |
102 print AT "ius-dav-htuserdel"; |
103 close AT; |
103 close AT; |
104 |
104 |
105 my $user_dir = "$conf->{dav_base}/$user"; |
105 my $user_dir = "$conf->{dav_base}/$user"; |
106 mkdir "$user_dir" or die "Can't mkdir '$user_dir': $!"; |
106 mkdir "$user_dir" or die "Can't mkdir '$user_dir': $!"; |
107 |
107 |