Solved

HTTP Error 502.2 - Bad Gateway in Perl CGI script when accessing SQL Stored Proc with Parameters

Posted on 2009-05-20
3
1,086 Views
Last Modified: 2013-12-07
Hello,

I am currently involved in a project that requires me to send some data from a SQL database in a Perl script file.

Having never delt with Perl this is proving slightly problematic as I don't really know what I am doing but I am figuring it out slowly.

So far I have managed to get the connection to work correctly and can run basic SELECT commands using the URL parameters. I have also managed to get a SQL Stored Proc to run fine with out any problems that contained a simple SELECT * FROM Table statement.

The problem I am having now is adding the Parameters to the file as I keep getting a 502.2 error and I can't work out why.

I have attached a code snippet below and hopefully it is something glaringly obvious but as I have no Perl experience I have no idea. I have tried using some example in tutorials but I keep getting the error.

Lee
#!/usr/bin/perl
use CGI qw(param);
my $Model = param("Model");
 
print "Content-type: text/html\n\n";
 
print "<html><body>";
 
print "<br><p><center><h2>Data Return (CGI)</h2></center></p>";
 
print "<p>Start Of Data for Model: $Model</p>";
 
print "<p>";
 
use strict;
use DBI;
my $db_user = "user";
my $db_pass = "password";
if (my $dbh = DBI-> connect('dbi:ODBC:perltest',$db_user,$db_pass)) {
 
 
   my $sql = "declare @Model char(6) exec mtkSP_PerlTest @Model =123456";
 
   if (my $sth = $dbh->prepare($sql)) {
 
       if ($sth->execute()) {
 
           while (my @row = $sth->fetchrow_array) {
 
               print join(", ", @row), "!";
           }
       }
       else {
 
           print "Execute failed : ".$dbh->errstr;
       }
   }
   else {
 
       print "Prepare failed : ".$dbh->errstr;
   }
}
else {
 
   print "Failed to login";
 
}
 
print "</p>";
 
print "<p>End Of Data</p>";
print "</body></html>\n";
 
exit;

Open in new window

0
Comment
Question by:Lee Redhead
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
3 Comments
 
LVL 39

Assisted Solution

by:Adam314
Adam314 earned 20 total points
ID: 24436182
What web server are you using?  Is there anything in your error log?
Try adding this after your line 2... what is the output:
use CGI::Carp 'fatalsToBrowser';

Open in new window

0
 
LVL 40

Accepted Solution

by:
mrjoltcola earned 480 total points
ID: 24436557
I assume the "declare @Model " is meant to be parsed by SQL Server, however, @Model will be interpolated by Perl as a list variable. You need to either escape it, or use single quotes in the SQL string.

# Try single quotes

my $sql = 'declare @Model char(6) exec mtkSP_PerlTest @Model =123456';

#OR escape the @

my $sql = "declare \@Model char(6) exec mtkSP_PerlTest \@Model =123456";
0
 

Author Closing Comment

by:Lee Redhead
ID: 31583658
mrjoltcola - That worked perfectly, brought back the data as expected.

adam314 -Even though it didn't answer the question being able to see what has gone wrong is really useful.
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In this article I will describe the Copy Database Wizard method as one possible migration process and I will add the extra tasks needed for an upgrade when and where is applied so it will cover all.
In this article we will get to know that how can we recover deleted data if it happens accidently. We really can recover deleted rows if we know the time when data is deleted by using the transaction log.
This video shows syntax for various backup options while discussing how the different basic backup types work.  It explains how to take full backups, incremental level 0 backups, incremental level 1 backups in both differential and cumulative mode a…
This video shows how to configure and send email from and Oracle database using both UTL_SMTP and UTL_MAIL, as well as comparing UTL_SMTP to a manual SMTP conversation with a mail server.

730 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question