Hi all, I'm trying to send a page using Perl via the WCTP protocol. For some reason, I cannot connect to the host "wctp.att.net/WCTP" (or any host for that matter) on port 80. I figure it must be some server configuration that I need to set. I don't think it's a port problem b/c I'm able to send a page via WCTP using the same port using a stand-alone app.
Anyhow, here's the code I'm using: 
sub send_wctp_old{
    #my $url = "http://wctp.cingular.com:80/WCTP";
    my $url = "http://wctp.att.net/WCTP";
    print "TestEPaging::send_wctp_old()--Sending via WCTP to " . $url . " 
";
 
    my $body = "<?xml version=\"1.0\"?><!DOCTYPE wctp-Operation SYSTEM \"http://www.skytel.com/protocols/dtds/wctp/wctpv1-0.dtd\">";
    $body = $body . "<wctp-Operation wctpVersion=\"WCTP-DTD-1.1\"><wctp-SubmitClientMessage><wctp-SubmitClientHeader>";
    $body = $body . "<wctp-ClientOriginator senderID=\"";
    $body = $body . $from;
    $body = $body . "\"/><wctp-Recipient recipientID=\"";
    $body = $body . $to;
    $body = $body . "\"/></wctp-SubmitClientHeader><wctp-Payload><wctp-Alphanumeric>";
    $body = $body . $message;
    $body = $body . "</wctp-Alphanumeric></wctp-Payload></wctp-SubmitClientMessage></wctp-Operation>";
 
    #my $ua = LWP::UserAgent->new;
    my $ua=new LWP::UserAgent;
    my $header=new HTTP::Headers;
    print "TestEPaging::send_wctp_old()--Created new UserAgent
";
 
    #my $http_response = $ua->request(POST $url, Content_Type => 'text/xml', Content => $body); 
    
    my $req = new HTTP::Request ("POST", $url, $header, Content => $body );
 
    my $http_response=$ua->request($req);
 
    print "TestEPaging::send_wctp_old()--Sent request
";
 
    if ($http_response->is_success){
        print "TestEPaging::send_wctp_old()--Message sent successfully to " . $to;
    }
    else{
        print "TestEPaging::send_wctp_old()--Message failed - " . $http_response->as_string;
    }
}

And here's the error output I'm seeing: 
TestEpaging::main()--to=4255333734 
TestEpaging::main()--from=1111111111 
TestEpaging::main()--message=Hello 
TestEpaging::main()--protocol=WCTP 

TestEPaging::send_wctp_old()--Sending via WCTP to http://wctp.att.net/WCTP 
TestEPaging::send_wctp_old()--Created new UserAgent
TestEPaging::send_wctp_old()--Sent request
TestEPaging::send_wctp_old()--Message failed - 500 Can't connect to wctp.att.net:80 (connect: Unknown error) Content-Type: text/plain Client-Date: Thu, 28 Jun 2007 16:35:30 GMT Client-Warning: Internal response 500 Can't connect to wctp.att.net:80 (connect: Unknown error)

Any advice is much appreciated.
Thanks! Karim Varela

In reply to Re^2: Paging in Perl by Anonymous Monk
in thread Paging in Perl by draven

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.