#!/usr/local/bin/perl # showkey.cgi # Show this host's public key in a format suitable for inclusion in the config # file of another host require './ipsec-lib.pl'; &ui_print_header(undef, $text{'showkey_title'}, ""); print "$text{'showkey_desc1'}
\n";
print "",join("
", &wrap_lines(&get_public_key(), 80)),"
\n"; print "$text{'showkey_desc2'}
\n"; ($flags, $proto, $alg, $key) = &get_public_key_dns(); print "
$text{'showkey_flags'} | $flags |
$text{'showkey_proto'} | $proto |
$text{'showkey_alg'} | $alg |
$text{'showkey_key'} | ",
join(" ", &wrap_lines($key, 80))," |