From 2f8ceba349fb5fe9df6598bc08961deaffa2a105 Mon Sep 17 00:00:00 2001 From: Jon Langseth Date: Wed, 13 Mar 2013 13:01:38 +0100 Subject: [PATCH] Updates: showsipuser tool to show a sip user, listphones to list registered phones, changed assignphone to allow removing of phones --- guc-clients/assignphone | 35 +++++-- guc-clients/listphones | 198 +++++++++++++++++++++++++++++++++++++ guc-clients/showsipuser | 211 ++++++++++++++++++++++++++++++++++++++++ 3 files changed, 438 insertions(+), 6 deletions(-) create mode 100755 guc-clients/listphones create mode 100755 guc-clients/showsipuser diff --git a/guc-clients/assignphone b/guc-clients/assignphone index 4b06f66..bd8a623 100755 --- a/guc-clients/assignphone +++ b/guc-clients/assignphone @@ -14,6 +14,7 @@ my $api_key; my $help; my $username; my $configfile = undef; +my $remove = 0; my $dryrun = 0; my ($g_ua, $session, $api_key, $auth_key, $data, $domain); my ($user, $sipuser, $mac); @@ -36,6 +37,7 @@ GetOptions( "macaddress=s" => \$mac, "username=s" => \$username, "configfile=s" => \$configfile, + "remove" => \$remove, "dryrun" => \$dryrun, ); @@ -67,6 +69,7 @@ Verify that the following options are set: --configfile=s|--config|-c --username=s|--user|-u --macaddress=s|--mac|-m + --remove|-r --dryrun|--dry|-d Verify the contents of the configuration file. @@ -116,21 +119,41 @@ if ( not $data->{'response'} eq 'ok' ) logout(); exit; } - +if ( $remove ) +{ + $data = exec_apinode("phone/get", { 'user' => $sipuser, 'mac' => $mac }); + if ( not $data->{'response'} eq 'ok' ) + { + printf("Unable to remove phone+user, lookup gave: '%s'\n", $data->{'cause'}); + logout(); + exit; + } +} if ( $dryrun ) { print("Dryrun specified. All OK so far, stopping before add.\n"); logout(); exit; } +if ( $remove ) +{ + $data = exec_apinode("phone/remove", { 'user' => $sipuser, 'mac' => $mac }); -$data = exec_apinode("phone/add", { 'user' => $sipuser, 'mac' => $mac }); + printf("Failed to remove phone+user, cause given: '%s'\n", $data->{'cause'}) + if ( not $data->{'response'} eq 'ok' ); -printf("Failed to add phone+user, cause given: '%s'\n", $data->{'cause'}) - if ( not $data->{'response'} eq 'ok' ); + printf("Removed assigned phone with mac '%s' from user '%s'\n", $mac, $sipuser) + if ( $data->{'response'} eq 'ok' ); +} +else +{ + $data = exec_apinode("phone/add", { 'user' => $sipuser, 'mac' => $mac }); -printf("Assigned phone with mac '%s' to user '%s'\n", $mac, $sipuser) - if ( $data->{'response'} eq 'ok' ); + printf("Failed to add phone+user, cause given: '%s'\n", $data->{'cause'}) + if ( not $data->{'response'} eq 'ok' ); + printf("Assigned phone with mac '%s' to user '%s'\n", $mac, $sipuser) + if ( $data->{'response'} eq 'ok' ); +} logout(); ################################################################################################ sub exec_apinode($$) diff --git a/guc-clients/listphones b/guc-clients/listphones new file mode 100755 index 0000000..281db1b --- /dev/null +++ b/guc-clients/listphones @@ -0,0 +1,198 @@ +#!/usr/bin/perl +use strict; + +use Data::Dumper; + +use Getopt::Long; +use Net::LDAP; +use Net::LDAP::Control::Paged; +use Net::LDAP::Constant qw( LDAP_CONTROL_PAGED ); +use LWP; +use JSON; +use AppConfig; + +my $api_key; + +my $help; +my $username; +my $configfile = undef; +my $remove = 0; +my $dryrun = 0; +my ($g_ua, $session, $api_key, $auth_key, $data, $domain); +my ($user, $sipuser, $mac); + +my $config = AppConfig->new({ CREATE => 1 }); + +$config->define("api_url=s"); +$config->define("api_keyfile=s"); + +foreach ( + "/usr/local/etc/hermes/hermes_config", + "/usr/local/etc/hermes/config", + "/etc/hermes/config", + $ENV{"HOME"} . "/.hermes/config", + $ENV{"HOME"} . "/.hermes_config", +) { $configfile = $_ if ( -f $_ ); } + +GetOptions( + "help" => \$help, + "macaddress=s" => \$mac, + "username=s" => \$username, + "configfile=s" => \$configfile, +); + +if ( + (( $configfile ) && ( not -f $configfile )) +) +{ + $help = 1; +} + +$config->file( $configfile ); + +if ( ( not $config->api_url ) || + ( not $config->api_keyfile ) || + ( $config->api_keyfile && not -f $config->api_keyfile ) ) +{ + $help = 1; +} + +if ( $help ) { +print <api_keyfile; +chomp( $api_key = ); +close KEY; + +if ( $mac ) +{ + # Do stuff to the MAC adress. + $mac =~ s/[:-]//g if ( $mac =~ m/((?:[0-9a-f]{2}[:-]){5}[0-9a-f]{2})/i); + $mac = lc $mac; + if ( not $mac =~ m/^[a-f0-9]{12}/ ) + { + printf("Malformed MAC adress.\n"); + exit; + } +} + +$g_ua = LWP::UserAgent->new; +$g_ua->cookie_jar({}); # In-memory jar, look at HTTP::Cookies for persistant + +login_apikey(); + +# First: fetch a supported domain from the API... +$data = exec_apinode("domain/list", undef); +if ( $data->{'response'} eq 'ok' ) +{ + $domain = $data->{'list'}[0]; +} +else +{ + printf("Unable to get domain name. Aborting\n"); + logout(); + exit; +} + +$data = exec_apinode("phone/list", undef ); +if ( not $data->{'response'} eq 'ok' ) +{ + printf("Failed to query list of phones. Aborting\n"); + logout(); + exit; +} + +my $t = $data->{'list'}; +my @phones = @$t; + +foreach my $p ( @phones ) +{ + $data = undef; + $data = exec_apinode("phone/get", { 'mac' => $p }); + if ( $data->{'response'} eq 'ok' ) + { + my $t = $data->{'list'}; + my @users = @$t; + foreach my $u ( @users ) + { + printf("%-24s%-24s\n", $p, $u); + } + } + else + { + printf("%-24s-24s\n", $p, "unassigned"); + } +} + +logout(); +################################################################################################ +sub exec_apinode($$) +{ + my $node = shift; + my $param = shift; + + my ( $response, $data ); + + $session = "" if not defined $session; + $auth_key = "" if not defined $auth_key; + my $url = $config->api_url . "/" . $node; + + $param->{'session'} = $session; + $param->{'auth_key'} = $auth_key; + + $response = $g_ua->post( $url, $param ); + if ( $response->is_success ) + { + if ( $response->content =~ m/\s*{/ ) + { + $data = decode_json( $response->content); + } + else + { + $data = $response->content; + } + + } + return $data; +} + +sub login_apikey +{ + my $response = $g_ua->post( $config->api_url . "/auth/login", + [ "api_key" => $api_key ] ); + + my $data = decode_json( $response->content) if $response->is_success; + die("HTTP error") unless $response->is_success; + + if ( $data->{'response'} eq "ok" ) + { + $session = $data->{'session'}; + $auth_key = $data->{'auth_key'}; + } + else + { + print "Unable to log in to Hermes API\n"; + exit; + } + undef $data; undef $response; +} + +sub logout +{ + my $response = $g_ua->post( $config->api_url . "/auth/logout", + [ "session" => $session ] ); + die("HTTP error") unless $response->is_success; + undef $session; undef $auth_key; +} diff --git a/guc-clients/showsipuser b/guc-clients/showsipuser new file mode 100755 index 0000000..1e432c2 --- /dev/null +++ b/guc-clients/showsipuser @@ -0,0 +1,211 @@ +#!/usr/bin/perl +use strict; + +#TODO: Add support for assigning phone number +#TODO: Add support for overriding default domain ... + +use Getopt::Long; +use Net::LDAP; +use Net::LDAP::Control::Paged; +use Net::LDAP::Constant qw( LDAP_CONTROL_PAGED ); +use LWP; +use JSON; +use AppConfig; +use Text::Iconv; + +use Data::Dumper; + +my $utf2iso = Text::Iconv->new("utf-8","latin1"); +my $api_key; + +my $help; +my $username; +my $configfile = undef; +my $dryrun = 0; +my ($g_ua, $session, $api_key, $auth_key, $data, $domain); +my ($user, $displayname, $phone, $mail, $sipuser, $linetext); + +my $config = AppConfig->new({ CREATE => 1 }); + +$config->define("api_url=s"); +$config->define("api_keyfile=s"); + +$config->define("default_domain=s"); +$config->default_domain("hig.no"); + +foreach ( + "/usr/local/etc/hermes/hermes_config", + "/usr/local/etc/hermes/config", + "/etc/hermes/config", + $ENV{"HOME"} . "/.hermes/config", + $ENV{"HOME"} . "/.hermes_config", +) { $configfile = $_ if ( -f $_ ); } + +GetOptions( + "help" => \$help, + "username=s" => \$username, + "configfile=s" => \$configfile, +); + +if ( + (not $username) || + (not $configfile) || + (( $configfile ) && ( not -f $configfile )) +) +{ + $help = 1; +} + +$config->file( $configfile ); + +if ( ( not $config->api_url ) || + ( not $config->api_keyfile ) || + ( not $config->default_domain ) || + ( $config->api_keyfile && not -f $config->api_keyfile ) +) +{ + $help = 1; +} + +if ( $help ) { +print <api_keyfile; +chomp( $api_key = ); +close KEY; + +$g_ua = LWP::UserAgent->new; +$g_ua->cookie_jar({}); # In-memory jar, look at HTTP::Cookies for persistant + +$username = $username . "@" . $config->default_domain if ( not $username =~ m/\w\@\w/ ); + +login_apikey(); + +$data = exec_apinode("user/get", { 'user' => $username }); +if ( not $data->{'response'} eq 'ok' ) +{ + printf("Unable to fetch user: %s\n", $data->{'cause'}); + exit; +} + +my $user = $data->{'user'}; + +printf("\n"); +printf("Subscriber....: %s\n", $username); +printf("Displayname...: %s\n", $user->{'displayname'}); +printf("E-mail........: %s\n", $user->{'email'}); +printf("\n"); +printf("Auth username.: %s\n", $user->{'authid'}); +printf("Auth password.: %s\n", $user->{'password'}); +printf("Domain........: %s\n", $user->{'domain'}); +printf("Registrar.....: %s\n", $user->{'registrar'}); +printf("Proxy.........: %s\n", $user->{'proxy'}); +printf("Permissions...: %s\n", $user->{'permittedcalls'}); +printf("Aliases:\n"); +my $alias_data = exec_apinode("alias/list", { 'destination' => $username }); +if ( $alias_data->{'response'} eq 'ok' ) +{ + #print Dumper($alias_data); + my $count = 0; + my $t = $alias_data->{'aliases'}; + foreach my $a ( sort {lc $a->{'alias'} cmp lc $b->{'alias'}} @$t ) + { + printf("\t\t%s\n", $a->{'alias'}); + $count++; + } + printf("\t\t None\n") if ( $count < 1 ); +} +else +{ + printf("\t\t None\n"); +} +printf("Phones:\n"); +my $phone_data = exec_apinode("phone/get", { 'user' => $username }); +if ( $phone_data->{'response'} eq 'ok' ) +{ + my $t = $phone_data->{'list'}; + my $count = 0; + foreach my $p ( @$t ) + { + printf("\t\t%s\n", $p ); + $count++; + } + printf("\t\t None\n") if ( $count < 1 ); +} +else +{ + printf("\t None\n"); +} + +printf("\n"); + +undef $data; + +logout(); +################################################################################################ +sub exec_apinode($$) +{ + my $node = shift; + my $param = shift; + + my ( $response, $data ); + + $session = "" if not defined $session; + $auth_key = "" if not defined $auth_key; + my $url = $config->api_url . "/" . $node; + + $param->{'session'} = $session; + $param->{'auth_key'} = $auth_key; + + $response = $g_ua->post( $url, $param ); + if ( $response->is_success ) + { + if ( $response->content =~ m/\s*{/ ) + { + $data = decode_json( $response->content); + } + else + { + $data = $response->content; + } + + } + return $data; +} + +sub login_apikey +{ + my $response = $g_ua->post( $config->api_url . "/auth/login", + [ "api_key" => $api_key ] ); + + my $data = decode_json( $response->content) if $response->is_success; + die("HTTP error") unless $response->is_success; + + if ( $data->{'response'} eq "ok" ) + { + $session = $data->{'session'}; + $auth_key = $data->{'auth_key'}; + } + else + { + print "Unable to log in to Hermes API\n"; + exit; + } + undef $data; undef $response; +} + +sub logout +{ + my $response = $g_ua->post( $config->api_url . "/auth/logout", + [ "session" => $session ] ); + die("HTTP error") unless $response->is_success; + undef $session; undef $auth_key; +} -- 2.39.2