Lines Matching refs:proto
223 for my $proto (('ftp', 'gopher', 'http', 'imap', 'pop3', 'smtp', 'http/2', 'http/3')) {
227 my $serv = servername_id("$proto$ssl", $ipvnum, $idnum);
228 my $pidf = server_pidfilename("$LOGDIR/$PIDDIR", "$proto$ssl",
231 my $portf = server_portfilename("$LOGDIR/$PIDDIR", "$proto$ssl",
238 for my $proto (('tftp', 'sftp', 'socks', 'ssh', 'rtsp', 'httptls',
242 my $serv = servername_id($proto, $ipvnum, $idnum);
243 my $pidf = server_pidfilename("$LOGDIR/$PIDDIR", $proto, $ipvnum,
246 my $portf = server_portfilename("$LOGDIR/$PIDDIR", $proto, $ipvnum,
252 for my $proto (('http', 'imap', 'pop3', 'smtp', 'http/2', 'http/3')) {
254 my $serv = servername_id("$proto$ssl", "unix", 1);
255 my $pidf = server_pidfilename("$LOGDIR/$PIDDIR", "$proto$ssl",
258 my $portf = server_portfilename("$LOGDIR/$PIDDIR", "$proto$ssl",
456 my ($proto) = @_;
457 return $PORT{$proto} || "[not running]";
473 my $proto = $1;
476 killsockfilters("$LOGDIR/$PIDDIR", $proto, $ipvnum, $idnum, $verbose);
562 my ($proto, $ipvnum, $idnum, $ip, $port_or_path, $do_http3) = @_;
563 my $server = servername_id($proto, $ipvnum, $idnum);
570 servername_canon($proto, $ipvnum, $idnum) .$infix .'_verify.out';
574 servername_canon($proto, $ipvnum, $idnum) .$infix .'_verify.log';
577 if($proto eq "gopher") {
588 $flags .= "--insecure " if($proto eq 'https');
593 $flags .= "\"$proto://$ip:$port/${bonus}verifiedserver\"";
632 logmsg "RUN: failed to resolve host ($proto://$ip:$port/verifiedserver)\n";
649 my ($proto, $ipvnum, $idnum, $ip, $port) = @_;
650 my $server = servername_id($proto, $ipvnum, $idnum);
655 servername_canon($proto, $ipvnum, $idnum) .'_verify.log';
658 if($proto eq "ftps") {
670 $flags .= "\"$proto://$ip:$port/verifiedserver\"";
716 my ($proto, $ipvnum, $idnum, $ip, $port) = @_;
717 my $server = servername_id($proto, $ipvnum, $idnum);
720 servername_canon($proto, $ipvnum, $idnum) .'_verify.out';
724 servername_canon($proto, $ipvnum, $idnum) .'_verify.log';
775 logmsg "RUN: failed to resolve host ($proto://$ip:$port/verifiedserver)\n";
791 my ($proto, $ipvnum, $idnum, $ip, $port) = @_;
792 my $pidfile = server_pidfilename("$LOGDIR/$PIDDIR", $proto, $ipvnum,
806 my ($proto, $ipvnum, $idnum, $ip, $port) = @_;
807 my $server = servername_id($proto, $ipvnum, $idnum);
845 my ($proto, $ipvnum, $idnum, $ip, $port) = @_;
846 my $server = servername_id($proto, $ipvnum, $idnum);
847 my $pidfile = server_pidfilename("$LOGDIR/$PIDDIR", $proto, $ipvnum,
851 servername_canon($proto, $ipvnum, $idnum) .'_verify.out';
855 servername_canon($proto, $ipvnum, $idnum) .'_verify.log';
924 my ($proto, $ipvnum, $idnum, $ip, $port) = @_;
925 my $pidfile = server_pidfilename("$LOGDIR/$PIDDIR", $proto, $ipvnum,
938 my ($proto, $ipvnum, $idnum, $ip, $port) = @_;
939 my $pidfile = server_pidfilename("$LOGDIR/$PIDDIR", $proto, $ipvnum,
955 my ($proto, $ipvnum, $idnum, $ip, $port) = @_;
956 my $server = servername_id($proto, $ipvnum, $idnum);
961 servername_canon($proto, $ipvnum, $idnum) .'_verify.log';
970 $flags .= "\"$proto://$ip:$port/SERVER/verifiedserver\"";
1015 my ($proto, $ipvnum, $idnum, $ip, $port) = @_;
1016 my $server = servername_id($proto, $ipvnum, $idnum);
1021 servername_canon($proto, $ipvnum, $idnum) .'_verify.log';
1030 $flags .= "\"$proto://$ip:$port\"";
1103 my ($proto, $ipvnum, $idnum, $ip, $port) = @_;
1109 my $fun = $protofunc{$proto};
1111 $pid = &$fun($proto, $ipvnum, $idnum, $ip, $port);
1130 my ($proto, $ipvnum, $idnum, $ip, $port, $do_http3) = @_;
1134 my $fun = $protofunc{$proto};
1135 my $pid = &$fun($proto, $ipvnum, $idnum, $ip, $port, $do_http3);
1142 my $srvrname = servername_str($proto, $ipvnum, $idnum);
1152 my ($proto, $verb, $alt, $port_or_path) = @_;
1175 my $server = servername_id($proto, $ipvnum, $idnum);
1190 my $srvrname = servername_str($proto, $ipvnum, $idnum);
1193 my $logfile = server_logfilename($LOGDIR, $proto, $ipvnum, $idnum);
1196 $flags .= "--gopher " if($proto eq "gopher");
1230 my $pid3 = verifyserver($proto, $ipvnum, $idnum, $ip, $port_or_path);
1253 my $proto="http/2";
1259 my $server = servername_id($proto, $ipvnum, $idnum);
1274 my $srvrname = servername_str($proto, $ipvnum, $idnum);
1275 my $logfile = server_logfilename($LOGDIR, $proto, $ipvnum, $idnum);
1314 my $proto="http/3";
1320 my $server = servername_id($proto, $ipvnum, $idnum);
1335 my $srvrname = servername_str($proto, $ipvnum, $idnum);
1336 my $logfile = server_logfilename($LOGDIR, $proto, $ipvnum, $idnum);
1372 my ($verb, $proto, $proxy, $certfile) = @_;
1386 my $server = servername_id($proto, $ipvnum, $idnum);
1401 my $srvrname = servername_str($proto, $ipvnum, $idnum);
1403 my $logfile = server_logfilename($LOGDIR, $proto, $ipvnum, $idnum);
1410 $flags .= "--ipv$ipvnum --proto $proto ";
1413 if($proto eq "gophers") {
1455 my $proto = "httptls";
1464 my $server = servername_id($proto, $ipvnum, $idnum);
1479 my $srvrname = servername_str($proto, $ipvnum, $idnum);
1480 my $logfile = server_logfilename($LOGDIR, $proto, $ipvnum, $idnum);
1514 my ($proto, $id, $verb, $ipv6) = @_;
1517 if($proto !~ /^(?:ftp|imap|pop3|smtp)$/) {
1518 logmsg "Unsupported protocol $proto!!\n";
1526 my $server = servername_id($proto, $ipvnum, $idnum);
1542 my $srvrname = servername_str($proto, $ipvnum, $idnum);
1543 my $logfile = server_logfilename($LOGDIR, $proto, $ipvnum, $idnum);
1550 $flags .= "--srcdir \"$srcdir\" --proto $proto ";
1571 my $pid3 = verifyserver($proto, $ipvnum, $idnum, $ip, $port);
1584 $PORT{$proto . ($ipvnum == 6? '6': '')} = $port;
1593 my ($verb, $ipv6, $certfile, $proto, $clearport) = @_;
1602 my $server = servername_id($proto, $ipvnum, $idnum);
1617 my $srvrname = servername_str($proto, $ipvnum, $idnum);
1619 my $logfile = server_logfilename($LOGDIR, $proto, $ipvnum, $idnum);
1626 $flags .= "--ipv$ipvnum --proto $proto ";
1663 my $proto = 'tftp';
1673 my $server = servername_id($proto, $ipvnum, $idnum);
1688 my $srvrname = servername_str($proto, $ipvnum, $idnum);
1690 my $logfile = server_logfilename($LOGDIR, $proto, $ipvnum, $idnum);
1715 my $pid3 = verifyserver($proto, $ipvnum, $idnum, $ip, $port);
1739 my $proto = 'rtsp';
1749 my $server = servername_id($proto, $ipvnum, $idnum);
1765 my $srvrname = servername_str($proto, $ipvnum, $idnum);
1766 my $logfile = server_logfilename($LOGDIR, $proto, $ipvnum, $idnum);
1791 my $pid3 = verifyserver($proto, $ipvnum, $idnum, $ip, $port);
1815 my $proto = 'ssh';
1824 my $server = servername_id($proto, $ipvnum, $idnum);
1845 my $srvrname = servername_str($proto, $ipvnum, $idnum);
1846 my $logfile = server_logfilename($LOGDIR, $proto, $ipvnum, $idnum);
1937 my $proto = 'mqtt';
1938 my $port = protoport($proto);
1942 my $server = servername_id($proto, $ipvnum, $idnum);
1957 my $srvrname = servername_str($proto, $ipvnum, $idnum);
1958 my $logfile = server_logfilename($LOGDIR, $proto, $ipvnum, $idnum);
1993 my $proto = 'socks';
1997 my $server = servername_id($proto, $ipvnum, $idnum);
2012 my $srvrname = servername_str($proto, $ipvnum, $idnum);
2014 my $logfile = server_logfilename($LOGDIR, $proto, $ipvnum, $idnum);
2060 my $proto = "dict";
2069 my $server = servername_id($proto, $ipvnum, $idnum);
2084 my $srvrname = servername_str($proto, $ipvnum, $idnum);
2085 my $logfile = server_logfilename($LOGDIR, $proto, $ipvnum, $idnum);
2121 my $proto = "smb";
2130 my $server = servername_id($proto, $ipvnum, $idnum);
2145 my $srvrname = servername_str($proto, $ipvnum, $idnum);
2146 my $logfile = server_logfilename($LOGDIR, $proto, $ipvnum, $idnum);
2182 my $proto = "telnet";
2191 my $server = servername_id($proto, $ipvnum, $idnum);
2206 my $srvrname = servername_str($proto, $ipvnum, $idnum);
2207 my $logfile = server_logfilename($LOGDIR, $proto, $ipvnum, $idnum);
2245 my ($proto, $verb, $alt, $port_or_path, $do_http3) = @_;
2263 return &responsiveserver($proto, $ipvnum, $idnum, $ip, $port_or_path, $do_http3);
2271 my ($proto, $id, $verb, $ipv6) = @_;
2276 return &responsiveserver($proto, $ipvnum, $idnum, $ip);
2284 my ($proto, $id, $verb, $ipv6) = @_;
2289 my $protoip = $proto . ($ipvnum == 6? '6': '');
2291 if($proto =~ /^(?:ftp|imap|pop3|smtp)$/) {
2295 logmsg "Unsupported protocol $proto!!\n";
2299 return &responsiveserver($proto, $ipvnum, $idnum, $ip, $port);
2308 my $proto = 'rtsp';
2309 my $port = protoport($proto);
2321 return &responsiveserver($proto, $ipvnum, $idnum, $ip, $port);
2330 my $proto = 'tftp';
2331 my $port = protoport($proto);
2343 return &responsiveserver($proto, $ipvnum, $idnum, $ip, $port);
2354 my $proto = "httptls";
2355 my $port = protoport($proto);
2364 return &responsiveserver($proto, $ipvnum, $idnum, $ip, $port);
3065 foreach my $proto ('DICT',
3083 $port = protoport(lc $proto);
3084 $$thing =~ s/${prefix}(?:$proto)PORT/$port/g;
