22 583 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
#
# Add a geni_cas table, for use by the CH only.
#
use strict;
use GeniDB;

sub DoUpdate($$$)
{
    my ($dbhandle, $dbname, $version) = @_;

    DBSetDefault($dbhandle);

    if (!DBTableExists("geni_cas")) {
	DBQueryFatal("CREATE TABLE `geni_cas` ( ".
		     " `hash` varchar(40) NOT NULL default '', ".
		     " `created` datetime default NULL, ".
		     " `cert` text, ".
		     " `DN` text, ".
		     " PRIMARY KEY  (`hash`), ".
		     " INDEX `DN` (`DN`(255)) ".
		     ") ENGINE=MyISAM DEFAULT CHARSET=latin1");
    }
    return 0;
}
1;

# Local Variables:
# mode:perl
# End: