From owner-freebsd-isp  Thu Dec 11 11:07:03 1997
Return-Path: <owner-freebsd-isp>
Received: (from root@localhost)
          by hub.freebsd.org (8.8.7/8.8.7) id LAA05937
          for isp-outgoing; Thu, 11 Dec 1997 11:07:03 -0800 (PST)
          (envelope-from owner-freebsd-isp)
Received: from lithium.dowco.com (lithium.dowco.com [207.23.88.22])
          by hub.freebsd.org (8.8.7/8.8.7) with ESMTP id LAA05929
          for <freebsd-isp@FreeBSD.ORG>; Thu, 11 Dec 1997 11:07:00 -0800 (PST)
          (envelope-from dphinney@dowco.com)
Received: (from dphinney@localhost)
	by lithium.dowco.com (8.8.7/8.8.7/CF.6) id LAA08639;
	Thu, 11 Dec 1997 11:05:47 -0800 (PST)
From: David K Phinney <dphinney@dowco.com>
Message-Id: <199712111905.LAA08639@lithium.dowco.com>
Subject: Re: Makemap
To: info@bentreality.com (Jack Wenger)
Date: Thu, 11 Dec 1997 11:05:46 -0800 (PST)
Cc: freebsd-isp@FreeBSD.ORG
In-Reply-To: <3.0.32.19971211104409.0098f380@acw-web.com> from Jack Wenger at "Dec 11, 97 10:44:09 am"
X-PGP-Key-Url: http://www.dowco.com/~dphinney/pgpkey.txt
X-Mailer: ELM [version 2.4ME+ PL22 (25)]
MIME-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
Sender: owner-freebsd-isp@FreeBSD.ORG
X-Loop: FreeBSD.org
Precedence: bulk

Hi,

You can try this script (you need Berkeley DB support in your Perl 5):

use DB_File;
use Fcntl;

tie %vuser, "DB_File", "/etc/virtusertable.db", O_RDONLY, 0666 ||
	die "tie: $!\n";
while (($key, $value) = each %vuser) {
	print "$key\t\t$value\n";
}
untie %vuser;


Granted, the output's not very pretty looking...


Regards,

--dave
David K. Phinney
Systems/Network Manager                                 (604) 606-5728
dowco.com internet                                      dave@dowco.com

> HELP!
> I just did a stupid. I added an entry to my virtusertable and did:
> 
> makemap hash ./virtusertable > ./virtusertable
> 
> destroying my virtusertable. 
> Is there any way I can get the information back out of virtusertable.db?
> It's a 32k file with todays date. No, I don't have any backup yet (bad
> sysadmin, BAD).
> I have no way to tell what's in the table anymore.
> 
> 
> ------------- Excellence in Web Design --------------
>  Bent Reality Graphics                Jack Wenger, Owner
>  info@bentreality.com     http://www.bentreality.com
>             608-233-8571 or 1-888-701-1026
>       IBM Business Partner - Internet Specialist