Perl library for Netconf
Perl Perl6 Makefile
Latest commit ce96f34 Jan 10, 2017 @mwiget mwiget committed with ydnath Docker container (#30)
* docker container netconf-perl

* remove obsolete statements

* use variable for container name

* make /scripts the working directory. Document -v in README.md

README.md

NETCONF Perl client

   Contents
     * Abstract
     * Supported Platforms
     * Prerequisites
     * Installation
     * Running the Sample Scripts
     * Troubleshooting

Abstract

The NETCONF API provides mechanisms to install, manipulate, and delete the configuration of network devices. The NETCONF API uses an Extensible markup Language (XML) based data encoding for the configuration data as well as operations and messages defined in the API.

The Net::Netconf::Manager module provides an object-oriented interface for communicating with the NETCONF server so you can start using the NETCONF API quickly and easily. There are several modules in this library but client applications directly invoke the Manager object only. When the client application creates a Net::Netconf::Manager object, it specifies a router name and the login name to use when accessing the router (which determines the client application's access level).

The following code segment shows how to use the Net::Netconf::Manager object to request information from a routing platform. This example invokes the query called get_chassis_inventory.

 # Step 1: set up the query
 // RPC tag <get-chassis-inventory> should be querried as below
 my $query = "get_chassis_inventory";
 my %queryargs = ( 'detail' => 'True' );
 # Step 2: Create a Netconf Manager object and connect to Networks routing platform
 my %deviceinfo = (
  access => "ssh",
  login => "johndoe",
  password => "secret",
  hostname => "router11"
  );
  my $jnx = new Net::Netconf::Manager(%deviceinfo);
  unless ( ref $jnx ) {
         croak "ERROR: $deviceinfo{hostname}: failed to connect.\n";
  }
 # Step 3: send the query and receive a reply
 my $res = $jnx->$query( %queryargs );
 # Step 4: check for error
 if ($jnx->has_error) {
      croak "ERROR: in processing request \n $jnx->{request} \n";
  } 
  else {
 # Step 5: do something with the result
  }
 # Step 6: always disconnect from the server when you're done
 $jnx->disconnect();

Supported Platforms

The current version of this module has been tested on the following platforms. Later releases may support additional platforms.

 * Ubuntu 12.04LTS 
 * Fedora 15 i686
 * Centos-6.5-i386

Prerequisites

Following are the Prerequisites for using this API:
   1. Net::SSH2
   2. File::Which
   3. XML::LibXML

Also make sure that your system has libxml2 and libxml2-dev library. If not then either install it from source package in ubuntu website or by using apt-get. For more info look at the Troubleshooting

Installation

Make sure Perl is installed. If necessary, see Installation of Perl.
% which perl
% perl -v
The NETCONF Perl API requires version 5.6.1 or later of the perl executable. Verify that you are running 
that version of the perl executable. If not, check your PATH or install the latest release of perl.

    There are two ways to install Net::Netconf Module in your system:
    1. Using CPAN
    2. Using source code in github
Note: If you are using cpan command then you don't have to install prerequisites, they will automatically be
installed by cpan        

    Using CPAN
    -----------------------------------------------------------------------------------------
    Before installing using cpan, make sure your system has cpan, if not then install it either by "apt-get 
    install cpan" or "yum install cpan" (according to the OS you are using)
    1. To install using CPAN make sure your system has C dependencies, i.e. libxml2 and libxml2-dev package.
    2. After installing these two packages in your system install Net::Netconf module by using CPAN command 
    "cpan Net::Netconf". 

    Sometimes cpan command gives error then try installing using "cpanm" command. First install cpanm in your 
    system by "apt-get install cpanminus"  and then install this module by "cpanm Net::Netconf"

    Using Source code in github
    --------------------------------------------------------------------------------------------
    Instructions for UNIX Systems
    Install the prerequisites of Perl modules. 
    Following are the prerequites
    1. Net::SSH2
    2. File::Which
    3. XML::LibXML

    Steps to install Prerequisites in Ubuntu12.04LTS :
    1. cpan Net::SSH2
    2. cpan File::Which
    3. cpan XML::LibXML

    After successfully installing Prerequisites install NETCONF PERL CLIENT

    1. Download the Perl NETCONF zip archive from Juniper's Repository in github 
    2. Unzip the archive.
        % unzip netconf-Perl-master.zip
    3. Change to the NETCONF directory.
        % cd netconf-perl-master
    4. Create Net::Netconf Makefile.
       If installing Net::Netconf::Manager under the standard directory
        (by default it is /usr/local/lib):
        [/my/netconf-perl-master]% perl Makefile.PL
    5. Install the Net::Netconf module.
        [/my/netconf-perl-master]% make
        [/my/netconf-perl--master]% make install
        (to run make install user should have root permission)

Running the Sample Scripts

The NETCONF Perl distribution includes sample scripts that demonstrate how to use NETCONF to retrieve and change the configuration of a Networks routing platform. The samples reside in the netconf-perl-n.n/examples directory.

Reading configuration: System Information This example sends a request to the Networks routing platform and displays the result to the standard output.It also shows how to parse reply from server

Script: get_system_information.pl

        use Net::Netconf::Manager;
        print "Enter hostname\n";
        my $hostname = <>;
        print "Enter username\n";
        my $login= <>;
        print "Enter password\n";
        my $pass = <>;
        chomp($hostname);
        chomp($login);
        chomp($pass);
        $jnx = new Net::Netconf::Manager( 'access' => 'ssh',
                      'login' => $login,
                      'password' => $pass,
                      'hostname' => $hostname);
        if(! $jnx ) {
              print STDERR "Unable to connect to Junos device \n";
              exit 1;
         }
         print "Connection established: " . $jnx->get_session_id . "\n";
         my $reply=$jnx->get_system_information();
         if ($jnx->has_error) {
         print "ERROR: in processing request\n";
         # Get the error
         my $error = $jnx->get_first_error();
         $jnx->print_error_info(%$error);
         exit 1;
         }
      print "Server request: \n $jnx->{'request'}\n Server response: \n $jnx->{'server_response'} \n";

         # this parsing is specifically for <get-system-information> tag
         # you can write your own application in similar way
         #parsing reply from server
         my $config= $jnx->get_dom();
         $res= $config->getElementsByTagName("hardware-model")->item(0)->getFirstChild->getData;
         $res2= $config->getElementsByTagName("os-name")->item(0)->getFirstChild->getData;
         $res3= $config->getElementsByTagName("host-name")->item(0)->getFirstChild->getData;
         print "\nhardware information  ". $res ."\n";
         print "os-name  " .$res2 . "\n";
         print "host-name  ". $res3. "\n";
         $jnx->disconnect();

Output:
Run netconf-perl script:

perl <script_name>
priyal@priyal:~/Desktop$ perl get_system_information.pl
Enter hostname: device1
Enter username: foo
Enter password: passwd123

Server request: 
 <rpc message-id='1'>
  <get-system-information/>
</rpc>

 Server response: 
<rpc-reply xmlns="urn:ietf:params:xml:ns:netconf:base:1.0" xmlns:junos="http://xml.juniper.net/junos/15.2I0/junos" message-id='1'>
<system-information>
<hardware-model>olive</hardware-model>
<os-name>junos</os-name>
<os-version>15.2I20151211</os-version>
<host-name>device1</host-name>
</system-information>
</rpc-reply>

hardware information:  olive
os-name:  junos
host-name: device1

Troubleshooting (Ubuntu12.04LTS or higher version)

1. Installing libxml2 and libxml2-dev 
   - Install using apt-get
        apt-get install libxml2
        apt-get install libxml2-dev
   - Installing from source code
     Download your system specific package from http://packages.ubuntu.com/
     For Precise(12.04 LTS) download its .dpkg packages
     For libxml2: http://packages.ubuntu.com/precise/libxml2
     For libxml2-dev : http://packages.ubuntu.com/precise/libxml2-dev

     Install these packages in your system :
        dpkg -i libxml2_2.7xyz__.dpkg
        dpkg -i libxml2-dev_2xyz__.dpkg

  Note : Libxml2 and libxml2-dev should be of same version

If you get libxml related error even after installing its dependency like libxml2 and libxml2-dev then try 
below  command
        apt-get install libxml-libxml-perl

Sometimes you may get error like "Checking for ability to link against xml2...no " while installing LibXML then 
use this command
      sudo apt-get install zlib1g-dev

2. For error related to Net::SSH2
   Sometimes you may get error like,
          fatal error: openssl/crypto.h: No such file or directory
          #include <openssl/crypto.h>
                        ^
          compilation terminated.
          make: *** [SSH2.o] Error 1
  then use then command:
  sudo apt-get install libssl-dev

3. For YAML related Errors
   Sometimes you may get that yaml is not installed then run following commands:
         apt-get install libyaml-appconfig-perl
         apt-get install libconfig-yaml-perl

3. For libz errors like:
         /usr/bin/ld: /usr/local/lib/libz.a(crc32.o): relocation R_X86_64_32 against `.rodata' can not be used when 
           making a shared object; recompile with -fPIC
         /usr/local/lib/libz.a: could not read symbols: Bad value
     try installing from source code:
         download libz source code, https://google-desktop-for-linux-mirror.googlecode.com/files/zlib-1.2.3.tar.gz
         according to platform u are using.
         open Makefile and add -fPIC in cflag, (smth like: CFLAGS=-O3 -DUSE_MMAP -fPIC)
         then compile it:
         ./configure
         make test
         make install

4. For cpan related errors:
   While installing some files using cpan, for example "cpan File::Which" you may get error like checksum mismatch
   for distribution, then try installing that package using "cpanm"
   First install cpanm in your system by:
   apt-get install cpanminus
   and then install desired package by using cpanm, for example:
   cpanm File::Which

   While installing perl dependency using cpan, if you get errors like "XML::NamespaceSupport package not found" or
   unmet dependency then first install that package using cpan / cpanm and then install your desired package.
   you can also try installing by force :
   apt-get -f install

CONTRIBUTORS