]>
git.defcon.no Git - hermes/blob - guc-clients/sippermissions
6 #TODO: Add support for assigning phone number
7 #TODO: Add support for overriding default domain ...
11 use Net
::LDAP
::Control
::Paged
;
12 use Net
::LDAP
::Constant
qw( LDAP_CONTROL_PAGED );
22 my $permission = undef;
23 my $configfile = undef;
24 my ($g_ua, $session, $api_key, $auth_key, $data, $domain);
26 my $config = AppConfig
->new({ CREATE
=> 1 });
28 $config->define("api_url=s");
29 $config->define("api_keyfile=s");
31 $config->define("default_domain=s");
32 $config->default_domain("hig.no");
34 $config->define("numbers_local_prefix=s");
35 $config->define("numbers_local_series=s");
36 $config->define("numbers_countrycode=s");
39 "/usr/local/etc/hermes/hermes_config",
40 "/usr/local/etc/hermes/config",
42 $ENV{"HOME"} . "/.hermes/config",
43 $ENV{"HOME"} . "/.hermes_config",
44 ) { $configfile = $_ if ( -f
$_ ); }
48 "configfile=s" => \
$configfile,
49 "username=s" => \
$username,
50 "permission=s" => \
$permission,
56 (( $configfile ) && ( not -f
$configfile ))
62 $config->file( $configfile );
64 if ( ( not $config->api_url ) ||
65 ( not $config->api_keyfile ) ||
66 ( $config->api_keyfile && not -f
$config->api_keyfile )
74 Verify that the following options are set:
75 --username=s|--user|-u
76 --permission=s|-p (use to set, leave to show)
78 Verify the contents of the configuration file.
79 Verify that the key-file exists.
83 open KEY, "<" . $config->api_keyfile;
84 chomp( $api_key = <KEY> );
87 if ( not $username =~ m/\w+/ )
88 { print "Illegal username\n"; exit; }
90 $g_ua = LWP::UserAgent->new;
91 $g_ua->cookie_jar({}); # In-memory jar, look at HTTP::Cookies for persistant
95 # First: fetch a supported domain from the API...
96 $data = exec_apinode("domain/list", undef);
97 if ( $data->{'response'} eq 'ok' )
99 $domain = $data->{'list'}[0];
103 printf("Unable to get domain name. Aborting\n");
108 if ( $username =~ /@/ )
110 ( $username, $domain ) = split /@/, $username;
113 $data = exec_apinode("user/available", { 'username' => $username, 'domain' => $domain });
114 if ( $data->{'response'} eq 'ok' )
116 printf("Username is not registered.\n");
121 if ( not $data->{'cause'} eq 'exists' )
123 printf("Username lookup failed, cause: %s.\n", $data->{'cause'});
129 if ( not $permission )
133 $data = exec_apinode("permissions/get", { 'username' => $username, 'domain' => $domain });
134 if ( $data->{'response'} eq 'ok' )
136 printf("Current permission number is %d\n", $data->{'permission'});
142 printf("Failed lookup. cause: %s\n", $data->{'cause'});
149 if ( not $permission =~ m/^\d+$/ )
151 printf("Provided permission not a number.\n");
155 if ( ($permission < 1) || ( $permission > 256 ) )
157 printf("Provided permission is outside valid range.\n");
163 $data = exec_apinode("permissions/set", { 'username' => $username, 'domain' => $domain, 'permission' => $permission });
164 if ( $data->{'response'} eq 'ok' )
166 printf("Set permission to: %d\n", $data->{'permission'});
172 printf("Failed setting permission cause: %s\n", $data->{'cause'});
179 ################################################################################################
185 my ( $response, $data );
187 $session = "" if not defined $session;
188 $auth_key = "" if not defined $auth_key;
189 my $url = $config->api_url . "/" . $node;
191 $param->{'session'} = $session;
192 $param->{'auth_key'} = $auth_key;
194 $response = $g_ua->post( $url, $param );
195 if ( $response->is_success )
197 if ( $response->content =~ m/\s*{/ )
199 $data = decode_json( $response->content);
203 $data = $response->content;
212 my $response = $g_ua->post( $config->api_url . "/auth/login",
213 [ "api_key" => $api_key ] );
215 my $data = decode_json( $response->content) if $response->is_success;
216 die("HTTP error") unless $response->is_success;
218 if ( $data->{'response'} eq "ok" )
220 $session = $data->{'session'};
221 $auth_key = $data->{'auth_key'};
225 print "Unable to log in to Hermes API\n";
228 undef $data; undef $response;
233 my $response = $g_ua->post( $config->api_url . "/auth/logout",
234 [ "session" => $session ] );
235 die("HTTP error") unless $response->is_success;
236 undef $session; undef $auth_key;