...
In summary, the various URLs that you can use with curl:
Change LDAP bind user password:
Code Block |
---|
|
$ curl "127.0.0.1:5555/?_object=MONyogAPI&_action=changeldapbindpassword&_user=<sqldm user name>&_password=<sqldm user password>&_currentpassword=<current ldap user password>&_newpassword=<new ldap user password>" |
Change user password:
Code Block |
---|
|
$ curl "127.0.0.1:5555/?_object=MONyogAPI&_action=changepassword&_user=<sqldm username>&_password=<currentpassword>&_newpassword=<newpassword>" |
Starts data collection for <server name>
...
Code Block |
---|
|
#! /usr/bin/perl
use LWP 5.64;
# USAGE: MONyog.pl <hostname>:<port> <user> <password> <connection_name/ID> <action> <value>
# $ARGV[0] = hostname:port of server running Monyog
# $ARGV[1] = Monyog user
# $ARGV[2] = Monyog password
# $ARGV[3] = connection name
# $ARGV[4] = action
# $ARGV[5] = value
my $numArgs = $#ARGV + 1;
if($numArgs < 5) {
die 'USAGE: MONyog.pl <hostname>:<port> <user> <password> <connection_name/ID> <action>';
}
my $browser = LWP::UserAgent->new;
# The request URL
my $url = URI->new('http://' . $ARGV[0] . '/');
# The form data pairs:
$url->query_form(
'_object' => 'MONyogAPI',
'_action' => $ARGV[4],
'_user' => $ARGV[1]
'_password' => $ARGV[2],
'_server' => $ARGV[3],
'_value' => $ARGV[5]
);
# The response object
$response = $browser->post($url);
if (!$response->is_success) {# Error connecting to MONyog
die $response->status_line . "\n";
} else {
# Successfully connected to MONyog; print MONyog's response
print $response->content . "\n";
} |