Re^2: Post within CGI

OK learnt my lesson :-)

Here is the module code (only the relevant bit)

package PoxPost;

use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use CGI;
use CGI::Carp qw ( fatalsToBrowser );
use XML::Simple;

my $esbhost = "http://5.0.10.212:8280/services/";
my $query;

######################################################################
# PostESB
######################################################################
sub PostESB
 {
    my $servicename = $_[0];
    my $payload = $_[1];
    
    my $userAgent = LWP::UserAgent->new(agent => 'perl post');
    my $message = "<tag>".$payload."</tag>";
    my $link = $esbhost.$servicename;
    my $response = $userAgent->request(POST $link,
        Content_Type => 'application/xml',
        Content => $message);

    if ($response->is_success){
        return 1;
    }
    else{
        return 0;
    }
}
[download]

Now here is my test code

print "start\n";

$svc = "PRUNE";
$msg = "<job>90099368</job><root>/gpfs/STUDIOS/HQ/</root><version>2</v
+ersion>";

PoxPost::PostESB($svc, $msg);
print "sent\n";
[download]

This test works exactly as expected

Now here is part of the CGI that is called, and which in turn tries to call the above method

#!/usr/bin/perl -w

use CGI; 
use CGI::Carp qw ( fatalsToBrowser ); 
use File::Basename; 
use File::Copy;
use File::Find;
use File::Path;
use DBI;
use POSIX;
use lib "/home/zed/ZLIB";
require "poxpost.pl";


#####################################################
# CGI Initialisation
#####################################################
# get the form details
my $query = new CGI; 

    HTMLHeader();

    umask(0);

    # check action requested
    my $action = $query->param("action"); 

    # now call required handler
    if ($action eq "jobversion"){
        JobVersionCreate();
    }

    # end header
    print qq(</body> </html>);

# END

######################################################################
+########
#    HTMLHeader
#     
######################################################################
+########
sub HTMLHeader{
    print $query->header( ); 
    print qq(<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" 
+"DTD/xhtml1-strict.dtd">);
    print qq(<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" 
+lang="en"> <head>);
    print qq(<meta http-equiv="Content-Type" content="text/html; chars
+et=utf-8" />);
    print qq(<link href="/compare/style.css" rel="stylesheet" type="te
+xt/css" media="screen" />);
    print qq(</head> <body>);
}

######################################################################
+########
#    JobVersionCreate
######################################################################
+########
sub JobVersionCreate{
    
    print "creating job version ";
                
    # now send message to prune previous versions
    $payload = "<job>job</job><root>pathroot</root><version>ver</ver>"
+;

    print "<result>OK</result>";
    PoxPost::PostESB("COMPARE_PRUNE", $payload);    
}
[download]

The problem is the call to PostESB. This is where the browser just hangs for several seconds. If I remove this line, it works fine. The test code for the PostESB runs very quick. It is the use within the CGI that is the issue.

I hope that the above gives you enough info

Thx Z

Comment on Re^2: Post within CGI Select or Download Code

Replies are listed 'Best First'.
Re^3: Post within CGI by scorpio17 (Canon) on Dec 14, 2011 at 15:24 UTC
In sub HTMLHeader, "print $query->header()" will create your header... but all the lines that follow, er, create the header... again. That may be part of the problem.	[reply]
Re^4: Post within CGI by systemz64 (Initiate) on Dec 14, 2011 at 15:48 UTC
Sorry - that is actually removed now. But still the same problem. Z	[reply]
Re^3: Post within CGI by Anonymous Monk on Dec 15, 2011 at 09:25 UTC
Hangs and then what? I think you need to read Watching long processes through CGI (Aug 02) http://www.stonehenge.com/merlyn/LinuxMag/col39.html	[reply]
Re^4: Post within CGI by Corion (Patriarch) on Dec 15, 2011 at 09:34 UTC
As a note, `stonehenge.com` is in the whitelist, so http://www.stonehenge.com/merlyn/LinuxMag/col39.html should also work for you to link to Watching long processes through CGI (Aug 02).	[reply] [d/l]
Re^5: Post within CGI by Anonymous Monk on Dec 15, 2011 at 09:40 UTC
;) What whitelist? It would be nice to see it :)	[reply]
Re^6: Post within CGI by Corion (Patriarch) on Dec 15, 2011 at 09:43 UTC
Re^7: Post within CGI by Anonymous Monk on Dec 15, 2011 at 11:00 UTC
Re^5: Post within CGI by Anonymous Monk on Dec 21, 2011 at 07:58 UTC
Well, I was just denied for stonehenge for Re: Display perl code output in CGI script	[reply]
Re^6: Post within CGI by Corion (Patriarch) on Dec 21, 2011 at 09:15 UTC
Re^3: Post within CGI by TJPride (Pilgrim) on Dec 14, 2011 at 17:05 UTC
It appears, if I'm reading this correctly, that your test code does not send the same information as your real code. How about you have your test code duplicate the call that's lagging for you and see if you get the same results? If so, then it's probably the ESB service that's lagging, for whatever reason. Of course, I could be entirely wrong.	[reply]