head	1.2;
access;
symbols
	perseant-exfatfs-base-20250801:1.2
	perseant-exfatfs-base-20240630:1.2
	perseant-exfatfs:1.2.0.46
	perseant-exfatfs-base:1.2
	cjep_sun2x:1.2.0.44
	cjep_sun2x-base:1.2
	cjep_staticlib_x-base1:1.2
	cjep_staticlib_x:1.2.0.42
	cjep_staticlib_x-base:1.2
	phil-wifi-20200421:1.2
	phil-wifi-20200411:1.2
	phil-wifi-20200406:1.2
	pgoyette-compat-merge-20190127:1.2
	pgoyette-compat-20190127:1.2
	pgoyette-compat-20190118:1.2
	pgoyette-compat-1226:1.2
	pgoyette-compat-1126:1.2
	pgoyette-compat-1020:1.2
	pgoyette-compat-0930:1.2
	pgoyette-compat-0906:1.2
	pgoyette-compat-0728:1.2
	pgoyette-compat-0625:1.2
	pgoyette-compat-0521:1.2
	pgoyette-compat-0502:1.2
	pgoyette-compat-0422:1.2
	pgoyette-compat-0415:1.2
	pgoyette-compat-0407:1.2
	pgoyette-compat-0330:1.2
	pgoyette-compat-0322:1.2
	pgoyette-compat-0315:1.2
	pgoyette-compat:1.2.0.40
	pgoyette-compat-base:1.2
	perseant-stdc-iso10646:1.2.0.38
	perseant-stdc-iso10646-base:1.2
	prg-localcount2-base3:1.2
	prg-localcount2-base2:1.2
	prg-localcount2-base1:1.2
	prg-localcount2:1.2.0.36
	prg-localcount2-base:1.2
	pgoyette-localcount-20170426:1.2
	bouyer-socketcan-base1:1.2
	pgoyette-localcount-20170320:1.2
	bouyer-socketcan:1.2.0.34
	bouyer-socketcan-base:1.2
	pgoyette-localcount-20170107:1.2
	pgoyette-localcount-20161104:1.2
	localcount-20160914:1.2
	pgoyette-localcount-20160806:1.2
	pgoyette-localcount-20160726:1.2
	pgoyette-localcount:1.2.0.32
	pgoyette-localcount-base:1.2
	netbsd-5-2-3-RELEASE:1.2
	netbsd-5-1-5-RELEASE:1.2
	yamt-pagecache-base9:1.2
	yamt-pagecache-tag8:1.2
	tls-earlyentropy:1.2.0.28
	tls-earlyentropy-base:1.2
	riastradh-xf86-video-intel-2-7-1-pre-2-21-15:1.2
	riastradh-drm2-base3:1.2
	netbsd-5-2-2-RELEASE:1.2
	netbsd-5-1-4-RELEASE:1.2
	netbsd-5-2-1-RELEASE:1.2
	netbsd-5-1-3-RELEASE:1.2
	agc-symver:1.2.0.30
	agc-symver-base:1.2
	tls-maxphys-base:1.2
	yamt-pagecache-base8:1.2
	netbsd-5-2:1.2.0.26
	yamt-pagecache-base7:1.2
	netbsd-5-2-RELEASE:1.2
	netbsd-5-2-RC1:1.2
	yamt-pagecache-base6:1.2
	yamt-pagecache-base5:1.2
	yamt-pagecache-base4:1.2
	netbsd-5-1-2-RELEASE:1.2
	netbsd-5-1-1-RELEASE:1.2
	yamt-pagecache-base3:1.2
	yamt-pagecache-base2:1.2
	yamt-pagecache:1.2.0.24
	yamt-pagecache-base:1.2
	bouyer-quota2-nbase:1.2
	bouyer-quota2:1.2.0.22
	bouyer-quota2-base:1.2
	matt-nb5-pq3:1.2.0.20
	matt-nb5-pq3-base:1.2
	netbsd-5-1:1.2.0.18
	netbsd-5-1-RELEASE:1.2
	netbsd-5-1-RC4:1.2
	netbsd-5-1-RC3:1.2
	netbsd-5-1-RC2:1.2
	netbsd-5-1-RC1:1.2
	netbsd-5-0-2-RELEASE:1.2
	netbsd-5-0-1-RELEASE:1.2
	jym-xensuspend-nbase:1.2
	netbsd-5-0:1.2.0.16
	netbsd-5-0-RELEASE:1.2
	netbsd-5-0-RC4:1.2
	netbsd-5-0-RC3:1.2
	netbsd-5-0-RC2:1.2
	jym-xensuspend:1.2.0.14
	jym-xensuspend-base:1.2
	netbsd-5-0-RC1:1.2
	netbsd-5:1.2.0.12
	netbsd-5-base:1.2
	mjf-devfs2:1.2.0.10
	mjf-devfs2-base:1.2
	yamt-pf42-base4:1.2
	yamt-pf42-base3:1.2
	hpcarm-cleanup-nbase:1.2
	yamt-pf42-base2:1.2
	yamt-pf42:1.2.0.8
	yamt-pf42-base:1.2
	keiichi-mipv6:1.2.0.6
	keiichi-mipv6-base:1.2
	cube-autoconf:1.2.0.4
	cube-autoconf-base:1.2
	hpcarm-cleanup:1.2.0.2
	hpcarm-cleanup-base:1.2
	netbsd-1-5-PATCH003:1.1.1.1
	netbsd-1-5-PATCH002:1.1.1.1
	netbsd-1-5-PATCH001:1.1.1.1
	netbsd-1-5-RELEASE:1.1.1.1
	netbsd-1-5-BETA2:1.1.1.1
	netbsd-1-5-BETA:1.1.1.1
	netbsd-1-5-ALPHA2:1.1.1.1
	mrg-post-merge-openssl_0_9_5a:1.1.1.1
	minoura-xpg4dl:1.1.1.1.0.4
	minoura-xpg4dl-base:1.1.1.1
	netbsd-1-5:1.1.1.1.0.2
	netbsd-1-5-base:1.1.1.1
	openssl_0_9_4-netbsd-cryptosrc-intl:1.1.1.1
	OPENSSL:1.1.1;
