From owner-freebsd-isp@FreeBSD.ORG  Wed Jun 25 13:42:32 2003
Return-Path: <owner-freebsd-isp@FreeBSD.ORG>
Delivered-To: freebsd-isp@freebsd.org
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id 449F937B401
	for <freebsd-isp@freebsd.org>; Wed, 25 Jun 2003 13:42:32 -0700 (PDT)
Received: from mg2.xecu.net (mg2.xecu.net [216.127.136.223])
	by mx1.FreeBSD.org (Postfix) with ESMTP id B98B543F3F
	for <freebsd-isp@freebsd.org>; Wed, 25 Jun 2003 13:42:31 -0700 (PDT)
	(envelope-from andy@xecu.net)
Received: by mg2.xecu.net (Postfix, from userid 1003)
	id 21CAC391B6A; Wed, 25 Jun 2003 16:42:28 -0400 (EDT)
Received: from thunder.xecu.net (thunder.xecu.net [216.127.136.208])
	by mg2.xecu.net (Postfix) with ESMTP
	id B5D9539183C; Wed, 25 Jun 2003 16:42:27 -0400 (EDT)
Date: Wed, 25 Jun 2003 16:42:27 -0400 (EDT)
From: Andy Dills <andy@xecu.net>
To: Schalk Erasmus <schalk@incredible.com.na>
In-Reply-To: <000801c33b28$843ac300$32c8de0a@omni>
Message-ID: <Pine.BSF.4.44.0306251628180.1009-100000@thunder.xecu.net>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
cc: freebsd-isp@freebsd.org
Subject: Re: FreeBSD - Radius Merge Lookup Append File Question
X-BeenThere: freebsd-isp@freebsd.org
X-Mailman-Version: 2.1.1
Precedence: list
List-Id: Internet Services Providers <freebsd-isp.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-isp>,
	<mailto:freebsd-isp-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-isp>
List-Post: <mailto:freebsd-isp@freebsd.org>
List-Help: <mailto:freebsd-isp-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-isp>,
	<mailto:freebsd-isp-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Wed, 25 Jun 2003 20:42:32 -0000

On Wed, 25 Jun 2003, Schalk Erasmus wrote:

> Hi,
>
> I need some assistance to do a lookup from a Textfile of active users, and
> then remove the "Non-Active" users (non listed users in Textfile) and
> associated info, from the Radius USERS file.

#!/usr/bin/perl

$blah = `cat /path/to/usersfile`;

open BLAH ('/path/to/file/with/activeusers');

while (<BLAH>) {
	chop;
	$blah =~ s/(\s+)$_\s+.*\n\n/$1/s;
}

print $blah;


That will be $125 USD. :)

Andy

---
Andy Dills
Xecunet, Inc.
www.xecu.net
301-682-9972
---