#!/usr/bin/perl
open(CONF, "/etc/usermin/miniserv.conf");
while(<CONF>) {
$root = $1 if (/^root=(.*)/);
}
close(CONF);
$ENV{'WEBMIN_CONFIG'} = "/etc/usermin";
$ENV{'WEBMIN_VAR'} = "/var/usermin";
chdir("$root/schedule");
exec("$root/schedule/atmode.pl", @ARGV) || die "Failed to run $root/schedule/atmode.pl : $!";