--- loncom/metadata_database/searchcat.pl	2002/11/18 20:44:15	1.25
+++ loncom/metadata_database/searchcat.pl	2003/02/03 18:03:53	1.31
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # searchcat.pl "Search Catalog" batch script
 #
-# $Id: searchcat.pl,v 1.25 2002/11/18 20:44:15 www Exp $
+# $Id: searchcat.pl,v 1.31 2003/02/03 18:03:53 harris41 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -26,12 +26,6 @@
 #
 # http://www.lon-capa.org/
 #
-# YEAR=2001
-# 04/14/2001, 04/16/2001 Scott Harrison
-#
-# YEAR=2002
-# 05/11/2002 Scott Harrison
-#
 ###
 
 # This script goes through a LON-CAPA resource
@@ -164,6 +158,18 @@ delete $perlvar{'lonReceipt'}; # remove
 # ------------------------------------- Only run if machine is a library server
 exit unless $perlvar{'lonRole'} eq 'library';
 
+# ----------------------------- Make sure this process is running from user=www
+
+my $wwwid=getpwnam('www');
+if ($wwwid!=$<) {
+   $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
+   $subj="LON: $perlvar{'lonHostID'} User ID mismatch";
+   system("echo 'User ID mismatch. searchcat.pl must be run as user www.' |\
+ mailto $emailto -s '$subj' > /dev/null");
+   exit 1;
+}
+
+
 # ---------------------------------------------------------- We are in business
 
 open(LOG,'>'.$perlvar{'lonDaemons'}.'/logs/searchcat.log');