Lines Matching refs:proto

77     my $proto;
83         $proto  = $1;
89         $proto  = $1;
96     return($proto, $ipvnum, $idnum);
104     my ($proto, $ipver, $idnum) = @_;
106     $proto = uc($proto) if($proto);
107     die "unsupported protocol: '$proto'" unless($proto &&
108 …($proto =~ /^(((FTP|HTTP|IMAP|POP3|SMTP|HTTP-PIPE)S?)|(TFTP|SFTP|SOCKS|SSH|RTSP|GOPHER|HTTPTLS))$/…
120     return "${proto}${idnum}${ipver}";
128     my ($proto, $ipver, $idnum) = @_;
129     return lc(servername_str($proto, $ipver, $idnum));
137     my ($proto, $ipver, $idnum) = @_;
138     my $string = lc(servername_str($proto, $ipver, $idnum));
148     my ($proto, $ipver, $idnum) = @_;
150     return '.'. servername_canon($proto, $ipver, $idnum) ."$trailer";
158     my ($logdir, $proto, $ipver, $idnum) = @_;
160     $trailer = '_stunnel.log' if(lc($proto) =~ /^(ftp|http|imap|pop3|smtp)s$/);
161     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
169     my ($logdir, $proto, $ipver, $idnum) = @_;
171     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
179     my ($logdir, $proto, $ipver, $idnum) = @_;
181     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
189     my ($logdir, $proto, $ipver, $idnum) = @_;
191     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
199     my ($proto, $ipver, $idnum) = @_;
200     die "unsupported protocol: '$proto'" unless($proto &&
201         (lc($proto) =~ /^(ftp|imap|pop3|smtp)s?$/));
202     my $trailer = (lc($proto) =~ /^ftps?$/) ? '_sockctrl.pid':'_sockfilt.pid';
203     return '.'. servername_canon($proto, $ipver, $idnum) ."$trailer";
211     my ($logdir, $proto, $ipver, $idnum) = @_;
212     die "unsupported protocol: '$proto'" unless($proto &&
213         (lc($proto) =~ /^(ftp|imap|pop3|smtp)s?$/));
214     my $trailer = (lc($proto) =~ /^ftps?$/) ? '_sockctrl.log':'_sockfilt.log';
215     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
223     my ($proto, $ipver, $idnum) = @_;
224     die "unsupported protocol: '$proto'" unless($proto &&
225         (lc($proto) =~ /^ftps?$/));
227     return '.'. servername_canon($proto, $ipver, $idnum) ."$trailer";
235     my ($logdir, $proto, $ipver, $idnum) = @_;
236     die "unsupported protocol: '$proto'" unless($proto &&
237         (lc($proto) =~ /^ftps?$/));
239     return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";