mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
30 lines
789 B
Perl
Executable File
30 lines
789 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# up.cgi
|
|
# Attempt to open a connection that was not started automatically
|
|
|
|
require './ipsec-lib.pl';
|
|
&ReadParse();
|
|
$| = 1;
|
|
$theme_no_table++;
|
|
&ui_print_header(undef, $text{'up_title'}, "");
|
|
|
|
# Try to connect
|
|
$cmd = "$config{'ipsec'} auto --up '$in{'conn'}'";
|
|
print "<b>",&text('up_cmd', "<tt>$cmd</tt>"),"</b>\n";
|
|
print "<pre>";
|
|
&foreign_require("proc", "proc-lib.pl");
|
|
&proc::safe_process_exec_logged($cmd, 0, 0, STDOUT, undef, 1);
|
|
print "</pre>\n";
|
|
|
|
# Save connection in config
|
|
&lock_file("$module_config_directory/config");
|
|
$config{'conn'} = $in{'conn'};
|
|
&write_file("$module_config_directory/config", \%config);
|
|
&unlock_file("$module_config_directory/config");
|
|
if (!$?) {
|
|
&webmin_log("up", undef, $in{'conn'});
|
|
}
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|
|
|