Lines Matching refs:proto

80     my $proto;
86         $proto  = $1;
92         $proto  = $1;
99     return($proto, $ipvnum, $idnum);
107     my ($proto, $ipver, $idnum) = @_;
109     $proto = uc($proto) if($proto);
110     die "unsupported protocol: '$proto'" unless($proto &&
111 …($proto =~ /^(((FTP|HTTP|HTTP\/2|HTTP\/3|IMAP|POP3|GOPHER|SMTP|HTTP-PIPE)S?)|(TFTP|SFTP|SOCKS|SSH|…
123     return "${proto}${idnum}${ipver}";
131     my ($proto, $ipver, $idnum) = @_;
132     return lc(servername_str($proto, $ipver, $idnum));
140     my ($proto, $ipver, $idnum) = @_;
141     my $string = lc(servername_str($proto, $ipver, $idnum));
152     my ($proto, $ipver, $idnum) = @_;
154     return '.'. servername_canon($proto, $ipver, $idnum) ."$trailer";
161     my ($proto, $ipver, $idnum) = @_;
163     return '.'. servername_canon($proto, $ipver, $idnum) ."$trailer";
171     my ($logdir, $proto, $ipver, $idnum) = @_;
173     $trailer = '_stunnel.log' if(lc($proto) =~ /^(ftp|http|imap|pop3|smtp)s$/);
174     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
182     my ($logdir, $proto, $ipver, $idnum) = @_;
184     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
192     my ($logdir, $proto, $ipver, $idnum) = @_;
194     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
202     my ($logdir, $proto, $ipver, $idnum) = @_;
204     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
212     my ($proto, $ipver, $idnum) = @_;
213     die "unsupported protocol: '$proto'" unless($proto &&
214         (lc($proto) =~ /^(ftp|imap|pop3|smtp)s?$/));
215     my $trailer = (lc($proto) =~ /^ftps?$/) ? '_sockctrl.pid':'_sockfilt.pid';
216     return '.'. servername_canon($proto, $ipver, $idnum) ."$trailer";
224     my ($logdir, $proto, $ipver, $idnum) = @_;
225     die "unsupported protocol: '$proto'" unless($proto &&
226         (lc($proto) =~ /^(ftp|imap|pop3|smtp)s?$/));
227     my $trailer = (lc($proto) =~ /^ftps?$/) ? '_sockctrl.log':'_sockfilt.log';
228     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
236     my ($proto, $ipver, $idnum) = @_;
237     die "unsupported protocol: '$proto'" unless($proto &&
238         (lc($proto) =~ /^ftps?$/));
240     return '.'. servername_canon($proto, $ipver, $idnum) ."$trailer";
248     my ($logdir, $proto, $ipver, $idnum) = @_;
249     die "unsupported protocol: '$proto'" unless($proto &&
250         (lc($proto) =~ /^ftps?$/));
252     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";