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	brianr	1.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) ;