Hi.
The problem is in parseDataType function in DB.pm file. If its code is changing for one
from some days ago the error disappeared.
I use this:
sub parseDataType {
my $self = shift;
my $dataType = shift;
my ( $k1, $k2 );
( $k1, $k2 ) = ( $dataType =~
/^([^\_]+)*\_*(CA_CERTIFICATE|CERTIFICATE|CRL|REQUEST|RENEW|CRR)/);
if( $k1 eq "" ) {
$k1 = "VALID" if ( $k2 =~ /CERTIFICATE|CRL/ );
$k1 = "PENDING" if ( $k2 =~ /REQUEST|RENEW|CRR/ );
}
return ( $k2, $k1 );
}
I hope that it helps you.
_____________________________________________________________________
No olvides nada. Recuerda los cumplea�os, tus citas, tus cenas rom�nticas y
todo lo que quieras usando la Agenda personal de Wanadoo.es, desde cualquier
lugar conectado a Internet. Vis�tala en http://www.wanadoo.es/agenda
_______________________________________________
Openca-Users mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/openca-users
