5 # Originall written by Ben Lindstrom, modified by Darren Tucker to use perl
7 # This will produced and AIX package inventory file, which looks like:
10 # class=apply,inventory,openssh
15 # /usr/local/bin/slogin:
16 # class=apply,inventory,openssh
22 # /usr/local/share/Ssh.bin:
23 # class=apply,inventory,openssh
31 find . ! -name . -print | perl -ne '{
34 ($dev,$ino,$mod,$nl,$uid,$gid,$rdev,$sz,$at,$mt,$ct,$bsz,$blk)=lstat;
36 ($dev,$ino,$mod,$nl,$uid,$gid,$rdev,$sz,$at,$mt,$ct,$bsz,$blk)=stat;
39 # Start to display inventory information
41 $name =~ s|^.||; # Strip leading dot from path
43 print "\tclass=apply,inventory,openssh\n";
44 print "\towner=root\n";
45 print "\tgroup=system\n";
46 printf "\tmode=%lo\n", $mod & 07777; # Mask perm bits
50 print "\ttype=SYMLINK\n";
51 printf "\ttarget=%s\n", readlink($_);
54 print "\ttype=FILE\n";
56 print "\tchecksum=VOLATILE\n";
59 print "\ttype=DIRECTORY\n";