michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-03-20 16:50:24 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Fix autoreply script when run by Virtualmin

Browse Source
This commit is contained in:
Jamie Cameron
2007-09-11 16:26:46 +00:00
parent 4c89ecbf63
commit 9ce1cacbf0
1 changed files with 30 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
sendmail/autoreply.pl
View File

@@ -3,23 +3,30 @@
# Simple autoreply script. Command line arguments are :
# autoreply-file username alternate-file
# read sendmail module config
# Read sendmail module config
$ENV{'PATH'} = "/bin:/usr/bin:/sbin:/usr/sbin";
$p = -l $0 ? readlink($0) : $0;
$p =~ /^(.*)\/[^\/]+$/;
if (open(CONF, "$1/config")) {
while(<CONF>) {
if (/^(\S+)=(.*)/) {
$config{$1} = $2;
}
}
close(CONF);
$moddir = $1;
%config = &read_config_file("$moddir/config");
# If this isn't the sendmail module, try it
if (!$config{'sendmail_path'} || !-x $config{'sendmail_path'}) {
$moddir =~ s/([^\/]+)$/sendmail/;
%config = &read_config_file("$moddir/config");
}
if (!$config{'sendmail_path'}) {
if (!$config{'sendmail_path'} || !-x $config{'sendmail_path'}) {
# Make some guesses about sendmail
if (-x "/usr/sbin/sendmail") {
%config = ( 'sendmail_path' => '/usr/sbin/sendmail' );
}
elsif (-x "/usr/local/sbin/sendmail") {
%config = ( 'sendmail_path' => '/usr/local/sbin/sendmail' );
}
elsif (-x "/opt/csw/lib/sendmail") {
%config = ( 'sendmail_path' => '/opt/csw/lib/sendmail' );
}
elsif (-x "/usr/lib/sendmail") {
%config = ( 'sendmail_path' => '/usr/lib/sendmail' );
}
@@ -329,3 +336,17 @@ return $file =~ /\.gif/i ? "image/gif" :
"application/octet-stream";
}
sub read_config_file
{
local %config;
if (open(CONF, $_[0])) {
while(<CONF>) {
if (/^(\S+)=(.*)/) {
$config{$1} = $2;
}
}
close(CONF);
}
return %config;
}