From 4df8c4c09ccdc69ef73ad9ec6c25afaac4e87d6f Mon Sep 17 00:00:00 2001 From: Steve Beattie Date: Tue, 8 Feb 2011 15:50:51 -0800 Subject: [PATCH] Purge utils/severity.pl due to incorrect license/copyright statement. It should have been covered under both the Immunix acquisition by Novell Inc and by the open sourcing of the apparmor tree by Novell Inc. --- utils/severity.pl | 56 ----------------------------------------------- 1 file changed, 56 deletions(-) delete mode 100755 utils/severity.pl diff --git a/utils/severity.pl b/utils/severity.pl deleted file mode 100755 index eec1b56f4..000000000 --- a/utils/severity.pl +++ /dev/null @@ -1,56 +0,0 @@ -#!/usr/bin/perl -w -# ---------------------------------------------------------------------- -# PROPRIETARY DATA of IMMUNIX INC. -# Copyright (c) 2004, 2005 IMMUNIX (All rights reserved) -# -# This document contains trade secret data which is the property -# of IMMUNIX Inc. This document is submitted to recipient in -# confidence. Information contained herein may not be used, copied -# or disclosed in whole or in part except as permitted by written -# agreement signed by an officer of IMMUNIX, Inc. -# ---------------------------------------------------------------------- - -# This is just a quick-n-dirty tester and demo; not intended for use by -# end users. - -use strict; -use Immunix::Severity; - -sub ranker { - my $ob = shift; - my ($resource, $mode) = @_; - - if (defined $mode) { - print "$mode $resource " . $ob->rank($resource, $mode); - } else { - print "$resource " . $ob->rank($resource); - } - print "\n"; -} - -my ($ob); -$ob = Immunix::Severity->new; - -$ob->init("/tmp/severity.db"); - -ranker($ob, "CAP_SYS_ADMIN"); -ranker($ob, "CAP_SETUID"); -ranker($ob, "CAP_MISSPELLED"); -ranker($ob, "MISSPELLED"); -ranker($ob, "/etc/passwd","rw"); -ranker($ob, "/etc/passwd","w"); -ranker($ob, "/etc/passwd","r"); -ranker($ob, "/etc/nothere","r"); - - -print "\n"; -$ob->init("/tmp/severity.db", -1111); - -ranker($ob, "CAP_SYS_ADMIN"); -ranker($ob, "CAP_SETUID"); -ranker($ob, "CAP_MISSPELLED"); -ranker($ob, "MISSPELLED"); -ranker($ob, "/etc/passwd","rw"); -ranker($ob, "/etc/passwd","w"); -ranker($ob, "/etc/passwd","r"); -ranker($ob, "/etc/nothere","r");