Nokia (Alcatel-Lucent) 5620 SAM sistemine XML API arayüzünden istek gönderen perl script

Merhaba,

Nokia 5620 SAM ağ yönetim sistemine XML API kullanarak dışarından bağlanmak ve çeşitli işler yaptırmak mümkündür. Bu arayüz ile diğer yönetim sistemleri SAM ile konuşabilir ayrıca geliştirilen scriptler ile cihazlar kongiure edilebilir, raporlama yapılabilir ve network yönetilebilir.

Altta bahsedilen konuları bu yolla yapmak oldukça kolaydır.

- SAM üzerinde olan herhangi bir ağ cihazında istenilen konfigurasyonu yapmak.
- Cihazlarla ilgili detaylı bilgileri raporlamak.
- Envanter raporları oluşturmak.
- Çeşitli senaryolara uygun konfigurasyon işlemleri yapmak.
- Servis tanımlamaları ve konfigurasyonları yapmak.
- Servis raporlamaları oluşturmak.
-
.
.
.

Göndermek istediğiniz XML il alttaki perl scripti içinde <SOAP:Body></SOAP:Body>
tagleri arasına yerleştirmeniz yeterlidir.

#!/usr/bin/perl

use strict;

use warnings;



use LWP::UserAgent 6.0;



my $usrAgent = LWP::UserAgent->new();

$usrAgent->timeout("120");



my $msg_to_send=

"<?xml version=\"1.0\" encoding=\"UTF-8\" ?>

<SOAP:Envelope xmlns:SOAP=\"http://schemas.xmlsoap.org/soap/envelope/\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\"> 

 <SOAP:Header>

  <header xmlns=\"xmlapi_1.0\">

   <security>

    <user>SAM User</user>

    <password hashed=\"true\">kjhds7843jwe9js9324jhkhı6wejs89ks9</password>

   </security>

   <requestID>\"MyRequest\"</requestID>

  </header>

 </SOAP:Header> 

 <SOAP:Body>

    #Gönderilecek XML bu bölüme yazılacak
 </SOAP:Body>



 </SOAP:Envelope>";



my $xrequest = HTTP::Request->new(POST => "http://SAM-IP-Address:8080/xmlapi/invoke");

$xrequest->content($msg_to_send);

$xrequest->content_type("text/xml; charset=utf-8");

my $xresponse = $usrAgent->request($xrequest);

my $Xml = $xresponse->decoded_content;

print "$Xml";

Teşekkürler,
Cem Selmanoğulları

Nokia (Alcatel-Lucent) 7750 SR cihazına SSH ile bağlanıp komut gönderen perl scripti

Merhaba,

Nokia 7750 Service Router (SR) cihazına bağnarak komut gönderen bir script paylaşmak istiyorum.
Cisco cihazlardan biraz farklı olarak direkt kanal üzerinden komut göndermek yerine kanal üzerinden bir terminal edinilerek shell üzerinden yazmak sureti ile komutumuzu gönderiyor ve çıktısını alıyoruz.

#!/usr/bin/perl



use Net::SSH2;

use warnings;

use strict;

no warnings 'uninitialized';

my $host = "A.B.C.D";

my $user = "ssh-username";

my $password = "password";



my $komut = "show router interface\r";



#SSH baglantisi saglanir



my $ssh = Net::SSH2->new();

        if(!$ssh->connect($host)){

                print("SSH Baglantisinda Problem - $@ \n");

                exit(1);

        } else {print("\nSSH Baglantisi Yapiliyor...\n");}

  

sleep(1);

  

        if(!$ssh->auth_password($user,$password)){

                print("Kullanici-Sifre Problemi - $@");

                exit(1);

        } else {print("\nBaglandi...\n\n");}



sleep(1);

print("Gonderilen Komut : ".$komut."\n\n");

  

#Kanal acilarak komut gonderilir

my $channel = $ssh->channel();



$channel->blocking(0);

$channel->pty(1);      #set tty

$channel->shell();    



sleep (1);

$channel->write("environment no more\r".$komut);

sleep (1);  



my $output;

$channel->read($output,99999999);

print "Komut Ciktisi :\n $output\n";

Teşekkürler,
Cem Selmanoğulları