byterazor/QPSMTPD-MailserverInterface
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: fixed perl errrors

Browse Source
This commit is contained in:
Dominik Meyer 2025-02-07 11:05:13 +01:00
parent 4650d9945a
commit e226f244b3
Signed by: byterazor
GPG Key ID: EABDA0FD5981BC97
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
federationhq_rcpt
View File

@ -75,13 +75,11 @@ sub createDSN
sub updateTransactionWithRecipientInfo sub updateTransactionWithRecipientInfo
{ {
my $self = shift; my ($self, $transaction, $sth) = @_;
my $transaction = shift
my $sth = shift;
return unless $sth->rows == 1; return unless $sth->rows == 1;
my $row = $th->fetchrow_hashref; my $row = $sth->fetchrow_hashref;
my $dovecot_server = $row->{dovecot_server}; my $dovecot_server = $row->{dovecot_server};
my $username = $row->{username}; my $username = $row->{username};
@ -98,7 +96,7 @@ sub updateTransactionWithRecipientInfo
return 0; return 0;
} }
my $row = $self->{fetch_dovecot_details_sth}->fetchrow_hashref(); $row = $self->{fetch_dovecot_details_sth}->fetchrow_hashref();
my $hostname = $row->{hostname}; my $hostname = $row->{hostname};
my $port = $row->{port}; my $port = $row->{port};