[svn:p5ee] r13823 - p5ee/trunk/App-Context/lib/App

[spadkins]

Author: spadkins
Date: Fri Feb 12 06:55:19 2010
New Revision: 13823

Modified:
   p5ee/trunk/App-Context/lib/App/Context.pm

Log:
added events to app_profiler_log

Modified: p5ee/trunk/App-Context/lib/App/Context.pm
==============================================================================
--- p5ee/trunk/App-Context/lib/App/Context.pm   (original)
+++ p5ee/trunk/App-Context/lib/App/Context.pm   Fri Feb 12 06:55:19 2010
@@ -2922,8 +2922,17 @@
     $context_abbr     =~ s/^App::Context:://;
     my $host          = $options->{host} || "localhost";
     my $username      = $self->user();
-    #my $events        = $self->{events};
-    #my $events_str    = $events ? (join("|", @$events)) : "";
+    my $events        = $self->{events};
+    my $events_str    = "";
+    if ($events) {
+        $events_str .= ($#$events + 1);
+        foreach my $event (@$events) {
+            $events_str .= ":$event->[1].$event->[2]";
+            if ($event->[3] && $#{$event->[3]} > -1) {
+                $events_str .= "(" . join(",",@{$event->[3]}) . ")";
+            }
+        }
+    }
     my $time          = $profile_state->{last_timeofday}[0] || time();
     my $start_dttm    = time2str("%Y-%m-%d %H:%M:%S", $time);
     my $info          = $self->get_proc_info2();
@@ -2937,8 +2946,8 @@
         eval {
             if (!$profile_state->{profiler_log_id}) {
                 $rep->insert("app_profiler_log",
-                    ["context",    "host", "username", "app", "start_dttm", 
"start_mem_mb"],
-                    [$context_abbr, $host, $username,  $app,   $start_dttm, 
$start_mem_mb],
+                    ["context",    "host", "username", "app", "start_dttm", 
"start_mem_mb", "events"],
+                    [$context_abbr, $host, $username,  $app,   $start_dttm, 
$start_mem_mb,  $events_str],
                     { last_inserted_id => 1 });
                 $profile_state->{profiler_log_id} = $rep->last_inserted_id();
             }