| files >> /usr/libexec/usermin/schedule/ |
| files >> //usr/libexec/usermin/schedule/clear.cgi |
#!/usr/bin/perl
# Clear all sent emails
require './schedule-lib.pl';
foreach $s (&list_schedules()) {
if ($s->{'at'} && $s->{'ran'} >= $s->{'at'}) {
&delete_schedule($s);
$cron = &find_cron_job($s);
&cron::delete_cron_job($cron) if ($cron);
}
}
&redirect("");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`