smeserver-sendmail-wrapper/contribs10/smeserver-sendmail-wrapper-0.1-domainName.patch

diff -Nur smeserver-sendmail-wrapper-0.1.old/root/usr/bin/sendmail-wrapper.pl smeserver-sendmail-wrapper-0.1/root/usr/bin/sendmail-wrapper.pl
--- smeserver-sendmail-wrapper-0.1.old/root/usr/bin/sendmail-wrapper.pl 2017-08-18 12:39:53.000000000 -0400
+++ smeserver-sendmail-wrapper-0.1/root/usr/bin/sendmail-wrapper.pl     2018-03-03 00:33:12.478000000 -0500
@@ -8,14 +8,12 @@
 use Email::Address;
 use Email::MessageID;
 use Email::Date::Format qw(email_date);
-use esmith::ConfigDB;
-
-our $db  = esmith::ConfigDB->open();
+use Net::Domain qw(hostname hostfqdn hostdomain domainname);
 
 my $user = getpwuid( $< );
 my $smtp_password = 'password';
 my $smtp_default_password = 'password';
-my $server = $db->get_value('DomainName') || $db->get_value('DomainName') || 'localhost';
+my $server = hostdomain () || hostfqdn ()  || domainname () || 'localhost';
 my $input = '';
 my $to_string = '';
 my $from_string = '';
1	jpp	1.1	diff -Nur smeserver-sendmail-wrapper-0.1.old/root/usr/bin/sendmail-wrapper.pl smeserver-sendmail-wrapper-0.1/root/usr/bin/sendmail-wrapper.pl
2			--- smeserver-sendmail-wrapper-0.1.old/root/usr/bin/sendmail-wrapper.pl 2017-08-18 12:39:53.000000000 -0400
3			+++ smeserver-sendmail-wrapper-0.1/root/usr/bin/sendmail-wrapper.pl 2018-03-03 00:33:12.478000000 -0500
4			@@ -8,14 +8,12 @@
5			use Email::Address;
6			use Email::MessageID;
7			use Email::Date::Format qw(email_date);
8			-use esmith::ConfigDB;
9			-
10			-our $db = esmith::ConfigDB->open();
11			+use Net::Domain qw(hostname hostfqdn hostdomain domainname);
12
13			my $user = getpwuid( $< );
14			my $smtp_password = 'password';
15			my $smtp_default_password = 'password';
16			-my $server = $db->get_value('DomainName') \|\| $db->get_value('DomainName') \|\| 'localhost';
17			+my $server = hostdomain () \|\| hostfqdn () \|\| domainname () \|\| 'localhost';
18			my $input = '';
19			my $to_string = '';
20			my $from_string = '';