--- loncom/lonsql	2001/04/11 20:05:29	1.31
+++ loncom/lonsql	2001/11/29 13:53:56	1.39
@@ -1,8 +1,22 @@
 #!/usr/bin/perl
+
+# The LearningOnline Network
+# lonsql - LON TCP-MySQL-Server
+#
+# YEAR=2000
 # lonsql-based on the preforker:harsha jagasia:date:5/10/00
 # 7/25 Gerd Kortemeyer
 # many different dates Scott Harrison
+# YEAR=2001
+# many different dates Scott Harrison
 # 03/22/2001 Scott Harrison
+# 8/30 Gerd Kortemeyer
+# 10/17,11/28,11/29 Scott Harrison
+#
+# $Id: lonsql,v 1.39 2001/11/29 13:53:56 harris41 Exp $
+###
+
+
 use IO::Socket;
 use Symbol;
 use POSIX;
@@ -19,7 +33,7 @@ require "find.pl";
 sub wanted {
     (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
     -f _ &&
-    /^.*\.meta$/ &&
+    /^.*\.meta$/ && !/^.+\.\d+\.[^\.]+\.meta$/ &&
     push(@metalist,"$dir/$_");
 }
 
@@ -45,7 +59,11 @@ close(CONFIG);
 	    $dbh = DBI->connect("DBI:mysql:loncapa","www",$perlvar{'lonSqlAccess'},{ RaiseError =>0,PrintError=>0})
 	    ) { 
 	print "Cannot connect to database!\n";
-	exit;
+	$emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
+	$subj="LON: $perlvar{'lonHostID'} Cannot connect to database!";
+	system("echo 'Cannot connect to MySQL database!' |\
+ mailto $emailto -s '$subj' > /dev/null");
+	exit 1;
     }
     else {
 	$dbh->disconnect;
@@ -73,13 +91,14 @@ while ($configline=<CONFIG>) {
     chomp($ip);
 
     $hostip{$ip}=$id;
-
     if ($id eq $perlvar{'lonHostID'}) { $thisserver=$name; }
 
     $PREFORK++;
 }
 close(CONFIG);
 
+$PREFORK=int($PREFORK/4);
+
 $unixsock = "mysqlsock";
 my $localfile="$perlvar{'lonSockDir'}/$unixsock";
 my $server;
@@ -270,7 +289,14 @@ sub make_new_child {
 		}
 		else {
 		    @metalist=(); pop @metalist;
-		    &find("$perlvar{'lonDocRoot'}/res");
+		    opendir(RESOURCES,"$perlvar{'lonDocRoot'}/res/$perlvar{'lonDefDomain'}");
+		    my @homeusers=grep
+		          {&ishome("$perlvar{'lonDocRoot'}/res/$perlvar{'lonDefDomain'}/$_")}
+		          grep {!/^\.\.?$/} readdir(RESOURCES);
+		    closedir RESOURCES;
+		    foreach my $user (@homeusers) {
+			&find("$perlvar{'lonDocRoot'}/res/$perlvar{'lonDefDomain'}/$user");
+		    }
 		}
 #		&logthis("FILELIST:" . join(":::",@metalist));
 		# if file is indicated in sql database and
@@ -289,13 +315,13 @@ sub make_new_child {
 				       'creationdate','keywords','language',
 				       'lastrevisiondate','mime','notes',
 				       'owner','subject','title') {
-			    $stuff=~s/\n?\<$f[^\>]*\>.*?<\/$f[^\>]*\>\n?//;
+			    $stuff=~s/\n?\<$f[^\>]*\>.*?<\/$f[^\>]*\>\n?//s;
 			}
 			my $m2=$m; my $docroot=$perlvar{'lonDocRoot'};
 			$m2=~s/^$docroot//;
 			$m2=~s/\.meta$//;
 			unless ($query) {
-			    my $q2="select * from metadata where url like '$m2'";
+			    my $q2="select * from metadata where url like binary '$m2'";
 			    my $sth = $dbh->prepare($q2);
 			    $sth->execute();
 			    my $r1=$sth->fetchall_arrayref;
@@ -364,6 +390,7 @@ sub reply {
     }
   } else {
     $answer='self_reply';
+    $answer=subreply($cmd,$server);
   } 
   return $answer;
 }
@@ -383,3 +410,29 @@ sub unescape {
     $str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
     return $str;
 }
+
+# --------------------------------------- Is this the home server of an author?
+# (copied from lond, modification of the return value)
+sub ishome {
+    my $author=shift;
+    $author=~s/\/home\/httpd\/html\/res\/([^\/]*)\/([^\/]*).*/$1\/$2/;
+    my ($udom,$uname)=split(/\//,$author);
+    my $proname=propath($udom,$uname);
+    if (-e $proname) {
+	return 1;
+    } else {
+        return 0;
+    }
+}
+
+# -------------------------------------------- Return path to profile directory
+# (copied from lond)
+sub propath {
+    my ($udom,$uname)=@_;
+    $udom=~s/\W//g;
+    $uname=~s/\W//g;
+    my $subdir=$uname.'__';
+    $subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;
+    my $proname="$perlvar{'lonUsersDir'}/$udom/$subdir/$uname";
+    return $proname;
+}