source: examples/example_scripts/perl/abac_keyid.pl @ ba6027a

mei_rt2mei_rt2_fix_1
Last change on this file since ba6027a was ba6027a, checked in by Mei <mei@…>, 12 years ago

1) modified code all around to add support for encrypted private key for

ID credential

2) add new abac_key_t structure (abac_key.c)
3) add new keycheck option to creddy
4) add 2 new test suites

  • Property mode set to 100755
File size: 313 bytes
Line 
1#!/usr/bin/perl
2
3use ABAC;
4
5my $filename = shift || die "Usage: abac_keyid.pl <cert.pem>\n";
6
7my $id;
8eval {
9    # will throw a RuntimeException if it can't load the cert
10    $id = ABAC::ID->new($filename);
11};
12if ($@) {
13    print "ERROR, Problem loading cert: $@";
14    exit;
15}
16
17print $id->id_keyid, "    OKAY\n";
Note: See TracBrowser for help on using the repository browser.