smeserver-fetchmail/contribs10/smeserver-fetchmail-1.6-Switch-smptd-to-qpsmtpd-in-panel-perl.patch

diff -urN smeserver-fetchmail-1.6.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fetchmail.pm smeserver-fetchmail-1.6/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fetchmail.pm
--- smeserver-fetchmail-1.6.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fetchmail.pm   2020-12-24 07:28:46.229198724 +0000
+++ smeserver-fetchmail-1.6/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fetchmail.pm       2020-12-27 19:43:11.797659648 +0000
@@ -187,12 +187,12 @@
     $FMRoutingNNTP = 1 if ( ( $FM->prop('RoutingNNTP') || 'NO' ) eq 'YES' ) ;
     # we need also information about smtpfront-qmail
     # PS 2005/08/02 -> 1.3.4-05
-    # SME7 no longer use smtpfront-qmail, but use smtpd instead
+    # SME7 no longer use smtpfront-qmail, but use qpsmtpd instead
     my $SysConfig = $db->get('sysconfig') ;
     my $SMEVersion = ( $SysConfig->prop('ReleaseVersion') || 0 ) ;
     $SMEVersion =~ s/^(\d+)\..*$/$1/ ;
     my $MailSystem = 'smtpfront-qmail' ;
-    $MailSystem = 'smtpd' if ( $SMEVersion > 6 ) ;
+    $MailSystem = 'qpsmtpd' if ( $SMEVersion > 6 ) ;
     $self->debug_msg("'fetchmail_SMTPProxy' : Major Version = $SMEVersion - Mailsystem = $MailSystem.") ;
     my $SmtpProxy = $db->get($MailSystem) 
         or ($self->error('ERR_NO_SMTPFRONT-QMAIL_RECORD') and return undef) ;
1	diff -urN smeserver-fetchmail-1.6.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fetchmail.pm smeserver-fetchmail-1.6/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fetchmail.pm
2	--- smeserver-fetchmail-1.6.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fetchmail.pm 2020-12-24 07:28:46.229198724 +0000
3	+++ smeserver-fetchmail-1.6/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/fetchmail.pm 2020-12-27 19:43:11.797659648 +0000
4	@@ -187,12 +187,12 @@
5	$FMRoutingNNTP = 1 if ( ( $FM->prop('RoutingNNTP') \|\| 'NO' ) eq 'YES' ) ;
6	# we need also information about smtpfront-qmail
7	# PS 2005/08/02 -> 1.3.4-05
8	- # SME7 no longer use smtpfront-qmail, but use smtpd instead
9	+ # SME7 no longer use smtpfront-qmail, but use qpsmtpd instead
10	my $SysConfig = $db->get('sysconfig') ;
11	my $SMEVersion = ( $SysConfig->prop('ReleaseVersion') \|\| 0 ) ;
12	$SMEVersion =~ s/^(\d+)\..*$/$1/ ;
13	my $MailSystem = 'smtpfront-qmail' ;
14	- $MailSystem = 'smtpd' if ( $SMEVersion > 6 ) ;
15	+ $MailSystem = 'qpsmtpd' if ( $SMEVersion > 6 ) ;
16	$self->debug_msg("'fetchmail_SMTPProxy' : Major Version = $SMEVersion - Mailsystem = $MailSystem.") ;
17	my $SmtpProxy = $db->get($MailSystem)
18	or ($self->error('ERR_NO_SMTPFRONT-QMAIL_RECORD') and return undef) ;