sshserver.pl - OpenGrok cross reference for /curl/tests/sshserver.pl

Lines Matching refs:pp
111 sub pp {  subroutine
395 $sshdconfig = pp($sshdconfig);
396 $sshconfig = pp($sshconfig);
397 $sftpconfig = pp($sftpconfig);
402 if((! -e pp($hstprvkeyf)) || (! -s pp($hstprvkeyf)) ||
403    (! -e pp($hstpubkeyf)) || (! -s pp($hstpubkeyf)) ||
404    (! -e pp($hstpubmd5f)) || (! -s pp($hstpubmd5f)) ||
405    (! -e pp($hstpubsha256f)) || (! -s pp($hstpubsha256f)) ||
406    (! -e pp($cliprvkeyf)) || (! -s pp($cliprvkeyf)) ||
407    (! -e pp($clipubkeyf)) || (! -s pp($clipubkeyf))) {
409     unlink(pp($hstprvkeyf), pp($hstpubkeyf), pp($hstpubmd5f),
410            pp($hstpubsha256f), pp($cliprvkeyf), pp($clipubkeyf));
412     if(system "\"$sshkeygen\" -q -t rsa -f " . pp($hstprvkeyf) . " -C 'curl test server' -N ''") {
417     if(system "\"$sshkeygen\" -q -t rsa -f " . pp($cliprvkeyf) . " -C 'curl test client' -N ''") {
422     system "chmod 600 " . pp($hstprvkeyf);
423     system "chmod 600 " . pp($cliprvkeyf);
427       system("icacls \"" . pathhelp::sys_native_abs_path(pp($hstprvkeyf)) . "\" /reset");
428 …system("icacls \"" . pathhelp::sys_native_abs_path(pp($hstprvkeyf)) . "\" /grant:r \"$username:(R)…
429       system("icacls \"" . pathhelp::sys_native_abs_path(pp($hstprvkeyf)) . "\" /inheritance:r");
432     open(my $rsakeyfile, "<", pp($hstpubkeyf));
439     open(my $pubmd5file, ">", pp($hstpubmd5f));
442     if((! -e pp($hstpubmd5f)) || (! -s pp($hstpubmd5f))) {
446     open(my $pubsha256file, ">", pp($hstpubsha256f));
449     if((! -e pp($hstpubsha256f)) || (! -s pp($hstpubsha256f))) {
466     $clipubkeyf_config = pathhelp::sys_native_abs_path(pp($clipubkeyf));
467     $hstprvkeyf_config = pathhelp::sys_native_abs_path(pp($hstprvkeyf));
474     $clipubkeyf_config = pathhelp::build_sys_abs_path(pp($clipubkeyf));
475     $hstprvkeyf_config = pathhelp::build_sys_abs_path(pp($hstprvkeyf));
481     $clipubkeyf_config = abs_path(pp($clipubkeyf));
482     $hstprvkeyf_config = abs_path(pp($hstprvkeyf));
831 if((! -e pp($knownhosts)) || (! -s pp($knownhosts))) {
833     unlink(pp($knownhosts));
834     if(open(my $rsakeyfile, "<", pp($hstpubkeyf))) {
837             if(open(my $knownhostsh, ">", pp($knownhosts))) {
868     $identity_config = pathhelp::sys_native_abs_path(pp($identity));
869     $knownhosts_config = pathhelp::sys_native_abs_path(pp($knownhosts));
873     $identity_config = pathhelp::build_sys_abs_path(pp($identity));
874     $knownhosts_config = pathhelp::build_sys_abs_path(pp($knownhosts));
877     $identity_config = abs_path(pp($identity));
878     $knownhosts_config = abs_path(pp($knownhosts));
1160 $error = dump_array(pp($sftpcmds), @cfgarr);
1218 unlink(pp($hstprvkeyf), pp($hstpubkeyf), pp($hstpubmd5f), pp($hstpubsha256f),
1219        pp($cliprvkeyf), pp($clipubkeyf), pp($knownhosts),