#!/usr/bin/perl
# bootup.cgi
# Create, enable or disable PPTP startup at boot time

require './pptp-client-lib.pl';
&foreign_require("init", "init-lib.pl");
&ReadParse();

$start_cmd = "$module_config_directory/start.pl";
$stop_cmd = "$module_config_directory/stop.pl";

if ($in{'tunnel'}) {
	# Create start and stop wrapper scripts
	&foreign_require("cron", "cron-lib.pl");
	&cron::create_wrapper($start_cmd, $module_name, "start.pl");
	&cron::create_wrapper($stop_cmd, $module_name, "stop.pl");

	# Enable starting at boot
	&init::enable_at_boot($module_name,
			      "Startup or shutdown PPTP connection",
			      $start_cmd, $stop_cmd, undef, { 'fork' => 1 });
	$config{'boot'} = $in{'tunnel'};
	}
else {
	# Disable starting at boot
	&init::disable_at_boot($module_name);
	delete($config{'boot'});
	}

# Save setting
&save_module_config();

&redirect("");