| files >> /usr/libexec/usermin/ssh/ |
| files >> //usr/libexec/usermin/ssh/download_key.cgi |
#!/usr/bin/perl
# Output a key for download
require './ssh-lib.pl';
&ReadParse();
@keys = &list_ssh_keys();
($key) = grep { $_->{'private_file'} eq $in{'file'} } @keys;
$key || &error($text{'ekey_egone'});
print "Content-type: application/octet-stream\n\n";
print &read_file_contents($key->{'private_file'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`