### update messages in news ticker
sub update_msg {
# anti-flicker; msg is a CList...
$msg->freeze();
$msg->clear();
my @Loglines = read_log_file();
# setting up the list
foreach my $l (@Loglines) {
my ($date,$level,$subs,$prg,$code,$text) = split /\s/,$l,6;
$date = format_time($date);
$text =~ s/\n.*/ [more\.\.\.]/s;
$msg->append($text,$prg,$date,$level,$code);
}
# release
$msg->thaw();
}
####
my $recipe_clist = show_recipe_list();
####
$recipe_clist = show_recipe_list() || die "..."