Lines Matching defs:pp

112 sub pp {
392 if((! -e pp($hstprvkeyf)) || (! -s pp($hstprvkeyf)) ||
393    (! -e pp($hstpubkeyf)) || (! -s pp($hstpubkeyf)) ||
394    (! -e pp($hstpubmd5f)) || (! -s pp($hstpubmd5f)) ||
395    (! -e pp($hstpubsha256f)) || (! -s pp($hstpubsha256f)) ||
396    (! -e pp($cliprvkeyf)) || (! -s pp($cliprvkeyf)) ||
397    (! -e pp($clipubkeyf)) || (! -s pp($clipubkeyf))) {
399     unlink(pp($hstprvkeyf), pp($hstpubkeyf), pp($hstpubmd5f),
400            pp($hstpubsha256f), pp($cliprvkeyf), pp($clipubkeyf));
402     if(system "\"$sshkeygen\" -q -t rsa -f " . pp($hstprvkeyf) . " -C 'curl test server' -N ''") {
407     if(system "\"$sshkeygen\" -q -t rsa -f " . pp($cliprvkeyf) . " -C 'curl test client' -N ''") {
412     system "chmod 600 " . pp($hstprvkeyf);
413     system "chmod 600 " . pp($cliprvkeyf);
415     open(my $rsakeyfile, "<", pp($hstpubkeyf));
422     open(my $pubmd5file, ">", pp($hstpubmd5f));
425     if((! -e pp($hstpubmd5f)) || (! -s pp($hstpubmd5f))) {
429     open(my $pubsha256file, ">", pp($hstpubsha256f));
432     if((! -e pp($hstpubsha256f)) || (! -s pp($hstpubsha256f))) {
448     $clipubkeyf_config = pathhelp::sys_native_abs_path(pp($clipubkeyf));
449     $hstprvkeyf_config = pathhelp::sys_native_abs_path(pp($hstprvkeyf));
461     $clipubkeyf_config = abs_path(pp($clipubkeyf));
462     $hstprvkeyf_config = abs_path(pp($hstprvkeyf));
466 my $sshdconfig_abs = pathhelp::sys_native_abs_path(pp($sshdconfig));
625 $error = dump_array(pp($sshdconfig), @cfgarr);
648         $err = dump_array(pp($sshdconfig), (@cfgarr, "$option $value"));
655         unlink pp($sshdconfig);
787 $error = dump_array(pp($sshdconfig), @cfgarr);
808 if((! -e pp($knownhosts)) || (! -s pp($knownhosts))) {
810     unlink(pp($knownhosts));
811     if(open(my $rsakeyfile, "<", pp($hstpubkeyf))) {
814             if(open(my $knownhostsh, ">", pp($knownhosts))) {
845     $identity_config = pathhelp::sys_native_abs_path(pp($identity));
846     $knownhosts_config = pathhelp::sys_native_abs_path(pp($knownhosts));
854     $identity_config = abs_path(pp($identity));
855     $knownhosts_config = abs_path(pp($knownhosts));
1095 $error = dump_array(pp($sshconfig), @cfgarr);
1123 $error = dump_array(pp($sftpconfig), @cfgarr);
1137 $error = dump_array(pp($sftpcmds), @cfgarr);
1195 unlink(pp($hstprvkeyf), pp($hstpubkeyf), pp($hstpubmd5f), pp($hstpubsha256f),
1196        pp($cliprvkeyf), pp($clipubkeyf), pp($knownhosts),
1197        pp($sshdconfig), pp($sshconfig), pp($sftpconfig));