#!/usr/bin/perl

use strict;
use warnings;
use Net::Telnet::Netscreen;

my $path = "/root/Desktop/RIP";
my $host = "9999999999";
my $wan = "1.1.1.1";
my $inlog = "$path/log/".$host."-".$wan."_in.stat";
my $outlog = "$path/log/".$host."-".$wan."_out.stat";

my $session = Net::Telnet::Netscreen->new(
  Host => $wan,
  Timeout => 90,
  Input_log => $inlog,
  Output_log => $outlog,
) or die Net::Telnet::Netscreen::error();


$session->login('xy', 'zzzzz') or die $session->error;

my $set_router = "set vrouter trust-vr";
my $unset_protocol = "unset protocol rip";
my $yes = "y";
my $exit = "exit";
my $save = "save";

$session->prompt('/9999999999->/');
$session->cmd($set_router) or die $session->error;
$session->prompt('/9999999999\(trust-vr\)->/');
$session->cmd($unset_protocol) or die $session->error;
$session->waitfor('/deleting RIP instance, are you sure\? y\/\[n\] /') or die $session->error;
$session->cmd($yes) or die $session->error;
$session->cmd($exit) or die $session->error;
$session->cmd($save) or die $session->error;
$session->cmd($exit) or die $session->error;
$session->close or die $session->error;