Назад | Перейти на главную страницу

Как я могу запросить NetAPP ONTAP API без использования SDK?

У меня есть несколько файловых серверов NetApp, к которым я обращался через ssh с парами открытого и закрытого ключей.

Я хотел бы расширить то, что я делаю - мы постоянно сталкиваемся с ограничениями, например, ssh не выполняет команды (отключение перед выполнением), а форматирование вывода команд, которые мы выполняем, «читается человеком», что означает, что это раздражает машинный синтаксический анализ.

Поэтому я хотел бы запросить API и по разным причинам я хотел бы сделать это, используя готовые модули из CPAN, а не NetApp SDK.

Можно ли это сделать, и если да, то как?

(Я размышлял, подходит ли это лучше для Stack Overflow, но пришел к выводу, что это наверное более актуален для системного администратора, чем сценарии на Perl).

Основы довольно просты - вам нужно скопировать две вещи:

  • XML
  • http (s)

В CPAN есть различные модули, которые могут это сделать. мне нравиться LWP и XML::Twig.

  • Сначала вам нужно посмотреть, к какому API вам нужно получить доступ. Обычные варианты будут DFM или filer и доступны различные запросы api. (Вам может потребоваться загрузить SDK с сайта: http://mysupport.netapp.com/NOW/download/software/nmsdk/5.3/)
  • Соберите некоторый XML как запрос.
  • Отправить заявку
  • Расшифруйте ответ (XML).

Это выглядит примерно так:

#!/usr/local/bin/perl

use strict;
use warnings;

use XML::Twig;
use LWP::UserAgent;

my $filer     = 'filername';
my $vfiler    = 'vfilername';
my $user      = 'api-user';
my $pass      = 'api-pass';
my $api_call  = 'volume-list-info';
my %api_param = ( volume => 'vfiler_vol0' );

my $API = '/servlets/netapp.servlets.admin.XMLrequest_filer';
my $url = "https://$filer/$API";

my $xml_request = XML::Twig->new();
$xml_request->set_root(
    XML::Twig::Elt->new(
        'netapp',
        {   version => '1.7',
            vfiler  => $vfiler,
            xmlns   => 'http://www.netapp.com/filer/admin'
        },
    )
);
my $req = $xml_request->root->insert_new_elt($api_call);

foreach my $key ( keys %api_param ) {
    $req->insert_new_elt( $key, $api_param{$key} );
}

$xml_request->set_doctype('netapp SYSTEM "file:/etc/netapp_filer.dtd"');
$xml_request->set_xml_version('1.0');
$xml_request->set_encoding('utf-8');


my $agent = LWP::UserAgent->new(
    ssl_opts => {
        verify_hostname => 0,
        SSL_version     => 'SSLv3'
    }
);

my $request = HTTP::Request->new( POST => $url );
$request->content( $xml_request->sprint );
$request->authorization_basic( $user, $pass );

my $results = $agent->request($request);
if ( $results->is_success ) {

    #do nothing yet
}
else {
    print "Request error:", $results->status_line;
    die;
}
my $results_twig = XML::Twig->new( pretty_print => 'indented' );
$results_twig->parse( $results->content );

#dump the whole thing
$results_twig->print;

print some values selectively. 
foreach my $vol ( $results_twig -> root -> children('volume-info') ) {
    print $vol -> first_child_text('name'), " "; 
    print $vol -> first_child_text('state'),"\n";
}