Lines Matching refs:entry
23 # Main file information data structure. Each entry in did_table points
77 my $entry = shift;
81 $entry->{cnid},
82 $entry->{dev},
83 $entry->{ino},
84 $entry->{did},
85 $entry->{name};
124 my $entry = shift;
126 if (length($entry->{cnid}) != 8 or length($entry->{name}) == 0) {
127 print_eentry("fmt", $entry);
167 my $entry;
169 $entry->{cnid} = $key;
170 $entry->{dev} = substr($val, 0, 8);
171 $entry->{ino} = substr($val, 8, 8);
172 $entry->{did} = substr($val, 16, 8);
173 $entry->{hexname} = substr($val, 24);
175 $len = length($entry->{hexname}) - 2;
179 $name .= chr(hex(substr($entry->{hexname}, $i, 2)));
182 $entry->{name} = $name;
184 if (verify_entry($entry)) {
185 push @{$did_table{$entry->{did}}}, $entry;
187 $cmax = $entry->{cnid} if $entry->{cnid} gt $cmax;
208 my $entry;
211 foreach $entry (@{$did_table{$did}}) {
212 $name = $basename . "/" . $entry->{name};
216 $entry->{type} = "00000001";
218 $entry->{type} = "00000000";
226 if ($did_table{$entry->{cnid}} and scalar(@{$did_table{$entry->{cnid}}}) > 0) {
228 # We have entries hanging off this entry in our table,
230 $entry->{type} = "00000001";
233 # the entry will be deleted by afpd on the next access,
235 $entry->{type} = "00000000";
239 $entry->{reached} = 1;
240 push @output_list, $entry;
241 expand_did_table($entry->{cnid}, $name);
249 my $entry;
252 foreach $entry (@{$list}) {
253 print_eentry("reach", $entry) unless $entry->{reached};
267 my $entry;
271 $entry = $output_list[$i];
272 $cnid = $entry->{cnid};
273 $devino = $entry->{dev} . $entry->{ino};
274 $didname = $entry->{did} . $entry->{name};
276 print_eentry("exist_cnid", $entry);
280 print_eentry("dupl_cnid", $entry);
284 print_eentry("dupl_devino", $entry);
288 print_eentry("dupl_didname", $entry);
309 print "Warning: could not find a valid entry for the current CNID in $didname_dump.\n";
330 foreach my $entry (@output_list) {
331 print CNID2 " ", $entry->{cnid}, "\n";
332 print CNID2 " ", $entry->{cnid},
333 "00000000", $entry->{dev}, "00000000", $entry->{ino},
334 $entry->{type},
335 $entry->{did}, $entry->{hexname}, "\n";
342 foreach my $entry (@output_list) {
343 print CNID2 " ", "00000000", $entry->{dev}, "00000000", $entry->{ino}, "\n";
344 print CNID2 " ", $entry->{cnid}, "\n";
351 foreach my $entry (@output_list) {
352 print CNID2 " ", $entry->{did}, $entry->{hexname}, "\n";
353 print CNID2 " ", $entry->{cnid}, "\n";