Index: openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl,v
diff -u -r1.43.2.2 -r1.43.2.3
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	26 Apr 2016 07:25:29 -0000	1.43.2.2
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	10 Nov 2016 14:57:12 -0000	1.43.2.3
@@ -318,7 +318,26 @@
     [self class] incr count
   }
   TraceLongCalls instproc add_url_stat {url time_used key pa content_type} {
+    regexp {^([^?]+)[?]} $url . url
+    #ns_log notice "url=<$url> time_used $time_used"
+    if {$url in {/register/ /}} {
+      #
+      # calculate for certain URLs separate statistics
+      #
+      incr ::agg_time($url) $time_used
+      incr ::count(calls:$url)
+    }
     if {$time_used > 5000} {
+      if {$url eq "/register/"} {
+        set color unexpected
+      } elseif {$time_used > 10000} {
+        set color red
+      } elseif {$time_used > 6000} {
+        set color orange
+      } else {                
+        set color yellow
+      }
+      incr ::count(longcalls:$color)    
       catch {my log [self args]}
     }
     next