| Line 49... |
Line 49... |
| 49 |
#
|
49 |
#
|
| 50 |
pod2usage(-verbose => 0, -message => "Version: $VERSION") if ($opt_help == 1 || ! $result);
|
50 |
pod2usage(-verbose => 0, -message => "Version: $VERSION") if ($opt_help == 1 || ! $result);
|
| 51 |
pod2usage(-verbose => 1) if ($opt_help == 2 );
|
51 |
pod2usage(-verbose => 1) if ($opt_help == 2 );
|
| 52 |
pod2usage(-verbose => 2) if ($opt_manual || ($opt_help > 2));
|
52 |
pod2usage(-verbose => 2) if ($opt_manual || ($opt_help > 2));
|
| 53 |
|
53 |
|
| 54 |
$ENV{GBE_RM_LOCATION} = 'jdbc:oracle:thin:@auperaora07:1521:RELMANU1';
|
54 |
$ENV{GBE_RM_LOCATION} = 'jdbc:oracle:thin:@auawsards001.vix.local:1521:RELEASEM';
|
| 55 |
$ENV{GBE_RM_USERNAME} = 'release_manager';
|
55 |
$ENV{GBE_RM_USERNAME} = 'RM_READONLY';
|
| 56 |
$ENV{GBE_RM_PASSWORD} = 'release_manager';
|
56 |
$ENV{GBE_RM_PASSWORD} = 'RM_READONLY';
|
| 57 |
|
57 |
|
| 58 |
ErrorConfig( 'name' =>'PLAY24' );
|
58 |
ErrorConfig( 'name' =>'PLAY24' );
|
| 59 |
getInvokeStoredProcedure('core_devl');
|
59 |
getInvokeStoredProcedure('core_devl');
|
| 60 |
exit;
|
60 |
exit;
|
| 61 |
|
61 |
|
| Line 76... |
Line 76... |
| 76 |
my $pvid = 129265;
|
76 |
my $pvid = 129265;
|
| 77 |
my $m_sqlstr0 = "SELECT release_manager.PK_RMAPI.return_vcs_tag($pvid) FROM DUAL";
|
77 |
my $m_sqlstr0 = "SELECT release_manager.PK_RMAPI.return_vcs_tag($pvid) FROM DUAL";
|
| 78 |
|
78 |
|
| 79 |
# This begin does not yet work
|
79 |
# This begin does not yet work
|
| 80 |
# ORA-01008: not all variables bound
|
80 |
# ORA-01008: not all variables bound
|
| 81 |
my $m_sqlstr1 = "begin ? := release_manager.PK_RMAPI.return_vcs_tag($pvid); end;";
|
81 |
my $m_sqlstr2 = "begin ? := release_manager.PK_RMAPI.return_vcs_tag($pvid); end;";
|
| 82 |
my $m_sqlstr = "begin aa := release_manager.PK_RMAPI.return_vcs_tag($pvid); end;";
|
82 |
my $m_sqlstr4 = "begin aa := release_manager.PK_RMAPI.return_vcs_tag($pvid); end;";
|
| 83 |
|
83 |
|
| 84 |
# This works
|
84 |
# This works
|
| 85 |
# Invoke a stored proceedure. A true proceedure with no return value
|
85 |
# Invoke a stored proceedure. A true proceedure with no return value
|
| 86 |
# Trick - you MUST have suffiecient privilege in order to execute
|
86 |
# Trick - you MUST have suffiecient privilege in order to execute
|
| 87 |
# May not work on the real database, unless you have the right
|
87 |
# May not work on the real database, unless you have the right
|
| 88 |
# password.
|
88 |
# password.
|
| 89 |
my $m_sqlstr3 = "begin RELEASE_MANAGER.PK_BUILDAPI.set_resume(); end;";
|
89 |
my $m_sqlstr3 = "begin RELEASE_MANAGER.PK_BUILDAPI.set_resume(); end;";
|
| 90 |
|
90 |
|
| 91 |
#
|
91 |
#
|
| 92 |
# So far, the limats appera to be
|
92 |
# So far, the limits appera to be
|
| 93 |
# Can call a stored proceedure, but not one that returns stuff
|
93 |
# Can call a stored proceedure, but not one that returns stuff
|
| 94 |
# Can call a stored function
|
94 |
# Can call a stored function
|
| 95 |
#
|
95 |
#
|
| 96 |
|
96 |
|
| 97 |
print("$m_sqlstr\n");
|
97 |
print("$m_sqlstr\n");
|