[EMAIL PROTECTED] wrote: > And 2-nd question: > how to start fixed program/without params/ on windows98 box > from linux box (on a local network) ? >
You can 'use IO::Socket;' on the Windows box to set up a simple server, and 'use IO::Socket;' on the linux box to send the "start" message to the server on the Windows box. Cheers, Rob ====== I come to vb6 Winsock server from http://15seconds.com/files/010820.zip on Windows box which suits me well and SIMPLE perl client which I get by "cut and paste" method from perl docs: +++++++++++ use strict; use IO::Socket; use Tk; require Tk::LabFrame; my $so; my $port; my $top = new MainWindow; my $bar=$top->LabFrame(-label => 'buttons bar'); $bar->pack; my $exi=$bar->Button(-command=>\&exi,-text=>"Exit"); $exi->pack(-side=>'left'); my $conne=$bar->Button(-command=>\&connect,-text=>"Connect"); $conne->pack(-side=>'left'); my $clos=$bar->Button(-command=>\&clos,-text=>"Close"); $clos->pack(-side=>'left'); my $send=$bar->Button(-command=>\&send,-text=>"Send"); $send->pack(-side=>'left'); MainLoop; sub exi{ if (defined $so){ $so->shutdown("1"); } $top->destroy; } sub connect { my ($remote,$port, $iaddr, $paddr, $proto, $line); $remote = 'localhost'; $port = 1007; # random port if ($port =~ /\D/) { $port = getservbyname($port, 'tcp') } die "No port" unless $port; $so=new IO::Socket::INET->new( PeerAddr=>$remote, PeerPort=>$port, Proto=>'tcp', Type=>SOCK_STREAM, ) or die "could not connect to $remote port $port"; } sub clos{ if (defined $so){ # close $so; $so->shutdown("1"); } } sub send { if (defined $so){ print $so "..."; } } ++++++++ my last question is - it looks to me that to this client snippet there must be simple server snippet in perl I should rather use perl ! /I need to receive sms messages from handset mobile - these messages I need on my Linux box, but I have a program only in windows to read messages from mobile ,so that after chimes which signals arrival of message, operator on Linux box starts program on windows box which starts reading messages from mobile and send them back to Linux box/ Client snippet is fully functional,so I looking for fully functional server snippet in the style of client thank you in advance ! _______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
