thh/huhu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Update to current Debian version.

Browse source 
Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
Thomas Hochstein 2026-01-31 22:10:20 +01:00
parent 1674138be6
commit 8259e05504
5 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
MOD/DBIUtils.pm
View file

@ -21,7 +21,7 @@ use DBI();
use MOD::Utils qw(read_private_config);
use News::Article();
use MOD::DBIUtilsPublic();
use Digest::SHA1();
use Digest::SHA();
push @MOD::DBIUtils::ISA,'MOD::DBIUtilsPublic';
@ -81,7 +81,7 @@ sub enter_table($$$$)
my $article_id = undef;
my $age = $self->{'config'}->{'check_duplicates_age'} || 7;
my $sha1 = Digest::SHA1::sha1_hex($body);
my $sha1 = Digest::SHA::sha1_hex($body);
my $stmt = $self->{'dbh'}->prepare(
"SELECT id\n" .
"\nFROM " . $table .

2
MOD/DBIUtilsPublic.pm
View file

@ -48,7 +48,7 @@ sub new($$)
my ($class,$configref) = @_;
my $self = {};
$self->{'config'} = $configref;
$self->{'dsn'} = "DBI:mysql:database=$self->{'config'}->{'mysql_db'};host=$self->{'config'}->{'mysql_host'};port=$self->{'config'}->{'mysql_port'}";
$self->{'dsn'} = "DBI:MariaDB:database=$self->{'config'}->{'mysql_db'};host=$self->{'config'}->{'mysql_host'};port=$self->{'config'}->{'mysql_port'}";
$self->{'dbh'} = DBI->connect($self->{'dsn'},$self->{'config'}->{'mysql_username'},$self->{'config'}->{'mysql_password'},
{ RaiseError => 1})
or die($DBI::errstr);

2
MOD/ReadMail.pm
View file

@ -100,7 +100,7 @@ sub add_article($$;$)
}
if ($config->{'subjectcheck'} and
$db->check_subject($article->header('subject')))
$db->check_subject($article->header('subject')))
{
my $subjectscore = $config->{'subjectscore'};
$article->add_headers('X-Subject-Test', $subjectscore);