1#!@@PERL@@
2#
3# Author: Mark Stosberg
4# Based on work by: Christopher Browne
5# Parts Copyright 2006 Summerault, LLC
6# Parts Copyright 2004-2009 Afilias Canada
7
8use Getopt::Long;
9
10$CONFIG_FILE = '@@SYSCONFDIR@@/slon_tools.conf';
11$SHOW_USAGE  = 0;
12
13# Read command-line options
14GetOptions("config=s" => \$CONFIG_FILE,
15	   "help"     => \$SHOW_USAGE);
16
17my $USAGE =
18"Usage: slonik_print_preamble [--config file]
19
20    print the preamble required by all slonik scripts, using the
21    details from the config file
22
23  Write the results of this command to a file, and then use a text
24  editor to complete a custom command to send to slonik.
25";
26
27if ($SHOW_USAGE) {
28    print $USAGE;
29    exit 0;
30}
31
32require '@@PERLSHAREDIR@@/slon-tools.pm';
33require $CONFIG_FILE;
34
35my $slonik = '';
36$slonik .= genheader();
37
38run_slonik_script($slonik, 'PRINT PREAMBLE');
39