Viewing file:  get-template.pl (2.58 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
=head1 get-template.pl
Outputs all settings in a template.
This command can be used to output all settings in a Virtualmin template,
specified either by name with the C<--name> parameter, or by ID with the
C<--id> flag. By default only values actually set in the template are output,
but you can add the C<--inherited> flag to include settings from the default
template too.
By default all settings are output, formatted like :
aliascopy: 0
aliasdomslimit: none
aliaslimit: none
etc..
Any newlines in multi-line values are converted to \n for the output. However,
if you select to output just a single setting with the C<--setting> option
followed by a setting name, newlines in it's value will B<not> be converted.
=cut
package virtual_server;
if (!$module_name) {
$main::no_acl_check++;
$ENV{'WEBMIN_CONFIG'} ||= "/etc/webmin";
$ENV{'WEBMIN_VAR'} ||= "/var/webmin";
if ($0 =~ /^(.*)\/[^\/]+$/) {
chdir($pwd = $1);
}
else {
chop($pwd = `pwd`);
}
$0 = "$pwd/get-templates.pl";
require './virtual-server-lib.pl';
$< == 0 || die "get-templates.pl must be run as root";
}
# Parse command-line args
$owner = 1;
while(@ARGV > 0) {
local $a = shift(@ARGV);
if ($a eq "--name") {
$tmplname = shift(@ARGV);
}
elsif ($a eq "--id") {
$tmplid = shift(@ARGV);
}
elsif ($a eq "--inherited") {
$inherited = 1;
}
elsif ($a eq "--setting") {
$keyname = shift(@ARGV);
}
elsif ($a eq "--multiline") {
$multiline = 1;
}
elsif ($a eq "--help") {
&usage();
}
else {
&usage("Unknown parameter $a");
}
}
# Validate args, get the template
@tmpls = &list_templates();
if (defined($tmplname)) {
($tmpl) = grep { $_->{'name'} eq $tmplname } @tmpls;
$tmpl || &usage("No template with name $tmplname found");
}
elsif (defined($tmplid)) {
($tmpl) = grep { $_->{'id'} eq $tmplid } @tmpls;
$tmpl || &usage("No template with ID $tmplid found");
}
else {
&usage("Missing --name or --id parameter");
}
if ($inherited) {
$tmpl = &get_template($tmpl->{'id'});
}
if ($keyname) {
# Print just one key
print $tmpl->{$keyname};
print "\n" if ($tmpl->{$keyname} !~ /\n$/);
}
else {
# Dump the contents
foreach my $k (sort { $a cmp $b } keys %$tmpl) {
$tmpl->{$k} =~ s/\r//g;
$tmpl->{$k} =~ s/\\/\\\\/g;
$tmpl->{$k} =~ s/\n/\\n/g;
print "$k: $tmpl->{$k}\n";
}
}
sub usage
{
print "$_[0]\n\n" if ($_[0]);
print "Outputs all settings in some virtual server template.\n";
print "\n";
print "virtualmin get-template --name template-name | --id template-id\n";
print " [--setting name]\n";
print " [--inherited]\n";
exit(1);
}
|