Шлюзы Digium G400 и G800 (E1 PRI)

<?
	$GATEWAY_IP = 'CHANGEME';
	$USERNAME = 'admin';
	$PASSWORD = 'admin';

	$ch = curl_init();

	$fields = array(
		'admin_uid'      => $USERNAME,
		'admin_password' => $PASSWORD
	);

	curl_setopt($ch, CURLOPT_URL, "https://$GATEWAY_IP/admin/main.html");
	curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);
	curl_setopt($ch, CURLOPT_POST, 1);
	curl_setopt($ch, CURLOPT_POSTFIELDS, $fields);
	curl_setopt($ch, CURLOPT_HEADER, false);
	curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
	curl_setopt($ch, CURLOPT_COOKIEFILE, '');
	$result = curl_exec($ch);

	if ($result === false) {
		$error = curl_error($ch);
		curl_close($ch);

		die("Login failed: $error");
	}

	if (preg_match("/Welcome,\s+$USERNAME/i", $result) == 0
		|| preg_match("/Log Out/i", $result) == 0) {
		curl_close($ch);
		die("Login Failed!");
	}

	$request = array(
		'request' => array(
			'method'     => 'gateway_list',
			'parameters' => array()
		)
	);

	$string = json_encode($request, JSON_FORCE_OBJECT);
	$fields = array(
		'request' => $string
	);

	curl_setopt($ch, CURLOPT_URL, "https://$GATEWAY_IP/json");
	curl_setopt($ch, CURLOPT_POST, 1);
	curl_setopt($ch, CURLOPT_POSTFIELDS, $fields);
	curl_setopt($ch, CURLOPT_HEADER, false);
	curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);

	$result = curl_exec($ch);

	if ($result === false) {
		$error = curl_error($ch);
		curl_close($ch);

		die("Request failed: $error");
	}

	curl_close($ch);

	$response = json_decode($result);
	$response_object = json_decode($response->response->result);
	print $response_object->gateway->model_name; print "n";
	print "Uptime "; print $response_object->gateway->uptime; print "n";
?>

#!/usr/bin/perl

use strict;
use HTTP::Cookies;
use LWP::UserAgent;
use Data::Dumper;
use JSON;

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
my $ua = new LWP::UserAgent;
# Sometimes both of these are required

my $cookies = new HTTP::Cookies();
$ua->cookie_jar($cookies);

$ua->ssl_opts({'verify_hostname' => 0});

my $GATEWAY_IP = 'CHANGEME';
my $USERNAME = 'admin';
my $PASSWORD = 'admin';

# log in
my $response = $ua->post("https://$GATEWAY_IP/admin/main.html", {
	admin_uid => $USERNAME,
	admin_password => $PASSWORD,
	act => 'login',
});

my $content = $response->content;
print $content;
# Response from login is HTML page, check that the main page init()
# function is called to be sure we have logged in and are looking at
# the main page.
if ($content !~ m/Welcome,s+$USERNAME/i || $content !~ m/Log Out/i) {
	print "Login Failed!n";
	exit 1;
}

# get software version
my $params = { 'request' => {
	'method' => 'gateway_list',
	'parameters' => { }
}};

$response = $ua->post("https://$GATEWAY_IP/json", {
	'request' => JSON->new->utf8->encode($params)
});

# Response from non-login requests are JSON and must be decoded twice
# as follows:
$content = JSON->new->utf8->decode($response->content);
my $res = JSON->new->utf8->decode($content->{'response'}{'result'});

# Uncomment this to see all available information
#print Data::Dumper::Dumper($res);
print sprintf("Model Number: %sn", $res->{'gateway'}{'model_no'});
print sprintf("Software Version: %sn", $res->{'gateway'}{'software_version'});
print sprintf("MAC Address: %sn", $res->{'gateway'}{'mac_address'});
print sprintf("Uptime: %sn", $res->{'gateway'}{'uptime'});

# shutdown
my $params = { 'request' => {
	'method' => 'system_reboot_save',
	'parameters' => {
		'action' => 'shutdown',
		'confirm' => 'yes'
	}
}};

# Change to actually reboot.
if (0) {
	print "Shutting down.n";
	$response = $ua->post("https://$GATEWAY_IP/json", {
		'request' => JSON->new->utf8->encode($params)
	});
} else {
	print "NOT ACTUALLY REBOOTING.n";
}

# Response from reboot/shutdown is unique in that the webserver cannot
# send us a response verifying the shutdown went as expected

# $content = JSON->new->utf8->decode($response->content);
# print Data::Dumper::Dumper($content);

import sys
import re
import mechanize
import cookielib
import urllib
import json
from pprint import pprint

def main():
    gateway_ip = 'CHANGEME'
    gateway_user = 'admin'
    gateway_pass = 'admin'
    data = {
        'admin_uid': gateway_user,
        'admin_password': gateway_pass,
        'act': 'login'
    }
    data_str = '&'.join(['%s=%s' % (k,v) for k,v in data.iteritems()])

    # Log in
    req = mechanize.Request("https://%s/admin/main.html" % gateway_ip, data_str)
    cj = cookielib.LWPCookieJar()
    cj.add_cookie_header(req)
    res = mechanize.urlopen(req)
    lines = res.read()

    # Response from login is an HTML page. Check that the main page's init()
    # function is called to be sure we have logged in and are looking at
    # the main page.
    if re.search("Welcome,s+%s" % gateway_user, lines) is None:
        print "Login Failed!"
        return 1

    # Request connection status
    data = {
        "request" : {
            "method": "connection_status.list",
        }
    }

    # Something (mechanize?) doesn't like JSON with spaces in it.
    data_str = json.dumps(data, separators=(',',':'))

    req = mechanize.Request("https://%s/json" % gateway_ip, data_str)
    res = mechanize.urlopen(req)

    lines = res.read()
    response = json.loads(lines)
    result = json.loads(response['response']['result'])

    # check result
    for interface in result['connection_status']['t1_e1_interfaces']:
        if True or interface['status_desc'] != 'Up, Active':
            print "%s is down (status '%s') on %s!" % (
                interface['name'], interface['status_desc'], gateway_ip
            )
            # Send an email, postcard, or pidgeon to the sysadmin

sys.exit(main() or 0)