1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
#!/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 <joeyh@debian.org>
=cut
|