change_ssl.cgi

来自「Unix下基于Web的管理工具」· CGI 代码 · 共 17 行

#!/usr/local/bin/perl
# change_ssl.cgi
# Enable or disable SSL support

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

&get_miniserv_config(\%miniserv);
$miniserv{'ssl'} = $in{'ssl'};
&put_miniserv_config(\%miniserv);
&restart_miniserv();

$url = "$ENV{'SERVER_NAME'}:$miniserv{'port'}/webmin/";
if ($in{'ssl'}) { &redirect("https://$url"); }
else { &redirect("http://$url"); }