$send_flag = ($bbstatus ne $last_bbstatus)
or (($now - $last_send_time) > $min_frequency)
or defined($OPTS::opts{f});
####
my @messages = (
[ sub { $bbstatus ne $last_bbstatus }, "Status not changed" ],
[ sub { ($now - $last_send_time) > $min_frequency }, "Last send too old" ],
[ sub { defined($OPTS::optf{f}) }, "Forced send requested" ],
[ sub { 1 }, "No changes" ],
);
foreach my $m (@messages) {
print $m->[1], last if $m->[0]->();
}
##
##
my $send_message =
($bbstatus ne $last_bbstatus and "Status no changed")
or (($now - $last_send_time) > $min_frequency and "Last send too old")
or (defined($OPTS::opts{f}) and "Forced send requested")
or "No changes";
my $send_flag = $send_message ne "No changes";