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 464f145382
4 changed files with 4 additions and 2 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

2
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';

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);

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);