Net::Telnet::Netscreen 1.1

Net::Telnet::Netscreen is a Perl module that interacts with a Netscreen firewall.

Net::Telnet::Netscreen is mostly a pure rippoff of Net::Telnet::Cisco, with adaptations to make it work on the Netscreen firewalls. It also has some additional commands, but for basic functionality, see Net::Telnet and Net::Telnet::Cisco documentation.

use Net::Telnet::Netscreen;

my $fw = new Net::Telnet::Netscreen(host=>192.168.1.1); $fw->login(admin,password) or die $fw->error; $fw->enter_vsys(wineasy.no); print "We are now in: ".$fw->current_vsys."n"; my %vsys=$fw->get_vsys; foreach $key (sort (keys %vsys)) { print $key,=, $vsys{$key},"n"; } print @results;

Before you use Net::Telnet::Netscreen, you should probably have a good understanding of Net::Telnet, so perldoc Net::Telnet first, and then come back to Net::Telnet::Netscreen to see where the improvements are.

Some things are easier to accomplish with Net::SNMP. SNMP has three advantages: its faster, handles errors better, and doesnt use any vtys on the router. SNMP does have some limitations, so for anything you cant accomplish with SNMP, theres Net::Telnet::Netscreen.

New methods not found in Net::Telnet follow:

enter_vsys - enter a virtual system

Enter a virtual system in the firewall. parameter is system you want to enter . You may enter another vsys even if you are in a vsys. Note that we will save your changes for you if you do. (only works for ns-500+)

enter_vsys - exit from the level you are on

exit from the vsys you are in, or from the system if you are on the top. takes one parameter. if you should save any changes or not. (only works for ns-500+)

current_vsys - show current vsys

return the vsys you currently are in. returns blank if youre not in a vsys. (only works for ns-500+)

get_vsys - return vsys.

returns a hash of all the virtual systems on your system, with system ids for values (only works for ns-500+)

ha_mode - return high availability mode.

return the HA mode, if your system is in a HA cluster, or false if it isnt.

ping - ping a system. Returns percentage of success (0-100).

$sucess=$fw->ping(192.168.1.1);

exit - Exit system

use this command to exit system, or exit current vsys

getValue - Set a value from the box.

Will return a value from the firewall, or from the vsys you are in, if you arent in root.

setValue - Set a Value in the box.

Set a value in the box, returns true if set successfully.

lastPrompt - Show the last prompt returned.

Shows the last prompt returned by your netscreen device.

lastCmd - Show the last command executed.

Shows the last command executed on your netscreen device.