Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

Socket PM

Jan 13, 2003, 1:25 AM
robyone
User (119 posts)
robyone's avatar
Jan 13, 2003, 1:25 AM
Post #1 of 19
Views: 13813
Shortcut
Quote Reply
Socket PM
Hi

Can you show me how to build a simple socket connection?

For example

- connect to a URL via socket,

- then print results from the remote server to my HTML output.

Thanks!!!!!!!

Roby
Jan 13, 2003, 1:38 AM
Paul
Veteran (19537 posts)
Jan 13, 2003, 1:38 AM
Post #2 of 19
Views: 13665
Shortcut
Quote Reply
Re: [robyone] Socket PM In reply to
Could I ask for some more details, such as why you need a socket?

What are you trying to achieve (just to help me assess if there's a better way)?

Last edited by:

Paul: Jan 13, 2003, 1:38 AM
Jan 13, 2003, 1:40 AM
yogi
Veteran (2199 posts)
Jan 13, 2003, 1:40 AM
Post #3 of 19
Views: 13653
Shortcut
Quote Reply
Re: [robyone] Socket PM In reply to
Read the perlipc manpage.

Ivan
-----
Iyengar Yoga Resources / GT Plugins
Jan 13, 2003, 1:48 AM
robyone
User (119 posts)
robyone's avatar
Jan 13, 2003, 1:48 AM
Post #4 of 19
Views: 13645
Shortcut
Quote Reply
Re: [Paul] Socket PM In reply to
Paul

it is for my payment gateway requirements. It requires a socket connection but i need a simple, really simple connection to https://servername on port 443 via socket. Then get the string back to and read it for the response to the browser. Any experience?

Thanks.
Jan 13, 2003, 1:52 AM
Paul
Veteran (19537 posts)
Jan 13, 2003, 1:52 AM
Post #5 of 19
Views: 13644
Shortcut
Quote Reply
Re: [robyone] Socket PM In reply to
You can fetch a webpage with LWP::UserAgent. I think if you are connecting to a secure server you will need Crypt::SSLeay - but not sure on that.

Is this for paypal?
Jan 13, 2003, 2:00 AM
robyone
User (119 posts)
robyone's avatar
Jan 13, 2003, 2:00 AM
Post #6 of 19
Views: 13604
Shortcut
Quote Reply
Re: [Paul] Socket PM In reply to
That's for authorizenet

I tried it and I got a HTTP::Response=HASH(0x82ba980)

:((

Ideas?
Jan 13, 2003, 2:06 AM
Paul
Veteran (19537 posts)
Jan 13, 2003, 2:06 AM
Post #7 of 19
Views: 13606
Shortcut
Quote Reply
Re: [robyone] Socket PM In reply to
Thats the response object - you need something like....

Code:
my $response = $lwp->request( ... );

if ($response->is_success) {
my $data = $response->content;
...
}
else {
die $response->message . ' (' . $response->code . ')';
}
Jan 13, 2003, 2:13 AM
robyone
User (119 posts)
robyone's avatar
Jan 13, 2003, 2:13 AM
Post #8 of 19
Views: 13659
Shortcut
Quote Reply
Re: [Paul] Socket PM In reply to
I got this error

Protocol scheme 'https' is not supported
Jan 13, 2003, 2:20 AM
Paul
Veteran (19537 posts)
Jan 13, 2003, 2:20 AM
Post #9 of 19
Views: 13667
Shortcut
Quote Reply
Re: [robyone] Socket PM In reply to
This normally happens if LWP needs upgrading or if your server doesn't have all the necessary SSL libs installed.

I remember getting the same error for http:// and upgrading LWP seemed to solve it.
Jan 13, 2003, 2:38 AM
robyone
User (119 posts)
robyone's avatar
Jan 13, 2003, 2:38 AM
Post #10 of 19
Views: 13652
Shortcut
Quote Reply
Re: [Paul] Socket PM In reply to
Don't you know how to do it via socket /io::socket?
Jan 13, 2003, 3:15 AM
robyone
User (119 posts)
robyone's avatar
Jan 13, 2003, 3:15 AM
Post #11 of 19
Views: 13662
Shortcut
Quote Reply
Re: [robyone] Socket PM In reply to
I got it up but I'm getting an error form the remote server telling that connection method is not supported.
Jan 13, 2003, 4:40 AM
Paul
Veteran (19537 posts)
Jan 13, 2003, 4:40 AM
Post #12 of 19
Views: 13640
Shortcut
Quote Reply
Re: [robyone] Socket PM In reply to
 
Code:
my $sock = IO::Socket::INET->new(
PeerAddr => 'www.domain.con',
PeerPort => 'https(443)',
Proto => 'tcp'
);

What code did you try?
Jan 13, 2003, 4:49 AM
robyone
User (119 posts)
robyone's avatar
Jan 13, 2003, 4:49 AM
Post #13 of 19
Views: 13615
Shortcut
Quote Reply
Re: [Paul] Socket PM In reply to
use IO::Socket;

$sock = IO::Socket::INET->new(

PeerAddr => "certification.authorize.net", #test server

PeerPort => "https(443)", #used 443 or https(443)

Proto => 'tcp',

Timeout => "20",

)

or die print "cannot connect to daytime port at localhost";

print $sock "GET /gateway/transact.dll HTTP/1.0\n\n";

while (<$sock>) {

print;

}

$sock->close();

--------------------

I can get anything from the server ...
Jan 13, 2003, 9:05 AM
robyone
User (119 posts)
robyone's avatar
Jan 13, 2003, 9:05 AM
Post #14 of 19
Views: 13598
Shortcut
Quote Reply
Re: [robyone] Socket PM In reply to
In the IO::Socket code it prints nothing with $sock
Jan 13, 2003, 9:46 AM
Paul
Veteran (19537 posts)
Jan 13, 2003, 9:46 AM
Post #15 of 19
Views: 13605
Shortcut
Quote Reply
Re: [robyone] Socket PM In reply to
Do authorizenet not have any documentation or code samples?
Jan 13, 2003, 9:49 AM
robyone
User (119 posts)
robyone's avatar
Jan 13, 2003, 9:49 AM
Post #16 of 19
Views: 13583
Shortcut
Quote Reply
Re: [Paul] Socket PM In reply to
http://www.authorizenet.com/support/AIM_guide.pdf
Jan 13, 2003, 9:54 AM
Paul
Veteran (19537 posts)
Jan 13, 2003, 9:54 AM
Post #17 of 19
Views: 13606
Shortcut
Quote Reply
Re: [Paul] Socket PM In reply to
The code you have should work AFAIK so you may be best contacting authorizenet to see if they can shed light as to why you are receiving nothing back.
Jan 14, 2003, 10:05 AM
Alex
Administrator (9387 posts)
Jan 14, 2003, 10:05 AM
Post #18 of 19
Views: 13554
Shortcut
Quote Reply
Re: [robyone] Socket PM In reply to
Quote:
Protocol scheme 'https' is not supported

You need to install the Net::SSL module:

http://cpan.gossamer-threads.com/...t-SSLeay-0.45.tar.gz

Cheers,

Alex
--
Gossamer Threads Inc.
Jan 14, 2003, 12:27 PM
Wil
Veteran / Moderator (4108 posts)
Jan 14, 2003, 12:27 PM
Post #19 of 19
Views: 13584
Shortcut
Quote Reply
Re: [Alex] Socket PM In reply to
And then reinstall LWP if I remember correctly.

- wil