summaryrefslogtreecommitdiffstats
path: root/crypto/openssh/contrib/aix/inventory.sh
diff options
context:
space:
mode:
Diffstat (limited to 'crypto/openssh/contrib/aix/inventory.sh')
-rwxr-xr-xcrypto/openssh/contrib/aix/inventory.sh63
1 files changed, 0 insertions, 63 deletions
diff --git a/crypto/openssh/contrib/aix/inventory.sh b/crypto/openssh/contrib/aix/inventory.sh
deleted file mode 100755
index e2641e7..0000000
--- a/crypto/openssh/contrib/aix/inventory.sh
+++ /dev/null
@@ -1,63 +0,0 @@
-#!/bin/sh
-#
-# inventory.sh
-# $Id: inventory.sh,v 1.6 2003/11/21 12:48:56 djm Exp $
-#
-# Originally written by Ben Lindstrom, modified by Darren Tucker to use perl
-# This file is placed into the public domain.
-#
-# This will produce an AIX package inventory file, which looks like:
-#
-# /usr/local/bin:
-# class=apply,inventory,openssh
-# owner=root
-# group=system
-# mode=755
-# type=DIRECTORY
-# /usr/local/bin/slogin:
-# class=apply,inventory,openssh
-# owner=root
-# group=system
-# mode=777
-# type=SYMLINK
-# target=ssh
-# /usr/local/share/Ssh.bin:
-# class=apply,inventory,openssh
-# owner=root
-# group=system
-# mode=644
-# type=FILE
-# size=VOLATILE
-# checksum=VOLATILE
-
-find . ! -name . -print | perl -ne '{
- chomp;
- if ( -l $_ ) {
- ($dev,$ino,$mod,$nl,$uid,$gid,$rdev,$sz,$at,$mt,$ct,$bsz,$blk)=lstat;
- } else {
- ($dev,$ino,$mod,$nl,$uid,$gid,$rdev,$sz,$at,$mt,$ct,$bsz,$blk)=stat;
- }
-
- # Start to display inventory information
- $name = $_;
- $name =~ s|^.||; # Strip leading dot from path
- print "$name:\n";
- print "\tclass=apply,inventory,openssh\n";
- print "\towner=root\n";
- print "\tgroup=system\n";
- printf "\tmode=%lo\n", $mod & 07777; # Mask perm bits
-
- if ( -l $_ ) {
- # Entry is SymLink
- print "\ttype=SYMLINK\n";
- printf "\ttarget=%s\n", readlink($_);
- } elsif ( -f $_ ) {
- # Entry is File
- print "\ttype=FILE\n";
- print "\tsize=$sz\n";
- print "\tchecksum=VOLATILE\n";
- } elsif ( -d $_ ) {
- # Entry is Directory
- print "\ttype=DIRECTORY\n";
- }
-}'
OpenPOWER on IntegriCloud