Some suggestions

[Jack Leunissen]

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/