<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl
open(CONF, "/etc/usermin/miniserv.conf");
while(&lt;CONF&gt;) {
$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 : $!";
</pre></body></html>