From 594a847dcabc8c2d3e9b775f829df9763fbf776a Mon Sep 17 00:00:00 2001 From: David Goodwin Date: Fri, 24 Nov 2023 12:08:07 +0000 Subject: [PATCH] add missing src_port to sql query and perl - see #784 - thanks @tempixx --- ADDITIONS/fetchmail.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ADDITIONS/fetchmail.pl b/ADDITIONS/fetchmail.pl index fed1e325..0b15ff0b 100755 --- a/ADDITIONS/fetchmail.pl +++ b/ADDITIONS/fetchmail.pl @@ -110,14 +110,14 @@ if($db_type eq "Pg") { } $sql = " - SELECT id,mailbox,src_server,src_auth,src_user,src_password,src_folder,fetchall,keep,protocol,mda,extra_options,usessl, sslcertck, sslcertpath, sslfingerprint + SELECT id,mailbox,src_server,src_auth,src_user,src_password,src_folder,fetchall,keep,protocol,mda,extra_options,usessl, sslcertck, sslcertpath, sslfingerprint, src_port FROM fetchmail WHERE $sql_cond > poll_time*60 "; my (%config); map{ - my ($id,$mailbox,$src_server,$src_auth,$src_user,$src_password,$src_folder,$fetchall,$keep,$protocol,$mda,$extra_options,$usessl,$sslcertck,$sslcertpath,$sslfingerprint)=@$_; + my ($id,$mailbox,$src_server,$src_auth,$src_user,$src_password,$src_folder,$fetchall,$keep,$protocol,$mda,$extra_options,$usessl,$sslcertck,$sslcertpath,$sslfingerprint,$src_port)=@$_; syslog("info","fetch ${src_user}@${src_server} for ${mailbox}");