X-Git-Url: http://ftp.carnet.hr/carnet-debian/scm?p=ossec-hids.git;a=blobdiff_plain;f=debian%2Fossec-hids%2Fusr%2Fshare%2Fdoc%2Fossec-hids%2Fcontrib%2Fspecs%2Fgetattr.pl;fp=debian%2Fossec-hids%2Fusr%2Fshare%2Fdoc%2Fossec-hids%2Fcontrib%2Fspecs%2Fgetattr.pl;h=0000000000000000000000000000000000000000;hp=3b05a89f364964f72a2b9650306492d870ef5ba1;hb=946517cefb8751a43a89bda4220221f065f4e5d1;hpb=3f728675941dc69d4e544d3a880a56240a6e394a

diff --git a/debian/ossec-hids/usr/share/doc/ossec-hids/contrib/specs/getattr.pl b/debian/ossec-hids/usr/share/doc/ossec-hids/contrib/specs/getattr.pl
deleted file mode 100644
index 3b05a89..0000000
--- a/debian/ossec-hids/usr/share/doc/ossec-hids/contrib/specs/getattr.pl
+++ /dev/null
@@ -1,61 +0,0 @@
-#!/usr/bin/perl -w
-
-#
-# find /var/ossec/ -exec ./getattr.pl {} \;
-#
-
-use File::stat;
-
-my %UID;
-my %GUID;
-
-$filename = shift || die "\nsyntax: $0 <file|directory>\n\n";
-
-get_uid();
-get_gid();
-
-$sb = stat($filename);
-
-die "\nUID $sb->uid doesn't exist?! ($filename)\n\n" if (! exists($UID[$sb->uid]));
-die "\nGID $sb->uid doesn't exist?! ($filename)\n\n" if (! exists($GID[$sb->gid]));
-
-if ( -d $filename ) {  ### directory
-  print '%dir ' . $filename . "\n";
-} elsif ( -f $filename ) { ### file
-  print $filename . "\n";
-} else {
-  die("\nI can't handle: $filename\n\n");
-}
-
-# %attr(550, root, ossec) /var/ossec/etc
-
-printf "%%attr(%03o, %s, %s) %s\n",
-    $sb->mode & 07777,
-    $UID[$sb->uid], $GID[$sb->gid], $filename;
-
-#printf "%s: perm %04o, owner: %s, group: %s \n",
-#    $filename, $sb->mode & 07777,
-#    $UID[$sb->uid], $GID[$sb->gid];
-
-sub get_uid
-{
-   open(FP,'</etc/passwd') || die "\nCan't open /etc/passwd\n\n";
-
-   while ($line = <FP>) {
-     ($name,$id) = (split(/:/,$line,))[0,2];
-     $UID[$id] = $name;
-   }
-   close(FP);
-}
-
-sub get_gid
-{
-   open(FP,'</etc/group') || die "\nCan't open /etc/group\n\n";
-
-   while ($line = <FP>) {
-     ($name,$id) = (split(/:/,$line,))[0,2];
-     $GID[$id] = $name;
-   }
-   close(FP);
-}  
-