#!/usr/bin/perl -Tw
#
-# $Id: fs-setup,v 1.16 1999-02-28 19:44:16 ivan Exp $
+# $Id: fs-setup,v 1.17 1999-04-14 07:58:39 ivan Exp $
#
# ivan@sisd.com 97-nov-8,9
#
# fix radius attributes ivan@sisd.com 98-sep-27
#
# $Log: fs-setup,v $
-# Revision 1.16 1999-02-28 19:44:16 ivan
+# Revision 1.17 1999-04-14 07:58:39 ivan
+# export getsecrets from FS::UID instead of calling it explicitly
+#
+# Revision 1.16 1999/02/28 19:44:16 ivan
# constructors s/create/new/ pointed out by "Bao C. Ha" <bao@hacom.net>
#
# Revision 1.15 1999/02/27 21:06:21 ivan
use strict;
use DBI;
use FS::dbdef;
-use FS::UID qw(adminsuidsetup datasrc checkeuid);
+use FS::UID qw(adminsuidsetup datasrc checkeuid getsecrets);
use FS::Record;
use FS::cust_main_county;
die "Not running uid freeside!" unless checkeuid();
my $user = shift or die &usage;
-FS::UID::getsecrets $user;
+getsecrets($user);
#needs to match FS::Record
my($dbdef_file) = "/usr/local/etc/freeside/dbdef.". datasrc;
@ISA = qw(Exporter);
@EXPORT_OK = qw(checkeuid checkruid swapuid cgisuidsetup
- adminsuidsetup getotaker dbh datasrc);
+ adminsuidsetup getotaker dbh datasrc getsecrets );
$freeside_uid = scalar(getpwnam('freeside'));
=head1 VERSION
-$Id: UID.pm,v 1.10 1999-04-12 22:41:09 ivan Exp $
+$Id: UID.pm,v 1.11 1999-04-14 07:58:39 ivan Exp $
=head1 BUGS
ivan@sisd.com 98-sep-12
$Log: UID.pm,v $
-Revision 1.10 1999-04-12 22:41:09 ivan
+Revision 1.11 1999-04-14 07:58:39 ivan
+export getsecrets from FS::UID instead of calling it explicitly
+
+Revision 1.10 1999/04/12 22:41:09 ivan
bugfix; $user is a global (yuck)
Revision 1.9 1999/04/12 21:09:39 ivan