| files >> /usr/libexec/usermin/schedule/ |
| files >> //usr/libexec/usermin/schedule/email.pl |
#!/usr/bin/perl
# Send a scheduled email
$no_acl_check++;
$ENV{'REMOTE_USER'} = getpwuid($<);
require './schedule-lib.pl';
$sched = &get_schedule($ARGV[0]);
$sched->{'id'} || die "Invalid scheduled email!";
if ($sched->{'enabled'}) {
# Construct and send the email
$mail = &make_email($sched);
&mailbox::send_mail($mail);
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`