#!/usr/bin/perl -w

=head1 NAME

debconf-loadtemplate - load template file into debconf database

=cut

use strict;
use Debconf::Db;
use Debconf::Template;

=head1 SYNOPSIS

 debconf-loadtemplate owner file [file ..]

=head1 DESCRIPTION

Loads one or more template files into the debconf database. The first
parameter specifies the owner of the templates (typically, the owner is the
name of a debian package). The remaining parameters are template files to
load.

=head1 WARNING

This program should never be used from a maintainer script of a package
that uses debconf! It may however, be useful in debugging, or to seed the
debconf database.

=head1 SEE ALSO

L<debconf-communicate(1)>

=cut

sub usage {
	die "Usage: $0 owner file\n";
}

my $owner=shift || usage();
usage() unless @ARGV;

Debconf::Db->load;
Debconf::Template->load($_, $owner) foreach @ARGV;
Debconf::Db->save;

=head1 AUTHOR

Joey Hess <[email protected]>

=cut