dies if it isn't running as the freeside user

diff --git a/bin/fs-setup b/bin/fs-setup
index b3fc5c5..621c426 100755 (executable)
--- a/bin/fs-setup
+++ b/bin/fs-setup
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# create database and necessary tables, etc.  DBI version.
+# $Id: fs-setup,v 1.8 1998-12-15 04:33:27 ivan Exp $
 #
 # ivan@sisd.com 97-nov-8,9
 #
@@ -32,7 +32,10 @@
 # fix radius attributes ivan@sisd.com 98-sep-27
 #
 # $Log: fs-setup,v $
-# Revision 1.7  1998-11-18 09:01:31  ivan
+# Revision 1.8  1998-12-15 04:33:27  ivan
+# dies if it isn't running as the freeside user
+#
+# Revision 1.7  1998/11/18 09:01:31  ivan
 # i18n! i18n!
 #
 # Revision 1.6  1998/11/15 13:18:02  ivan
@@ -54,10 +57,12 @@ BEGIN { $FS::Record::setup_hack = 1; }
 use strict;
 use DBI;
 use FS::dbdef;
-use FS::UID qw(adminsuidsetup datasrc);
+use FS::UID qw(adminsuidsetup datasrc checkeuid);
 use FS::Record;
 use FS::cust_main_county;
 
+croak "Not running uid freeside!" unless checkeuid();
+
 my $user = shift or die &usage;
 FS::UID::getsecrets $user;