Lines Matching refs:proto
70 my $proto;
75 $proto = $1;
80 $proto = $1;
87 return($proto, $ipvnum, $idnum);
95 my ($proto, $ipver, $idnum) = @_;
97 $proto = uc($proto) if($proto);
98 die "unsupported protocol: $proto" unless($proto &&
99 ($proto =~ /^(((FTP|HTTP|IMAP|POP3|SMTP)S?)|(TFTP|SFTP|SOCKS|SSH|RTSP|GOPHER|HTTP\+TLS-SRP))$/));
111 return "${proto}${idnum}${ipver}";
119 my ($proto, $ipver, $idnum) = @_;
120 return lc(servername_str($proto, $ipver, $idnum));
128 my ($proto, $ipver, $idnum) = @_;
129 my $string = lc(servername_str($proto, $ipver, $idnum));
139 my ($proto, $ipver, $idnum) = @_;
141 return '.'. servername_canon($proto, $ipver, $idnum) ."$trailer";
149 my ($logdir, $proto, $ipver, $idnum) = @_;
151 $trailer = '_stunnel.log' if(lc($proto) =~ /^(ftp|http|imap|pop3|smtp)s$/);
152 return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
160 my ($logdir, $proto, $ipver, $idnum) = @_;
162 return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
170 my ($logdir, $proto, $ipver, $idnum) = @_;
172 return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
180 my ($logdir, $proto, $ipver, $idnum) = @_;
182 return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
190 my ($proto, $ipver, $idnum) = @_;
191 die "unsupported protocol: $proto" unless($proto &&
192 (lc($proto) =~ /^(ftp|imap|pop3|smtp)s?$/));
193 my $trailer = (lc($proto) =~ /^ftps?$/) ? '_sockctrl.pid':'_sockfilt.pid';
194 return '.'. servername_canon($proto, $ipver, $idnum) ."$trailer";
202 my ($logdir, $proto, $ipver, $idnum) = @_;
203 die "unsupported protocol: $proto" unless($proto &&
204 (lc($proto) =~ /^(ftp|imap|pop3|smtp)s?$/));
205 my $trailer = (lc($proto) =~ /^ftps?$/) ? '_sockctrl.log':'_sockfilt.log';
206 return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
214 my ($proto, $ipver, $idnum) = @_;
215 die "unsupported protocol: $proto" unless($proto &&
216 (lc($proto) =~ /^ftps?$/));
218 return '.'. servername_canon($proto, $ipver, $idnum) ."$trailer";
226 my ($logdir, $proto, $ipver, $idnum) = @_;
227 die "unsupported protocol: $proto" unless($proto &&
228 (lc($proto) =~ /^ftps?$/));
230 return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";