-
Notifications
You must be signed in to change notification settings - Fork 1
/
myclient.pl
21 lines (18 loc) · 696 Bytes
/
myclient.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl -w
# only used for testing server from the command line
use strict;
use utf8; # for hard-coded strings below
use Frontier::Client;
use Encode qw(encode);
#binmode STDOUT, ":utf8";
binmode STDOUT, ":bytes";
my $server_url = 'http:https://borel.slu.edu:8080/RPC2';
my $server = Frontier::Client->new(url => $server_url, debug => 1, );
# +00 is a hub (green), +11 is a word (red)
# my $query = 'comhlíonadh+11';
# my $query = 'dragan+11';
# my $query = 'zzz+11';
my $query = 'simplí+00';
eval { $server->call('getSubGraph', $server->string(encode("utf8",$query)), $server->int(1)); };
# eval { print $server->call('isNodePresent', $server->string('garbage+11'))->value; };
exit 0;