chore: import upstream snapshot with attribution

This commit is contained in:
wehub-resource-sync
2026-07-13 13:12:17 +08:00
commit cf8edb9f21
44281 changed files with 1655134 additions and 0 deletions
+34
View File
@@ -0,0 +1,34 @@
#!/usr/local/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("");