[$ # Count the click and prepare for the forward
### I miss my lib.pm :'(
BEGIN {
my %names;
unshift @INC, catdir(get_setting("dir_templates"), "lib");
@INC = grep { ++$names{$_} == 1 } @INC;
}
no warnings;
use AmphetaDecaf::Digest;
use AmphetaDecaf::ChannelsMeta;
my $channel_fn = param('channel');
my $item_digest = param('item');
my $channel_meta = get_channel_meta({'filename' => $channel_fn});
$channel_meta->{clicked}++;
my $item_meta = get_item_meta
({'filename' => $channel_fn}, {'digest' => $item_digest});
$item_meta->{clicked}++;
save_item_meta({'filename' => $channel_fn}, {'digest' => $item_digest});
save_channel_meta({'filename' => $channel_fn});
$GLOBAL::url = param('url');
undef;
$]
AmphetaDesk [$ get_setting("app_version") $]
Click counted. Redirecting you to [$ $GLOBAL::url $]...