$Id: API_RUS.txt,v 1.1 2005/01/17 20:49:16 ramirez Exp $

  Nawt.pm (API  NeTAMS)
-------------------------------------------------------------------------------
	Netams Admintool (Nawt)   API    
	 Perl,     ,    .
	
	           
	 ,          
	 @INC: 
	
		unshift (@INC, "/var/www/apache2/addon-modules/nawt/lib");
	
	Netams.pm    Net::Telnet,   
	 http://www.cpan.org.
	
	Netams.pm   netams,   . 
	      Netams.pm:
	
	#!/usr/bin/perl
	
	use strict;
	use Netams;
	
	my ($host, $port,  $user, $pass);
		$host = "localhost";
		$port = "20001";
		$user = "admin";
		$pass = "123";
	
	#  ,    	
	my $obj = Netams::new($host, $port, $user, $pass);
	
	#   :
	my %units = $obj->getUnit();
	
	#  .    OID 
	foreach (keys %units) {
		print "Unit name: $units{$_}{name} $units{$_}{type} \n";	
	}
	
	#      :
	foreach (keys %units) {
		print "Unit ip: ".$units{$_}{ip}."\n";	
	}	
	
	#  ,  :
	$obj->close();
	# END
	
	   getUnit     OID 
	     :
	
	my %unit = $obj->getUnit($oid);
	my $name = $unit{name};
	
	     :
	
	my %pols = $obj->getPolicy();
	
	  :
	
	my %proc = $obj->getService("processor");
	
	     .   , 
	    .     
	  !
	
	$param = $proc{'lookup-delay'};
	
	    ,    .  
	       .
	
	      :
		perldoc Netams.pm 
	(    ).
	
	          :
		
		@lines = $obj->runCmd("show version");
		
	      ,   .
	
	   ...    -  . 
	   .
	
