edit_tmpl.cgi

#!/usr/local/bin/perl
# Show a page for creating or editing an action template
use strict;
use warnings;
our (%access, %text, %in, %config);

require './virtualmin-init-lib.pl';
&ReadParse();
$access{'templates'} || &error($text{'tmpl_ecannot'});
&ui_print_header(undef,
		 $in{'new'} ? $text{'tmpl_title1'} : $text{'tmpl_title2'}, "");

my $tmpl;
if (!$in{'new'}) {
	# Get the existing template
	($tmpl) = grep { $_->{'id'} == $in{'id'} } &list_action_templates();
	}
else {
	$tmpl = { };
	$tmpl->{'stop'} = ':kill' if ($config{'mode'} eq 'smf');
	}

print &ui_form_start("save_tmpl.cgi", "post");
print &ui_hidden("new", $in{'new'});
print &ui_hidden("id", $in{'id'});
print &ui_table_start($text{'tmpl_header'}, undef, 2);

# Description
print &ui_table_row($text{'tmpl_desc'},
	&ui_textbox("desc", $tmpl->{'desc'}, 60));

# Start code
print &ui_table_row($text{'edit_start'},
	&ui_textarea("start", $tmpl->{'start'}, 5, 80));

# Stop code
my $stopdef;
if ($config{'mode'} eq 'smf') {
	$stopdef = &ui_radio("stop_def", $tmpl->{'stop'} eq ':kill' ? 1 : 0,
			     [ [ 1, $text{'edit_stopkill'} ],
			       [ 0, $text{'edit_stopbelow'} ] ])."<br>\n";
	}
print &ui_table_row($text{'edit_stop'},
	$stopdef.
	&ui_textarea("stop", $tmpl->{'stop'} eq ':kill' ? undef :
				$tmpl->{'stop'}, 5, 80));

# XML template
if ($config{'mode'} eq 'smf') {
	print &ui_table_row($text{'tmpl_xml'},
		&ui_radio("xml_def", $tmpl->{'xml'} ? 0 : 1,
			  [ [ 1, $text{'tmpl_xmldef'} ],
			    [ 0, $text{'tmpl_xmlbelow'} ] ])."<br>\n".
		&ui_textarea("xml", $tmpl->{'xml'}, 10, 80));
	}

print &ui_table_end();

# Section for additional parameters
print &ui_table_start($text{'tmpl_header2'}, undef, 2);

my @table = ( );
my $pmax;
for($pmax=0; defined($tmpl->{'pname_'.$pmax}); $pmax++) { }
for(my $i=0; $i < $pmax+3; $i++) {
	push(@table, [
		&ui_textbox("pname_$i", $tmpl->{'pname_'.$i}, 10),
		&ui_select("ptype_$i", $tmpl->{'ptype_'.$i},
			   [ [ 0, $text{'tmpl_ptype0'} ],
			     [ 1, $text{'tmpl_ptype1'} ],
			     [ 2, $text{'tmpl_ptype2'} ],
			     [ 3, $text{'tmpl_ptype3'} ],
			     [ 4, $text{'tmpl_ptype4'} ],
			   ], 1, 0, 0, 0,
			   "onChange='form.popts_$i.disabled = value != 3 && value != 4'"),
		&ui_textbox("popts_$i", $tmpl->{'popts_'.$i}, 20,
			    $tmpl->{'ptype_'.$i} != 3 &&
			    $tmpl->{'ptype_'.$i} != 4),
		&ui_textbox("pdesc_$i", $tmpl->{'pdesc_'.$i}, 50),
		]);
	}
my $ptable = &ui_columns_table(
	[ $text{'tmpl_pname'}, $text{'tmpl_ptype'},
	  $text{'tmpl_popts'}, $text{'tmpl_pdesc'} ],
	100,
	\@table,
	undef,
	1);
print &ui_table_row(undef, $ptable, 2);

print &ui_table_end();
if ($in{'new'}) {
	print &ui_form_end([ [ "create", $text{'create'} ] ]);
	}
else {
	print &ui_form_end([ [ "save", $text{'save'} ],
			     [ "delete", $text{'delete'} ] ]);
	}

&ui_print_footer("", $text{'index_return'});