Send Perl CGI request and get XML as output

Question

I am sending below http request

http://dummyServer.com/cgi-bin/swf/send.cgi?pname=PACKAGENAME&from=FROMADDRESS&to=TOADDRESS

Server is Apache

File : send.cgi

use CGI;
use lib '/Library/WebServer/CGI-Executables/swf/';
use My::XML qw(responce);

my $q = new CGI;
my $pname = $q->param("pname");
my $from = $q->param("from");
my $to = $q->param("to");

responce($pname, $from, $to);

File : My/XML.pm

package My::XML;
use XML::Writer;
use Exporter qw(import);
our @EXPORT_OK = qw(responce);
my $doc = new XML::Writer(DATA_MODE => 'true', DATA_INDENT => 2);

sub responce {
    my ($pname, $from, $to) = @_;
    $doc->startTag("details");
    $doc->dataElement( pname => "${pname}");
    $doc->dataElement( from => "${from}");
    $doc->dataElement( to => "${to}");
    $doc->endTag();
    $doc->end();
}
1;

send.cgi is working fine in cli getting correct xml output. But when i call the above http request i am getting 500 Internal Server. I should get the plain xml displayed on browser window.

Can anyone help in this

Miller · Accepted Answer · 2014-03-21 20:08:50Z

2

You still need to send a proper http header.

print "Content-Type: text/xml\n\n";

Since you're using CGI you can also output it this way:

print $q->header('text/xml');

edited Mar 21, 2014 at 20:08

answered Mar 20, 2014 at 19:37

Miller

35.3k4 gold badges42 silver badges61 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Dave Cross Over a year ago

Or, given that he's using CGI.pm already, print $q->header(-content-type => "text/xml").

Collectives™ on Stack Overflow

Send Perl CGI request and get XML as output

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related