PAL.C.T MINI SHELL
#!/usr/bin/perl
# save_known.cgi
# Save, create or delete a known host
require './ssh-lib.pl';
&ReadParse();
@knowns = &list_knowns();
$known = $knowns[$in{'idx'}] if (!$in{'new'});
if ($in{'delete'}) {
# Just delete this known host key
&delete_known($known);
}
else {
# Validate inputs
&error_setup($text{'known_err'});
if ($in{'hosts'}) {
$in{'hosts'} =~ /\S/ || &error($text{'known_ehosts'});
$known->{'hosts'} = [ split(/\s+/, $in{'hosts'}) ];
}
if ($in{type} eq 'ssh-rsa1') {
$in{'bits'} =~ /^\d+$/ || &error($text{'auth_ebits'});
$known->{'bits'} = $in{'bits'};
$in{'exp'} =~ /^\d+$/ || &error($text{'auth_eexp'});
$known->{'exp'} = $in{'exp'};
$in{'key'} =~ s/\r|\n//g;
$in{'key'} =~ /^\d+$/ || &error($text{'auth_ekey'});
}
else {
$known->{'type'} = $in{'type'};
$in{'key'} =~ s/\r|\n//g;
$in{'key'} =~ /^\S+$/ || &error($text{'auth_ekey'});
}
$known->{'key'} = $in{'key'};
$known->{'comment'} = $in{'comment'};
# Create or save the known host
if ($in{'new'}) {
&create_known($known);
}
else {
&modify_known($known);
}
}
&redirect("list_knowns.cgi");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`