- 论坛徽章:
- 0
|
这两天在研究cacti软件，因为它本身没有提供用脚本批量增加设备的接口，所以我在cacti的坛子里边翻出了有人用WWW::Mechanize这个模块，自己就用了一下，还真不错。
对付一些web申请，挺好的。以极快的速度增加了上百个监控项。挺爽的也
#!/usr/bin/perl
use strict;
use WWW::Mechanize;
use Data::Dumper;
my $CACTIURL = "http://172.23.16.20/cacti/";
my $ADMINPASSWORD = "test";
#打开浏览器
my $mech = WWW::Mechanize->new();
#输入网址
$mech->get($CACTIURL);
#输入用户名密码
$mech->set_visible("admin", $ADMINPASSWORD);
#点击登陆
$mech->click;
#点击Devices连接，查看hosts列表
$mech->follow_link(text => "Devices");
#找到所有包含host.php?action=edit&id=的连接
my @links = $mech->find_all_links(url_regex => qr /host.php\?action=edit&id=/);
#依次打开每个连接的目的页面作处理
foreach my $i (@links) {
#打开连接
$mech->get($i);
#再链接到Create Graphs for this Host指向的页面
$mech->follow_link(text => "Create Graphs for this Host");
#选中页面内的第二个form
$mech->form_number(2);
#得到第二个form所有的域
my @inputs = $mech->current_form()->inputs();
my $submitbutton;
#依次处理field类型为checkbox的，并且checkbox的name含有特定字串名字的每个域
foreach my $input (@inputs) {
if ($input->type eq "checkbox" && $input->name =~ /[sc]g_48/) {
#给符合条件的checkbox打勾
$mech->tick($input->name, "on");
}
#找到最后一格submit的field，是一张图片的
$submitbutton = $input if ($input->type eq "image"); # get the last one
}
#点击那张图片，提交form，进入下一个页面
$mech->click_button(input => $submitbutton);
#选中第一个form
$mech->form_number(1);
#得到form所有的域
@inputs = $mech->current_form()->inputs();
foreach my $input (@inputs) {
print $input->name.': '.$input->type."\n";
if ($input->type eq "text") {
print "in text:".$input->name.': '.$input->type."\n";
#输入"Monitor"字符串
$mech->field($input->name, "MONITOR");
}
$submitbutton = $input if ($input->type eq "image"); # get the last one
}
#提交form
$mech->click_button(input => $submitbutton);
# final create
}
|
[ 本帖最后由 flw 于 2007-9-17 13:35 编辑 ] |
|
免费注册
发表于 2007-09-14 16:43
