PAL.C.T MINI SHELL
#!/usr/bin/perl
# Save, create or delete an IP-specific SSL key
require './webmin-lib.pl';
&ReadParse();
&get_miniserv_config(\%miniserv);
@ipkeys = &get_ipkeys(\%miniserv);
if (!$in{'new'}) {
$ipkey = $ipkeys[$in{'idx'}];
}
else {
$ipkey = { };
}
if ($in{'delete'}) {
# Just remove this entry
splice(@ipkeys, $in{'idx'}, 1);
}
else {
# Validate inputs
&error_setup($text{'ipkey_err'});
@ips = split(/\s+/, $in{'ips'});
foreach $i (@ips) {
&check_ipaddress($i) || &check_ip6address($i) ||
$i =~ /^(\*\.)?[a-z0-9\.\_\-]+$/i ||
&error(&text('ipkey_eip2', $i));
}
@ips || &error(&text('ipkey_eips'));
$ipkey->{'ips'} = \@ips;
&validate_key_cert($in{'key'}, $in{'cert_def'} ? undef : $in{'cert'});
$ipkey->{'key'} = $in{'key'};
$ipkey->{'cert'} = $in{'cert_def'} ? undef : $in{'cert'};
if ($in{'extracas_mode'} == 0) {
delete($ipkey->{'extracas'});
}
elsif ($in{'extracas_mode'} == 2) {
$ipkey->{'extracas'} = 'none';
}
else {
@files = split(/\s+/, $in{'extracas'});
@files || &error($text{'ipkey_eextracas'});
foreach $f (@files) {
-r $f || &error(&text('ipkey_eextraca', $f));
}
$ipkey->{'extracas'} = join(' ', @files);
}
# Save or add
if ($in{'new'}) {
push(@ipkeys, $ipkey);
}
}
&save_ipkeys(\%miniserv, \@ipkeys);
&put_miniserv_config(\%miniserv);
&show_restart_page();
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`