abac0-leakabac0-meicompt_changesgec13mei-idmei-rt0-nmei_rt0mei_rt2mei_rt2_fix_1meiyap-rt1meiyap1rt2tvf-new-xml
Last change
on this file since 43a5429 was
e96c107,
checked in by Mike Ryan <mikeryan@…>, 14 years ago
|
match example keystore
|
-
Property mode set to
100755
|
File size:
603 bytes
|
Line | |
---|
1 | #!/usr/bin/perl |
---|
2 | |
---|
3 | use strict; |
---|
4 | use ABAC; |
---|
5 | use Data::Dumper; |
---|
6 | $Data::Dumper::Indent = 1; |
---|
7 | |
---|
8 | my $keystore = shift || die "Usage: prover.pl <keystore>\n"; |
---|
9 | |
---|
10 | ABAC::libabac_init(); |
---|
11 | |
---|
12 | my $ctx = ABAC::Context->new; |
---|
13 | $ctx->load_directory($keystore); |
---|
14 | |
---|
15 | my ($success, $credentials) = $ctx->query( |
---|
16 | "06df985dc065fc69b508f6afa8dd127cd29ccc62.fed_create", |
---|
17 | "ef3584d91703acc4d9cb0f1f0950a31fc89e0b4c" |
---|
18 | ); |
---|
19 | |
---|
20 | if ($success) { |
---|
21 | print "Success\n"; |
---|
22 | } |
---|
23 | |
---|
24 | foreach my $credential (@$credentials) { |
---|
25 | printf "credential %s <- %s\n", |
---|
26 | $credential->head->string, |
---|
27 | $credential->tail->string; |
---|
28 | } |
---|
29 | |
---|
30 | ABAC::libabac_deinit(); |
---|
Note: See
TracBrowser
for help on using the repository browser.