Lines Matching refs:proto

67 # values for 'proto' variable in order to differentiate different servers.
102     my $proto;
108         $proto  = $1;
114         $proto  = $1;
121     return($proto, $ipvnum, $idnum);
129     my ($proto, $ipver, $idnum) = @_;
131     $proto = uc($proto) if($proto);
132     die "unsupported protocol: '$proto'" unless($proto &&
133         ($proto =~ /^(((FTP|HTTP|HTTP\/2|HTTP\/3|IMAP|POP3|GOPHER|SMTP|HTTP-PIPE)S?)|(TFTP|SFTP|SOCKS|SSH|RTSP|HTTPTLS|DICT|SMB|SMBS|TELNET|MQTT))$/));
145     return "${proto}${idnum}${ipver}";
153     my ($proto, $ipver, $idnum) = @_;
154     return lc(servername_str($proto, $ipver, $idnum));
162     my ($proto, $ipver, $idnum) = @_;
163     my $string = lc(servername_str($proto, $ipver, $idnum));
174     my ($piddir, $proto, $ipver, $idnum) = @_;
176     return "${piddir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
183     my ($piddir, $proto, $ipver, $idnum) = @_;
185     return "${piddir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
193     my ($logdir, $proto, $ipver, $idnum) = @_;
195     $trailer = '_stunnel.log' if(lc($proto) =~ /^(ftp|http|imap|pop3|smtp)s$/);
196     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
204     my ($logdir, $proto, $ipver, $idnum) = @_;
206     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
214     my ($logdir, $proto, $ipver, $idnum) = @_;
216     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
224     my ($logdir, $proto, $ipver, $idnum) = @_;
226     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
234     my ($piddir, $proto, $ipver, $idnum) = @_;
235     die "unsupported protocol: '$proto'" unless($proto &&
236         (lc($proto) =~ /^(ftp|imap|pop3|smtp)s?$/));
237     my $trailer = (lc($proto) =~ /^ftps?$/) ? '_sockctrl.pid':'_sockfilt.pid';
238     return "${piddir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
246     my ($logdir, $proto, $ipver, $idnum) = @_;
247     die "unsupported protocol: '$proto'" unless($proto &&
248         (lc($proto) =~ /^(ftp|imap|pop3|smtp)s?$/));
249     my $trailer = (lc($proto) =~ /^ftps?$/) ? '_sockctrl.log':'_sockfilt.log';
250     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
258     my ($piddir, $proto, $ipver, $idnum) = @_;
259     die "unsupported protocol: '$proto'" unless($proto &&
260         (lc($proto) =~ /^ftps?$/));
262     return "${piddir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
270     my ($logdir, $proto, $ipver, $idnum) = @_;
271     die "unsupported protocol: '$proto'" unless($proto &&
272         (lc($proto) =~ /^ftps?$/));
274     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";