Lines Matching refs:id
45 my $id = $line[0];
46 die "$id mismatch with $i" if ($id != $i + 1);
55 my $id = $line[0];
56 die "$id mismatch with $i" if ($id != $i + 1);
65 my $id = $line[0];
66 die "$id mismatch with $i" if ($id != $i + 1);
71 my $id;
74 for ($id = 0; $id < $i; $id++) {
75 my $cert = $id + 1;
76 my $ipknown = ($outip[$id] eq $knownip[$id]);
77 my $dnsknown = ($outdns[$id] eq $knowndns[$id]);
78 if ($expecteddns[$id] ne $outdns[$id] && $expecteddns[$id] !~ /WEAK/) {
79 print STDERR "$cert DNS expected $expecteddns[$id] known $knowndns[$id] result $outdns[$id]";
88 if ($expectedip[$id] ne $outip[$id] && $expectedip[$id] !~ /WEAK/) {
89 print STDERR "$cert IP expected $expectedip[$id] known $knownip[$id] result $outip[$id]";