diff options
author | nectar <nectar@FreeBSD.org> | 2002-07-30 12:51:09 +0000 |
---|---|---|
committer | nectar <nectar@FreeBSD.org> | 2002-07-30 12:51:09 +0000 |
commit | 0518ae86745708bb5d6711b4bf7a4c3907b64029 (patch) | |
tree | 508ac45661abd92f3224380bcb1f80ba1730e3bd /crypto/openssl/apps/tkca | |
parent | 8b62a95bfc62aca74fc680ca8676348f39a51bd6 (diff) | |
download | FreeBSD-src-0518ae86745708bb5d6711b4bf7a4c3907b64029.zip FreeBSD-src-0518ae86745708bb5d6711b4bf7a4c3907b64029.tar.gz |
Remove many obsolete files. The majority of these are simply no
longer included as part of the OpenSSL distribution. However, a few
we just don't need and are explicitly excluded in FREEBSD-Xlist.
Diffstat (limited to 'crypto/openssl/apps/tkca')
-rw-r--r-- | crypto/openssl/apps/tkca | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/crypto/openssl/apps/tkca b/crypto/openssl/apps/tkca deleted file mode 100644 index bdaf216..0000000 --- a/crypto/openssl/apps/tkca +++ /dev/null @@ -1,66 +0,0 @@ -#!/usr/local/bin/perl5 -# -# This is only something I'm playing with, it does not work :-) -# - -use Tk; - -my $main=MainWindow->new(); -my $f=$main->Frame(-relief => "ridge", -borderwidth => 2); -$f->pack(-fill => 'x'); - -my $ff=$f->Frame; -$ff->pack(-fill => 'x'); -my $l=$ff->Label(-text => "TkCA - SSLeay", - -relief => "ridge", -borderwidth => 2); -$l->pack(-fill => 'x', -ipady => 5); - -my $l=$ff->Button(-text => "Certify"); -$l->pack(-fill => 'x', -ipady => 5); - -my $l=$ff->Button(-text => "Review"); -$l->pack(-fill => 'x', -ipady => 5); - -my $l=$ff->Button(-text => "Revoke"); -$l->pack(-fill => 'x', -ipady => 5); - -my $l=$ff->Button(-text => "Generate CRL"); -$l->pack(-fill => 'x', -ipady => 5); - -my($db)=&load_db("demoCA/index.txt"); - -MainLoop; - -sub load_db - { - my(%ret); - my($file)=@_; - my(*IN); - my(%db_serial,%db_name,@f,@db_s); - - $ret{'serial'}=\%db_serial; - $ret{'name'}=\%db_name; - - open(IN,"<$file") || die "unable to open $file:$!\n"; - while (<IN>) - { - chop; - s/([^\\])\t/\1\t\t/g; - my(@f)=split(/\t\t/); - die "wrong number of fields in $file, line $.\n" - if ($#f != 5); - - my(%f); - $f{'type'}=$f[0]; - $f{'exp'}=$f[1]; - $f{'rev'}=$f[2]; - $f{'serial'}=$f[3]; - $f{'file'}=$f[4]; - $f{'name'}=$f[5]; - die "serial number $f{'serial'} appears twice (line $.)\n" - if (defined($db{$f{'serial'}})) - $db_serial{$f{'serial'}}=\%f; - $db_name{$f{'name'}}.=$f{'serial'}." "; - } - return \%ret; - } |