source: swig/perl/creddy_keyid.pl @ 9e51a80

abac0-leakabac0-meicompt_changesgec13mei-idmei-rt0-nmei_rt0mei_rt2mei_rt2_fix_1meiyap-rt1meiyap1rt2tvf-new-xml
Last change on this file since 9e51a80 was 9e51a80, checked in by Mike Ryan <mikeryan@…>, 14 years ago

sample perl/python code for libcreddy

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