1 #!/bin/sh 2 # 3 # inventory.sh 4 # $Id: inventory.sh,v 1.6 2003/11/21 12:48:56 djm Exp $ 5 # 6 # Originally written by Ben Lindstrom, modified by Darren Tucker to use perl 7 # This file is placed into the public domain. 8 # 9 # This will produce an AIX package inventory file, which looks like: 10 # 11 # /usr/local/bin: 12 # class=apply,inventory,openssh 13 # owner=root 14 # group=system 15 # mode=755 16 # type=DIRECTORY 17 # /usr/local/bin/slogin: 18 # class=apply,inventory,openssh 19 # owner=root 20 # group=system 21 # mode=777 22 # type=SYMLINK 23 # target=ssh 24 # /usr/local/share/Ssh.bin: 25 # class=apply,inventory,openssh 26 # owner=root 27 # group=system 28 # mode=644 29 # type=FILE 30 # size=VOLATILE 31 # checksum=VOLATILE 32 33 find . ! -name . -print | perl -ne '{ 34 chomp; 35 if ( -l $_ ) { 36 ($dev,$ino,$mod,$nl,$uid,$gid,$rdev,$sz,$at,$mt,$ct,$bsz,$blk)=lstat; 37 } else { 38 ($dev,$ino,$mod,$nl,$uid,$gid,$rdev,$sz,$at,$mt,$ct,$bsz,$blk)=stat; 39 } 40 41 # Start to display inventory information 42 $name = $_; 43 $name =~ s|^.||; # Strip leading dot from path 44 print "$name:\n"; 45 print "\tclass=apply,inventory,openssh\n"; 46 print "\towner=root\n"; 47 print "\tgroup=system\n"; 48 printf "\tmode=%lo\n", $mod & 07777; # Mask perm bits 49 50 if ( -l $_ ) { 51 # Entry is SymLink 52 print "\ttype=SYMLINK\n"; 53 printf "\ttarget=%s\n", readlink($_); 54 } elsif ( -f $_ ) { 55 # Entry is File 56 print "\ttype=FILE\n"; 57 print "\tsize=$sz\n"; 58 print "\tchecksum=VOLATILE\n"; 59 } elsif ( -d $_ ) { 60 # Entry is Directory 61 print "\ttype=DIRECTORY\n"; 62 } 63 }' 64
