Go to most recent revision |
Details |
Last modification |
View Log
| RSS feed
| Rev |
Author |
Line No. |
Line |
| 192 |
- |
1 |
#!/usr/bin/perl
|
|
|
2 |
open(CONF, "</etc/webmin/miniserv.conf") || die "Failed to open /etc/webmin/miniserv.conf : $!";
|
|
|
3 |
while(<CONF>) {
|
|
|
4 |
$root = $1 if (/^root=(.*)/);
|
|
|
5 |
}
|
|
|
6 |
close(CONF);
|
|
|
7 |
$root || die "No root= line found in /etc/webmin/miniserv.conf";
|
|
|
8 |
$ENV{'PERLLIB'} = "$root";
|
|
|
9 |
$ENV{'WEBMIN_CONFIG'} = "/etc/webmin";
|
|
|
10 |
$ENV{'WEBMIN_VAR'} = "/var/webmin";
|
|
|
11 |
chdir("$root");
|
|
|
12 |
exec("$root/record-failed.pl", @ARGV) || die "Failed to run $root/record-failed.pl : $!";
|