--- loncom/lonsql	2002/06/18 15:04:05	1.46
+++ loncom/lonsql	2002/06/18 19:39:13	1.47
@@ -3,7 +3,7 @@
 # The LearningOnline Network
 # lonsql - LON TCP-MySQL-Server Daemon for handling database requests.
 #
-# $Id: lonsql,v 1.46 2002/06/18 15:04:05 www Exp $
+# $Id: lonsql,v 1.47 2002/06/18 19:39:13 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -195,7 +195,7 @@ sub logthis {
 sub courselog {
     my ($path,$command)=@_;
     my %filters=();
-    foreach (split(/\=/,&unescape($command))) {
+    foreach (split(/\:/,&unescape($command))) {
 	my ($name,$value)=split(/\=/,$_);
         $filters{$name}=$value;
     }
@@ -205,9 +205,29 @@ sub courselog {
         chomp($line);
         my ($timestamp,$host,$log)=split(/\:/,$line);
         foreach (split(/\&/,&unescape($log))) {
-	    my ($res,$uname,$udom,$action,$values)=split(/\:/,$_);
+	    my ($time,$res,$uname,$udom,$action,$values)=split(/\:/,$_);
             my $include=1;
-        }
+            if (($filters{'username'}) && ($uname ne $filters{'username'})) 
+                                                               { $include=0; }
+            if (($filters{'domain'}) && ($udom ne $filters{'domain'})) 
+                                                               { $include=0; }
+            if (($filters{'url'}) && ($res!~/$filters{'url'}/)) 
+                                                               { $include=0; }
+            if (($filters{'start'}) && ($time<$filters{'start'})) 
+                                                               { $include=0; }
+            if (($filters{'end'}) && ($time>$filters{'end'})) 
+                                                               { $include=0; }
+            if (($filters{'action'} eq 'view') && ($action)) 
+                                                               { $include=0; }
+            if (($filters{'action'} eq 'submit') && ($action ne 'POST')) 
+                                                               { $include=0; }
+            if (($filters{'action'} eq 'grade') && ($action ne 'CSTORE')) 
+                                                               { $include=0; }
+            if ($include) {
+	       push(@results,$time.':'.$res.':'.$uname.':'.$udom.':'.
+                                            $action.':'.$values);
+            }
+       }
     }
     close IN;
     return join('&',sort(@results));
@@ -218,7 +238,7 @@ sub courselog {
 sub userlog {
     my ($path,$command)=@_;
     my %filters=();
-    foreach (split(/\=/,&unescape($command))) {
+    foreach (split(/\:/,&unescape($command))) {
 	my ($name,$value)=split(/\=/,$_);
         $filters{$name}=$value;
     }
@@ -337,7 +357,7 @@ sub make_new_child {
 	    $queryid .= $run;
 	    print $client "$queryid\n";
 	    
-	    &logthis("QUERY: $query");
+	    &logthis("QUERY: $query - $arg1 - $arg2 - $arg3");
 	    sleep 1;
 
             my $result='';