loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

-version 1.25, 2002/11/18 20:44:15
+version 1.27, 2003/01/04 19:23:31
  Line 164  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');