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