From 439ec1a2edb665b0182ba998a8cb7855141f2c3f Mon Sep 17 00:00:00 2001
From: hjp <hjp>
Date: Tue, 18 Jun 2002 15:10:59 +0000
Subject: [PATCH] Get trigger source if this is not a procedure or function.

---
 oragetsrc/oragetsrc.pl | 26 +++++++++++++++++++++++---
 1 file changed, 23 insertions(+), 3 deletions(-)

diff --git a/oragetsrc/oragetsrc.pl b/oragetsrc/oragetsrc.pl
index bba8d53..094247c 100755
--- a/oragetsrc/oragetsrc.pl
+++ b/oragetsrc/oragetsrc.pl
@@ -1,6 +1,6 @@
 #!@@@perl@@@ -w
 
-# $Id: oragetsrc.pl,v 1.1 2001-02-12 14:32:43 hjp Exp $
+# $Id: oragetsrc.pl,v 1.2 2002-06-18 15:10:59 hjp Exp $
 #
 # print a named source (e.g, a function or procedure) from an oracle schema
 #
@@ -35,6 +35,7 @@ my @cred = read_cred("$ENV{HOME}/.dbi/$ARGV[0]");
 my $dbh = DBI->connect($cred[0], $cred[1], $cred[2],
 			    { RaiseError => 1, AutoCommit => 0 });
 
+# check if it is a procedure or function
 my $lines =
     $dbh->selectcol_arrayref(
 	"select text from user_source where name=? order by line",
@@ -42,8 +43,27 @@ my $lines =
 	$src_name
     );
 
-for my $i (@$lines) {
-    print "$i";
+if (@$lines) {
+    for my $i (@$lines) {
+	print "$i";
+    }
+    exit(0);
 }
+
+# nope - maybe a trigger?
+
+$dbh->{LongReadLen} = 1000000;
+$dbh->{LongTruncOk} = 0;
+my $sth = $dbh->prepare("select description, trigger_body from user_triggers where trigger_name=?");
+$sth->execute($src_name);
+my $found = 0;
+while (my $r = $sth->fetchrow_hashref("NAME_lc")) {
+    print "TRIGGER ", $r->{description}, "\n", $r->{trigger_body}, "\n";;
+    $found = 1;
+}
+
+exit(0) if ($found);
+
 $dbh->disconnect();
 
+exit(1);