#!/usr/bin/perl -w

use DBI;
$NAME = shift;
$TYPE = shift;
$dbname = 'prod';
$dbuser = 'prod';
$dbpass = 'prod';
$dbd 	= 'Oracle';
$dbh 	= DBI->connect ( $dbname, $dbuser, $dbpass, $dbd);
if (!$dbh) {
	print "Error conecting to DB; $DBI::errstr\n";
}

my $sql = <<SQL;
select 
	text 
from 
	user_source 
where
	name = ?
	and type = ?
SQL

my $sth = $dbh->prepare($sql) || die $dbh->errstr;

print "CREATE or REPLACE\n";
$sth->execute( $NAME, $TYPE );
while ( my @r = $sth->fetchrow_array ) {
	print @r;
}
print "/\n";
print "show errors\n";

$sth->finish || die;
$dbh->disconnect;