• Home
  • History
  • Annotate
  • Raw
  • Download

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|HTTP\/2|IMAP|POP3|SMTP|HTTP-PIPE)S?)|(TFTP|SFTP|SOCKS|SSH|RTSP|GOPHER|HTT…
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));
149 my ($proto, $ipver, $idnum) = @_;
151 return '.'. servername_canon($proto, $ipver, $idnum) ."$trailer";
159 my ($logdir, $proto, $ipver, $idnum) = @_;
161 $trailer = '_stunnel.log' if(lc($proto) =~ /^(ftp|http|imap|pop3|smtp)s$/);
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 ($logdir, $proto, $ipver, $idnum) = @_;
192 return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
200 my ($proto, $ipver, $idnum) = @_;
201 die "unsupported protocol: '$proto'" unless($proto &&
202 (lc($proto) =~ /^(ftp|imap|pop3|smtp)s?$/));
203 my $trailer = (lc($proto) =~ /^ftps?$/) ? '_sockctrl.pid':'_sockfilt.pid';
204 return '.'. servername_canon($proto, $ipver, $idnum) ."$trailer";
212 my ($logdir, $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.log':'_sockfilt.log';
216 return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
224 my ($proto, $ipver, $idnum) = @_;
225 die "unsupported protocol: '$proto'" unless($proto &&
226 (lc($proto) =~ /^ftps?$/));
228 return '.'. servername_canon($proto, $ipver, $idnum) ."$trailer";
236 my ($logdir, $proto, $ipver, $idnum) = @_;
237 die "unsupported protocol: '$proto'" unless($proto &&
238 (lc($proto) =~ /^ftps?$/));
240 return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";