add dbname to sql

Author: kikitux

create_function_toddog.sql

@@ -100,7 +100,7 @@ declare
 begin
   name := 'sample.gauge';
   metric := 15;
-  tag := 'source:plsql';
+  tag := 'source:plsql' || ',dbname:' || sys_context('USERENV','DB_NAME');
   result := f_gaugetoddog(name,metric,tag);
   dbms_output.put_line(result);
 EXCEPTION
@@ -122,7 +122,7 @@ declare
 begin
   name := 'sample.count';
   metric := 15;
-  tag := 'source:plsql';
+  tag := 'source:plsql'|| ',dbname:' || sys_context('USERENV','DB_NAME');
   result := f_counttoddog(name,metric,tag);
   dbms_output.put_line(result);
   EXCEPTION
@@ -144,7 +144,7 @@ declare
 begin
   title := 'title of event';
   text := 'text for event';
-  tag := 'source:plsql';
+  tag := 'source:plsql' || ',dbname:' || sys_context('USERENV','DB_NAME');
   result := f_eventtoddog(title,text,tag);
   dbms_output.put_line(result);
 EXCEPTION

samples/rowcount.sql

@@ -13,7 +13,7 @@ declare
 begin
   name := 'sample.rowcount';
   for t in c_table loop
-    tag := 'table_name:' || t.table_name || ',schema:' || t.owner ;
+    tag := 'table_name:' || t.table_name || ',schema:' || t.owner || ',dbname:' || sys_context('USERENV','DB_NAME');
     dbms_output.put_line(name || ':' || t.num_rows || ',' || tag);
     result := f_gaugetoddog(name,t.num_rows,tag);
     IF result != 'done' THEN

samples/rowcount_job.sql

@@ -13,7 +13,7 @@ CREATE OR REPLACE PROCEDURE proc_rowcount_toddog AS
 begin
   name := 'sample.rowcount';
   for t in c_table loop
-    tag := 'table_name:' || t.table_name || ',schema:' || t.owner;
+    tag := 'table_name:' || t.table_name || ',schema:' || t.owner || ',dbname:' || sys_context('USERENV','DB_NAME');
     result := f_gaugetoddog(name,t.num_rows,tag);
     IF result != 'done' THEN
       RAISE errorinloop;