#!/usr/bin/perl

use Debian::DistroInfo;
use Text::Template;

my $updates_tmpl = Text::Template->new(SOURCE => 'templates/updates') or die;

my %vars = (
	buster_stable_key      => 'DCC9EFBF77E11517',
	buster_automatic_key   => 'DC30D7C23CBBABEE',
	bullseye_stable_key    => '605C66F00D6C9793',
	bullseye_automatic_key => '0E98404D386FA1D9',
	bookworm_stable_key    => 'F8D2585B8783D481',
	bookworm_automatic_key => 'B7C5D7D6350947F8',
);

my $updates = $updates_tmpl->fill_in(HASH => \%vars, BROKEN => undef);

print($updates);
