# read XML template my $xml = XML::Twig->new->parse( \*DATA ); $xml->set_pretty_print('indented_a'); #Create a user agent object my $ua = LWP::UserAgent->new( ssl_opts=> { # SSL_verify_mode => SSL_VERIFY_NONE, verify_hostname => 0,} ); # apply updates my $uri = "https://hostname:9060/ers/config/networkdevice/"; my $header = [ Accept => 'application/vnd.com.cisco.ise.network.networkdevice.1.1+xml', Content_Type => 'application/vnd.com.cisco.ise.network.networkdevice.1.1+xml; charset=utf-8']; for (@updateIP){ my ($id,$name,$ip) = @$_; print "----- Updating $id, $name to $ip\n"; $xml->root->set_att('name', $name); $xml->get_xpath('//ipaddress',0)->set_text($ip); my $req = HTTP::Request->new('PUT', $uri.$id, $header, $xml->sprint); $req->authorization_basic("user", "user"); print $req->as_string; # testing #my $res = $ua->request($req); #if ($res->is_success) { # print $res->status_line, "\n"; #} else { # print $res->status_line, "\n"; #} print "-----\n" } __DATA__ 0.0.0.0