workbench.cgi

#!/usr/local/bin/perl
# Script workbench
# workbench.cgi

require './virtual-server-lib.pl';
&ReadParse();

# Checks
&error_setup($text{'scripts_ekit'});
my $d = &get_domain($in{'dom'});
&can_edit_domain($d) && &can_edit_scripts() || &error($text{'edit_ecannot'});
&domain_has_website($d) && $d->{'dir'} || &error($text{'scripts_eweb'});

# Get script
my ($sinfo) = grep { $_->{'id'} eq $in{'sid'} } &list_domain_scripts($d);
my $script = &get_script($sinfo->{'name'});
$script || &error($text{'scripts_emissing'});
my $desc = $script->{'tmdesc'} || $script->{'desc'};

# Run
my $apply_func = $script->{'kit_apply_func'};
if (defined(&$apply_func)) {
	# Print header
	&ui_print_unbuffered_header(&domain_in($d),
		&text("scripts_kit", $desc), "");
	&$apply_func($d, \%in, $sinfo, $script);
	# Print footer
	&ui_print_footer(
		"edit_script.cgi?dom=$in{'dom'}&".
			"script=$in{'sid'}&tab=$in{'tab'}&auid=$in{'uid'}",
		$text{'scripts_ereturn'},
		"list_scripts.cgi?dom=$in{'dom'}", $text{'scripts_return'},
		&domain_footer_link($d));
	}
else {
	&error(&text('scripts_gpl_pro_tip_workbench_enot', $desc));
	}