rodrigol at bioslave.uio.no (Rodrigo Lopez) writes:
>Where is the script?
>ftp://ftp.sanger.ac.uk/pub/pmr/srs/srswwwst.pl>or
>ftp://ftp.no.embnet.org/pub/srs/scripts/srswwwst.pl
One word of caution: the script did not work on our IRIX systems, under
IRIX 5.3, and PERL 4.036. The hard-coded value of SOCK_STREAM has to be
changed from "1" to "2".
But a better solution is to install PERL 5.000, in which you don't have
to worry about the values of AF_INET and SOCK_STREAM. You have to make
only a small change to the code. Change the part that reads
#
# Connects to ip address (name) + port.
#
sub connect {
local ($them, $port) = @_;
$AF_INET = 2;
$SOCK_STREAM = 1;
$SIG{'INT'} = 'dokill';
into:
#
# Connects to ip address (name) + port.
#
sub connect {
local ($them, $port) = @_;
use Socket; <-- NEW
$AF_INET = AF_INET; <-- CHANGE
$SOCK_STREAM = SOCK_STREAM; <-- CHANGE
$SIG{'INT'} = 'dokill';
And presto, you're in business!
Best regards,
Jack
--
Jack A.M. Leunissen, Ph.D. | CAOS/CAMM Center, Univ. of Nijmegen
Email: jackl at caos.kun.nl | Toernooiveld
Tel. : +31 80 65 22 48 | 6525 ED Nijmegen, The Netherlands
Fax : +31 80 65 29 77 | URL=http://www.caos.kun.nl/