Aha!
I always wanted to rewrite MQSeries. This might be the opportunity!
Do you want to use TCP SOCKETS, or can you 'email' the data to the other server?
I ask, because TCP-SOCKETS depend on evrything being available
at the time you want it, and you have to handle your own connection problems manually. If you can email the data, you
have a proven delivery mechanism to base the rest of your code
on.
Then your server code is run by placing '|myperlcode -w' into a '.forward' files.
Regards,
David le Blanc
--
Senior Technical Specialist
I d e n t i t y S o l u t i o n s
Level 1, 369 Camberwell Road, Melbourne, Vic 3124
Ph 03 9813 1388 Fax 03 9813 1688 Mobile 0417 595 550
Email [EMAIL PROTECTED]
-----Original Message-----
From: Paul Kraus [mailto:[EMAIL PROTECTED] Sent: Friday, 5 March 2004 7:38 AM
To: 'perl'
Subject: Passing Data Between Servers
I have a sco server which I hate to work on and I do not
have full admin
rights to. (We don't own it).
I vote for e-mail and less top-posting =)
#!/usr/local/bin/perl -w
use strict; use warnings;
# Dont create a mail-loop my $REPLY_TO = '[EMAIL PROTECTED]';
use Mail::Internet ();
my ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime;
my $lt = sprintf("%02d%02d%02d%02d%02d%4d%d",
$sec, $min, $hour, $mday, ++$mon, ($year + 1900), $wday);my $slt = scalar localtime;
my $fh; $fh = \*STDIN;
my $from;
my $msg = Mail::Internet->new($fh, 'Modify' => 0, 'MailFrom' => 'KEEP');
# Get all headers and body stuff...
my @headers = @{$msg->head()->header()};
my @body = @{$msg->body()};my @message = ("The below message was seen by this sourcer:\n",
"This mailing was received on $slt\n",
"Serial: $lt.\n\n",
"=== The message's E-Mail Header, as sent:\n\n",
@headers,
"\n=== The message's E-Mail Body, as sent:\n\n",
@body,
"\n\n=== End of Message ===\n\n",
);# Send to Internal Staff (you, possibly)... $msg = $msg->reply(); $msg->body([EMAIL PROTECTED]);
$msg->head()->replace('From', $from);
$msg->head()->replace('Reply-To', $REPLY_TO);
$msg->head()->replace('To', $REPLY_TO);
$msg->smtpsend();# Exit before we drop into other routines... exit;
__END__
Attach this script to any UserID except postmaster or root...
-Bill- __Sx__________________________________________ http://youve-reached-the.endoftheinternet.org/
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
