head	1.3;
access;
symbols
	RELEASE_8_3_0:1.3
	RELEASE_9_0_0:1.3
	RELEASE_7_4_0:1.1
	RELEASE_8_2_0:1.1
	RELEASE_6_EOL:1.1
	RELEASE_8_1_0:1.1
	RELEASE_7_3_0:1.1
	RELEASE_8_0_0:1.1
	RELEASE_7_2_0:1.1
	RELEASE_7_1_0:1.1
	RELEASE_6_4_0:1.1
	RELEASE_5_EOL:1.1
	RELEASE_7_0_0:1.1
	RELEASE_6_3_0:1.1
	PRE_XORG_7:1.1
	RELEASE_4_EOL:1.1
	RELEASE_6_2_0:1.1
	RELEASE_6_1_0:1.1
	RELEASE_5_5_0:1.1
	RELEASE_6_0_0:1.1
	RELEASE_5_4_0:1.1
	RELEASE_4_11_0:1.1
	RELEASE_5_3_0:1.1
	RELEASE_4_10_0:1.1
	RELEASE_5_2_1:1.1
	RELEASE_5_2_0:1.1
	RELEASE_4_9_0:1.1
	RELEASE_5_1_0:1.1
	RELEASE_4_8_0:1.1
	RELEASE_5_0_0:1.1
	RELEASE_4_7_0:1.1
	RELEASE_4_6_2:1.1
	RELEASE_4_6_1:1.1
	RELEASE_4_6_0:1.1
	RELEASE_5_0_DP1:1.1
	RELEASE_4_5_0:1.1
	RELEASE_4_4_0:1.1
	RELEASE_4_3_0:1.1
	RELEASE_4_2_0:1.1
	RELEASE_4_1_1:1.1
	RELEASE_4_1_0:1.1
	RELEASE_3_5_0:1.1
	RELEASE_4_0_0:1.1
	RELEASE_3_4_0:1.1
	RELEASE_3_3_0:1.1
	RELEASE_3_2_0:1.1
	RELEASE_3_1_0:1.1
	RELEASE_2_2_8:1.1
	RELEASE_3_0_0:1.1
	RELEASE_2_2_7:1.1
	RELEASE_2_2_6:1.1;
locks; strict;
comment	@# @;


1.3
date	2011.09.03.08.03.36;	author cy;	state Exp;
branches;
next	1.2;

1.2
date	2011.05.01.20.14.15;	author bapt;	state dead;
branches;
next	1.1;

1.1
date	98.02.22.01.27.22;	author steve;	state Exp;
branches;
next	;


desc
@@


1.3
log
@Bring this old-school tool back from the dead.

Assume maintainership of this port.
@
text
@--- perl/cops.orig	Sat Feb 21 19:20:10 1998
+++ perl/cops	Sat Feb 21 19:21:06 1998
@@@@ -1,8 +1,4 @@@@
-#!/bin/sh -- need to mention perl here to avoid recursion
-'true' || eval 'exec perl -S $0 $argv:q';
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@@"}'
-& eval 'exec /usr/local/bin/perl -S $0 $argv:q'
-        if 0;
+#!/usr/bin/perl
 
 #
 #  Usage: cops [-vx] [-c config file] [-s secure_dir] [architecture]
@@@@ -83,7 +79,7 @@@@
 
 #  Read stuff to do from the config file
 die "$0: Can't trust $CONFIG to reconfig!\n" 	if &'is_writable($CONFIG);
-open CONFIG || die "can't open $CONFIG: $!";
+open (CONFIG) || die "can't open $CONFIG: $!";
 
 &argh unless -s $CONFIG;
 
@@@@ -219,8 +215,8 @@@@
 	}
     return 1 if (($FILE2 eq "") || (-s $FILE1 != -s $report));
 
-    open FILE1 || die "can't open $FILE1: $!\n";
-    open FILE2 || die "can't open $FILE2: $!\n";
+    open (FILE1) || die "can't open $FILE1: $!\n";
+    open (FILE2) || die "can't open $FILE2: $!\n";
 
     for (1..5) {
 	$_ = <FILE1>;
@


1.2
log
@Remove unmaintained expired ports from security

2011-05-01 security/aafid2: Upstream disapear and distfile is no more available
2011-05-01 security/bjorb: Upstream disapear and distfile is no more available
2011-05-01 security/borzoi: Upstream disapear and distfile is no more available
2011-05-01 security/cmd5checkpw: Upstream disapear and distfile is no more available
2011-05-01 security/cops: Upstream disapear and distfile is no more available
2011-05-01 security/find_ddos: Upstream disapear and distfile is no more available
2011-05-01 security/ftpmap: Upstream disapear and distfile is no more available
2011-05-01 security/hafiye: Upstream disapear and distfile is no more available
2011-05-01 security/ident2: Upstream disapear and distfile is no more available
2011-05-01 security/liedentd: Upstream disapear and distfile is no more available
2011-05-01 security/pam_pop3: Upstream disapear and distfile is no more available
2011-05-01 security/poc: Upstream disapear and distfile is no more available
2011-05-01 security/portscanner: Upstream disapear and distfile is no more available
2011-05-01 security/ppgen: Upstream disapear and distfile is no more available
2011-05-01 security/qident: Upstream disapear and distfile is no more available
2011-05-01 security/quintuple-agent: Upstream disapear and distfile is no more available
2011-05-01 security/rc5pipe: Upstream disapear and distfile is no more available
2011-05-01 security/rid: Upstream disapear and distfile is no more available
2011-05-01 security/ssh: Upstream disapear and distfile is no more available
2011-05-01 security/tea-total: Upstream disapear and distfile is no more available
2011-05-01 security/uberkey: Upstream disapear and distfile is no more available
@
text
@@


1.1
log
@Make the perl version of cops run.

PR:		4227
Submitted by:	Annelise Anderson <andrsn.stanford.edu@@andrsn.standford.edu>
@
text
@@

