head	1.2;
access;
symbols
	RELENG_4_11_0_RELEASE:1.1.1.1.2.1
	RELENG_4_11:1.1.1.1.2.1.0.10
	RELENG_4_11_BP:1.1.1.1.2.1
	RELENG_4_10_0_RELEASE:1.1.1.1.2.1
	RELENG_4_10:1.1.1.1.2.1.0.8
	RELENG_4_10_BP:1.1.1.1.2.1
	RELENG_4_9_0_RELEASE:1.1.1.1.2.1
	RELENG_4_9:1.1.1.1.2.1.0.6
	RELENG_4_9_BP:1.1.1.1.2.1
	RELENG_4_8_0_RELEASE:1.1.1.1.2.1
	RELENG_4_8:1.1.1.1.2.1.0.4
	RELENG_4_8_BP:1.1.1.1.2.1
	RELENG_4_7_0_RELEASE:1.1.1.1.2.1
	RELENG_4_7:1.1.1.1.2.1.0.2
	RELENG_4_7_BP:1.1.1.1.2.1
	RELENG_4_6_2_RELEASE:1.1.1.1.10.1
	RELENG_4_6_1_RELEASE:1.1.1.1
	RELENG_4_6_0_RELEASE:1.1.1.1
	RELENG_4_6:1.1.1.1.0.10
	RELENG_4_6_BP:1.1.1.1
	RELENG_4_5_0_RELEASE:1.1.1.1
	RELENG_4_5:1.1.1.1.0.8
	RELENG_4_5_BP:1.1.1.1
	RELENG_4_4_0_RELEASE:1.1.1.1
	RELENG_4_4:1.1.1.1.0.6
	RELENG_4_4_BP:1.1.1.1
	RELENG_4_3_0_RELEASE:1.1.1.1
	RELENG_4_3:1.1.1.1.0.4
	RELENG_4_3_BP:1.1.1.1
	RELENG_4_2_0_RELEASE:1.1.1.1
	RELENG_4_1_1_RELEASE:1.1.1.1
	PRE_SMPNG:1.1.1.1
	RELENG_4_1_0_RELEASE:1.1.1.1
	RELENG_4_0_0_RELEASE:1.1.1.1
	RELENG_4:1.1.1.1.0.2
	RELENG_4_BP:1.1.1.1
	v0_9_4:1.1.1.1
	OPENSSL:1.1.1;
locks; strict;
comment	@# @;


1.2
date	2002.07.30.12.50.53;	author nectar;	state dead;
branches;
next	1.1;

1.1
date	2000.01.10.06.21.20;	author kris;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	2000.01.10.06.21.20;	author kris;	state Exp;
branches
	1.1.1.1.2.1
	1.1.1.1.6.1
	1.1.1.1.8.1
	1.1.1.1.10.1;
next	1.1.1.2;

1.1.1.2
date	2005.02.25.05.25.26;	author nectar;	state dead;
branches;
next	;

1.1.1.1.2.1
date	2002.07.30.22.05.00;	author nectar;	state dead;
branches;
next	;

1.1.1.1.6.1
date	2002.07.31.16.40.33;	author nectar;	state dead;
branches;
next	;

1.1.1.1.8.1
date	2002.07.31.14.04.50;	author nectar;	state dead;
branches;
next	;

1.1.1.1.10.1
date	2002.07.31.02.54.40;	author nectar;	state dead;
branches;
next	;


desc
@@


1.2
log
@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.
@
text
@#!/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;
	}
@


1.1
log
@Initial revision
@
text
@@


1.1.1.1
log
@Initial import of OpenSSL 0.9.4, sans IDEA and RSA code for patent
infringement reasons.
@
text
@@


1.1.1.2
log
@Clean up the OpenSSL vendor branch by removing files that are not
part of recent releases.
@
text
@@


1.1.1.1.6.1
log
@MFC: OpenSSL 0.9.6e
@
text
@@


1.1.1.1.8.1
log
@MFC: OpenSSL 0.9.6e
@
text
@@


1.1.1.1.10.1
log
@MFC: OpenSSL 0.9.6e
@
text
@@


1.1.1.1.2.1
log
@MFC: OpenSSL 0.9.6e
@
text
@@

