]>
git.proxmox.com Git - pve-manager.git/blob - bin/pvemailforward.pl
7 use PVE
::AccessControl
;
8 use PVE
::Cluster qw
(cfs_read_file
);
10 # NOTE: we need to run this with setgid www-data
11 # else we cant read /etc/pve/user.cfg
13 $( = $); # $GID = $EGID
15 $ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin';
17 initlog
('pvemailforward');
20 PVE
::Cluster
::cfs_update
();
23 my $usercfg = cfs_read_file
("user.cfg");
24 my $rootcfg = $usercfg->{users
}->{'root@pam'} || {};
25 my $mailto = $rootcfg->{email
};
27 my $dcconf = cfs_read_file
('datacenter.cfg');
28 my $mailfrom = $dcconf->{email_from
} || "root";
30 die "user 'root\@pam' does not have a email address\n" if !$mailto;
32 syslog
("info", "forward mail to <$mailto>");
34 # we never send DSN (avoid mail loops)
35 open(CMD
, "|sendmail -bm -N never -f $mailfrom $mailto") ||
36 die "can't exec sendmail - $!\n";
37 while (<>) { print CMD
$_; }
41 syslog
('err', "mail forward failed: $err");