package SGO::Message;
use 5.010;
use utf8;
use strict;
use warnings;

use Exporter qw(import);
our @EXPORT_OK = qw(get_message_dl);
use SGO qw(cache get_dbh);

sub get_message_dl {
    my ($date, $lang) = @_;
    my $cache_key = "message-$date-$lang";
    cache( $cache_key, sub {
        my ($msg) = get_dbh()->selectrow_array(
            'SELECT message from daily_message WHERE date = ? AND lang = ?',
            undef,
            $date, $lang,
        );
        return $msg || '';
    });
}