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

1
ChangeLog
View file

@ -1,5 +1,6 @@
huhu 0.11.0 (unreleased) huhu 0.11.0 (unreleased)
* Re-order and add metadata files (TODO, ChangeLog, ...). * Re-order and add metadata files (TODO, ChangeLog, ...).
* Update to current Debian version.
huhu 0.10 (unknown) huhu 0.10 (unknown)
* huhu reports version 0.09 (from MOD/Displaylib.pm), but has code * huhu reports version 0.09 (from MOD/Displaylib.pm), but has code

4
MOD/DBIUtils.pm
View file

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

2
MOD/DBIUtilsPublic.pm
View file

@ -48,7 +48,7 @@ sub new($$)
my ($class,$configref) = @_; my ($class,$configref) = @_;
my $self = {}; my $self = {};
$self->{'config'} = $configref; $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'}, $self->{'dbh'} = DBI->connect($self->{'dsn'},$self->{'config'}->{'mysql_username'},$self->{'config'}->{'mysql_password'},
{ RaiseError => 1}) { RaiseError => 1})
or die($DBI::errstr); or die($DBI::errstr);

2
MOD/ReadMail.pm
View file

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

1
bin/read-mail.pl
View file

@ -125,6 +125,7 @@ sub process_text($$$)
die 'Argument -config=file missing' unless($::config); die 'Argument -config=file missing' unless($::config);
$::status = undef unless($::status); # to suppress warning $::status = undef unless($::status); # to suppress warning
$::stdin = undef unless($::stdin); # to suppress warning $::stdin = undef unless($::stdin); # to suppress warning
$::test = undef unless($::test); # to suppress warning
my %config = MOD::Utils::read_private_config($::config); my %config = MOD::Utils::read_private_config($::config);
my $rm = MOD::ReadMail->new(\%config); my $rm = MOD::ReadMail->new(\%config);