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	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 = '';