Hugely appreciated!!
Thanks.
I will get it happening as soon as I get back to WA. I'm currently in
Cairns.
Just a note for anyone thinking about getting one of the Apple LCD Screens.
They are excellent. My 17" looks fantastic and has exceeded my expectations.
Highly recommended.
Thanks again for the script!!
Regards,
Scott
> On Tue, 2002-04-30 at 17:11, Scott wrote:
>> Does anyone know how to make a script to telnet to an IP, authenticate
>> (login / pass) and then reconnect every 8 hours or whenever the connection
>> is lost.
>>
>> Its rather important because its the only thing stopping me from fully using
>> OSX. I had an applescript that did this with ³MacTelnet² in OS9.
>>
>
> Since you're running an operating system capable of running perl, I've
> just spent the last hour making this little script for you:
>
> ---START SCRIPT----
> #!/usr/bin/perl
> # v1.0 - May 1, 2002 by Onno Benschop - ITmaze
> # Use this wherever you like, just leave the credit alone.
> #
> # Usage: telnet.pl host user passwd
> #
> # Purpose: keep a telnet connection open
> #
> # Script will connect to host with user and password. As soon
> # as the connection dies, it reconnects. To keep some connections
> # alive longer, it issues an $idleCommand each $idleTime seconds.
> #
> # If you want to just run this in the background, then add & at
> # the end of the command, eg:
> #
> # telnet.pl host user passwd &
> #
>
> use Net::Telnet;
> $idleCommand = 'date' ; # command to run to keep alive
> $idleTime = 5*60 ; # idle time in seconds
>
> sub telnet_connect {
> ($host,$user,$passwd)[EMAIL PROTECTED];
>
> $telnet = new Net::Telnet ( Timeout=>10,
> Errmode=>'return',
> Prompt => '/\$ $/i');
> $telnet->open($host);
> $telnet->login($user, $passwd);
> while () {
> $telnet->cmd($idleCommand) ;
> sleep($idleTime) ;
> }
> }
>
> sub telnet_use {
> print "Usage: telnet.pl host user passwd\n" ;
> }
>
> if (!$ARGV[2]) {
> &telnet_use;
> } else {
> while () {
> &telnet_connect ;
> }
> }
> ----END SCRIPT----
>
> You will need to download the Net::Telnet perl module from cpan. The
> manual is here:
> <http://www.perldoc.com/cpan/Net/Telnet.html>
>
> The software is here:
> <http://www.perl.com/CPAN-local/authors/id/J/JR/JROGERS/>
>
> Save the script in a file called telnet.pl, then do: chmod +x telnet.pl.
> Finally, just type ./telnet.pl and it should say: Usage: telnet.pl host
> user passwd. Run it with appropriate parameters and it will connect
> everytime it is disconnected and will issue the idleCommand every
> idleTime period.
>
> For those of you wondering why it took so long, it's because my native
> tounge is not perl (I try to avoid it like the plague :-). I needed to
> first find out why telnet -l username hostname didn't work as expected,
> it's supposed to login with your supplied username, but then it prompts
> for a password - not good. Then I figured that I could probably write a
> script, and seeing that it was unlikely that Scott had PHP installed, I
> figured that using perl would be simpler. Then went looking for
> something that allowed me to telnet using perl, then needed to figure
> out how to get command line parameters to the script, since I didn't
> really want Scott to have to change the script.
