> -----Original Message----- > From: WC -Sx- Jones [mailto:[EMAIL PROTECTED] > Sent: Friday, 5 March 2004 8:19 PM > To: perl > Subject: Re: Passing Data Between Servers > > David le Blanc wrote: > > 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> > > >
Sorry about the top posting :") -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
