У меня есть несколько файловых серверов NetApp, к которым я обращался через ssh
с парами открытого и закрытого ключей.
Я хотел бы расширить то, что я делаю - мы постоянно сталкиваемся с ограничениями, например, ssh
не выполняет команды (отключение перед выполнением), а форматирование вывода команд, которые мы выполняем, «читается человеком», что означает, что это раздражает машинный синтаксический анализ.
Поэтому я хотел бы запросить API и по разным причинам я хотел бы сделать это, используя готовые модули из CPAN, а не NetApp SDK.
Можно ли это сделать, и если да, то как?
(Я размышлял, подходит ли это лучше для Stack Overflow, но пришел к выводу, что это наверное более актуален для системного администратора, чем сценарии на Perl).
Основы довольно просты - вам нужно скопировать две вещи:
В CPAN есть различные модули, которые могут это сделать. мне нравиться LWP
и XML::Twig
.
DFM
или filer
и доступны различные запросы api. (Вам может потребоваться загрузить SDK с сайта: http://mysupport.netapp.com/NOW/download/software/nmsdk/5.3/) Это выглядит примерно так:
#!/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";
}