source: axis/splitkey.pl @ 55de6a9

axis_examplecompt_changesinfo-ops
Last change on this file since 55de6a9 was 55de6a9, checked in by Ted Faber <faber@…>, 13 years ago

Example of using java to talk to fedd

  • Property mode set to 100644
File size: 417 bytes
Line 
1#!/usr/bin/perl
2
3use strict;
4use IO::File;
5
6my $cert = new IO::File(">./cert.pem") || die "Can't open cert.pem: $!\n";
7my $key = new IO::File(">./key.pem") || die "Can't open key.pem: $!\n";
8
9while (<>) {
10    (/-----BEGIN.*PRIVATE KEY/ .. /-----END.*PRIVATE KEY/) && do {
11        print $key $_;
12    };
13    (/-----BEGIN CERTIFICATE/ .. /-----END CERTIFICATE/) && do {
14        print $cert $_;
15    };
16}
17$key->close();
18$cert->close();
Note: See TracBrowser for help on using the repository browser.