locks; strict;
comment	@# @;


1.2
date	2001.04.12.07.48.15;	author itojun;	state dead;
branches;
next	1.1;

1.1
date	2000.06.14.22.44.22;	author thorpej;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	2000.06.14.22.44.22;	author thorpej;	state Exp;
branches
	1.1.1.1.2.1
	1.1.1.1.4.1;
next	;

1.1.1.1.2.1
date	2002.08.29.16.43.29;	author he;	state dead;
branches;
next	;

1.1.1.1.4.1
date	2000.06.14.22.44.22;	author thorpej;	state dead;
branches;
next	1.1.1.1.4.2;

1.1.1.1.4.2
date	2000.06.14.22.44.23;	author thorpej;	state Exp;
branches;
next	;


desc
@@


1.2
log
@use openssl 0.9.6a.  shlib major # is bumped for libcrypto, libssl and
all kerberos libraries.
@
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
@Import OpenSSL 0.9.4 from netbsd-cryptosrc-intl.
@
text
@@


1.1.1.1.4.1
log
@file tkca was added on branch minoura-xpg4dl on 2000-06-14 22:44:23 +0000
@
text
@d1 66
@


1.1.1.1.4.2
log
@Import OpenSSL 0.9.4 from netbsd-cryptosrc-intl.
@
text
@a0 66
#!/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.1.1.2.1
log
@Pull up file removal (requested by itojun,he):
  Update OpenSSL to version 0.9.6g.  Includes major version bump for
  libcrypto and all the dependent libraries.
@
text
@@

