Lines Matching refs:idnum
79 my $idnum;
84 $idnum = ($3 && ($3 > 1)) ? $3 : 1;
90 $idnum = ($2 && ($2 > 1)) ? $2 : 1;
96 return($proto, $ipvnum, $idnum);
104 my ($proto, $ipver, $idnum) = @_;
115 $idnum = 1 if(not $idnum);
116 die "unsupported ID number: '$idnum'" unless($idnum &&
117 ($idnum =~ /^(\d+)$/));
118 $idnum = '' unless($idnum > 1);
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) = @_;
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) = @_;
203 return '.'. servername_canon($proto, $ipver, $idnum) ."$trailer";
211 my ($logdir, $proto, $ipver, $idnum) = @_;
215 return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
223 my ($proto, $ipver, $idnum) = @_;
227 return '.'. servername_canon($proto, $ipver, $idnum) ."$trailer";
235 my ($logdir, $proto, $ipver, $idnum) = @_;
239 return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";