From 0ec706c23e1ea66d4ca5ca8791bcf41710422049 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 15 Nov 1998 00:51:51 +0000
Subject: [PATCH] eliminated some warnings on certain fatal errors (well, it is
 less confusing)

---
 site_perl/UID.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/site_perl/UID.pm b/site_perl/UID.pm
index 77c40aad5..c9ecd8fc9 100644
--- a/site_perl/UID.pm
+++ b/site_perl/UID.pm
@@ -217,9 +217,10 @@ sub getsecrets {
   die "No user!" unless $user;
   my($conf) = new FS::Conf $conf_dir;
   my($line) = grep /^\s*$user\s/, $conf->config('mapsecrets');
+  die "User not found in mapsecrets!" unless $line;
   $line =~ /^\s*$user\s+(.*)$/;
   $secrets = $1;
-  die "User not found in mapsecrets file!" unless $secrets;
+  die "Illegal mapsecrets line for user?!" unless $secrets;
   ($datasrc, $db_user, $db_pass) = $conf->config($secrets)
     or die "Can't get secrets: $!";
   $FS::Conf::default_dir .= "/conf.$datasrc";
@@ -282,7 +283,10 @@ inlined suidsetup
 ivan@sisd.com 98-sep-12
 
 $Log: UID.pm,v $
-Revision 1.4  1998-11-13 09:56:52  ivan
+Revision 1.5  1998-11-15 00:51:51  ivan
+eliminated some warnings on certain fatal errors (well, it is less confusing)
+
+Revision 1.4  1998/11/13 09:56:52  ivan
 change configuration file layout to support multiple distinct databases (with
 own set of config files, export, etc.)
 
-- 
2.11.0