Hya,
At 03:56 AM 15/06/2001 +0100, Kris G Findlay wrote:
>i have written this script .. just supposed to log into computer on network
>and start a forwarded gnome session to my Nt machine !
>
>problem is i cant get the prompt to match.
>
>#############perl script ################
>
> #!e:\perl\bin\perl
>
> use Net::Telnet;
>
> $telnet = Net::Telnet->new
> (
> Timeout => 90,
># Prompt => '/[\$%#>] $/',
> Prompt => '/[\$\%\#\>] $/', # these are metacharacters they
> must be escaped "\"
> Host => '192.168.0.2'
> );
>
> $telnet->login('kris', 'password');
>
> $telnet->cmd('DISPLAY=192.168.0.10:0');
>
> $telnet->cmd("export DISPLAY");
>
> $telnet->cmd("gnome-session");
>
> $telnet->close;
>
>exit;
>
>########### end of script #################
>
>[----------------------]
> Kris G Findlay
> [EMAIL PROTECTED]
>[----------------------]
Regards
Paul Dean
IT Support Officer
Canning College
Computing Centre
Ph: 9350 5430
Mob: 0408 902 206
[EMAIL PROTECTED]
