[Logging-commits] r79 - handlers/pkg/R

[noreply at r-forge.r-project.org]

Author: mariotomo
Date: 2011-04-27 15:31:46 +0200 (Wed, 27 Apr 2011)
New Revision: 79

Modified:
   handlers/pkg/R/sentry.R
Log:
work in progress


Modified: handlers/pkg/R/sentry.R
===================================================================
--- handlers/pkg/R/sentry.R	2011-04-27 13:27:24 UTC (rev 78)
+++ handlers/pkg/R/sentry.R	2011-04-27 13:31:46 UTC (rev 79)
@@ -54,6 +54,9 @@
                message_id=as.character(getuuid()),
                logger=record$logger,
                data=list(sentry=""))
+  if (exists('app_name', envir=conf))
+    data$server_name <- with(conf, app_name)
+
   repr <- as.character(base64(toJSON(data)))
 
   url <- paste(sentry.server, "store", "", sep="/")