]>
git.ipfire.org Git - thirdparty/openssl.git/blob - apps/tkca
3 # This is only something I'm playing with, it does not work :-)
8 my $main=MainWindow
->new();
9 my $f=$main->Frame(-relief
=> "ridge", -borderwidth
=> 2);
10 $f->pack(-fill
=> 'x');
13 $ff->pack(-fill
=> 'x');
14 my $l=$ff->Label(-text
=> "TkCA - SSLeay",
15 -relief
=> "ridge", -borderwidth
=> 2);
16 $l->pack(-fill
=> 'x', -ipady
=> 5);
18 my $l=$ff->Button(-text
=> "Certify");
19 $l->pack(-fill
=> 'x', -ipady
=> 5);
21 my $l=$ff->Button(-text
=> "Review");
22 $l->pack(-fill
=> 'x', -ipady
=> 5);
24 my $l=$ff->Button(-text
=> "Revoke");
25 $l->pack(-fill
=> 'x', -ipady
=> 5);
27 my $l=$ff->Button(-text
=> "Generate CRL");
28 $l->pack(-fill
=> 'x', -ipady
=> 5);
30 my($db)=&load_db
("demoCA/index.txt");
39 my(%db_serial,%db_name,@f,@db_s);
41 $ret{'serial'}=\
%db_serial;
42 $ret{'name'}=\
%db_name;
44 open(IN
,"<$file") || die "unable to open $file:$!\n";
50 die "wrong number of fields in $file, line $.\n"
60 die "serial number $f{'serial'} appears twice (line $.)\n"
61 if (defined($db{$f{'serial'}}))
62 $db_serial{$f{'serial'}}=\
%f;
63 $db_name{$f{'name'}}.=$f{'serial'}." ";