NetApp SDK Perl 小测试

最近在看NetApp的SDK，想做Quota快满时发E-mail给NetApp管理员的这个功能。当然，这个功能只能在目前的autosupport里有体现，智能点的就需要自己来了。本人是Perl初哥，以下代码不是最佳的，只做参考而已。

环境：

NetApp SDK 4.0 / OnTap 7.3.3 /Perl 5.8

大概的流程

1. 可以使用SDK里相关的API可以提取 Quota信息，导出的信息是XML格式。

Example：

perl apitest.pl? <filer> <username/passwd> quota-report volume <volume>

2. 使用Perl读取XML文件在此我们用了 XML::Simple 模块来读取XML

Example:

use XML::Simple;
$xml = XMLin( 'quotafile.xml',ForceArray =>1);

3. 我们需要的tree，disk-limit,disk-used 这三部分信息。打印下看看

Example:

@quota = @{$xml->{quotas}->[0]->{quota}};

?

$quotal = @quota;

?

for ($i=0; $i<=$quotal-1; $i++){

?

?? ?$qtree = $xml->{quotas}->[0]->{quota}->[$i]->{'tree'}->[0];

?

?? ?$qlimit = $xml->{quotas}->[0]->{quota}->[$i]->{'disk-limit'}->[0];

?

?? ?$qused = $xml->{quotas}->[0]->{quota}->[$i]->{'disk-used'}->[0];

?

?? ?if ($qused ne "0" ) {

?

?? ??? ?print $qtree,"n",$qlimit,$qused,"n" ;

?

?? ?}

?

}

4. 比较disk-used/disk-limit的比例，打印出大于 0.8的来看看，perl很智能，数值字符貌似可以混着来。

Exmaple:

@quota = @{$xml->{quotas}->[0]->{quota}};
$quotal = @quota;
for ($i=0; $i<=$quotal-1; $i++){
??? $qtree = $xml->{quotas}->[0]->{quota}->[$i]->{'tree'}->[0];
??? $qlimit = $xml->{quotas}->[0]->{quota}->[$i]->{'disk-limit'}->[0];
??? $qused = $xml->{quotas}->[0]->{quota}->[$i]->{'disk-used'}->[0];
??? if ($qused ne "0" ) {
??? ??? if ($qused/$qlimit >= "0.8"){
??? ??? ??? print $qtree,"n" ;
??? ??? }
??? }
}
?

5. 写个E-mail的sub,可以在判定条件成立时发邮件出去

Example:

use Net::SMTP;
sub send_mail {
??????? $emailbody= "Dear user,the disk quota of <QTree name> used ratio high than 80%,please check";
??????? $smtp = Net::SMTP->new("$mailserver");
??????? $smtp->mail("$fromname");
??????? $smtp->to($User);
??????? $smtp->bcc($bbcname);
??????? $smtp->data();
??????? $smtp->datasend("Subject: Disk Space almost full,Please checkn");
??????? $smtp->datasend("n");
??????? $smtp->datasend("$emailbody n");
??????? $smtp->dataend();
??????? $smtp->quit;
}

5条写完，基本就是这样了。 因为quota里看不到具体的用户，如果要发e-mail给最终用户则还要再进一步。等我有空再更新了。