@ISA = qw(Exporter);
@EXPORT = qw();
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
-
- @EXPORT_OK = qw(@default_db_setup_stmts);
}
our @EXPORT_OK;
'</address>');
}
-our @default_db_setup_stmts =
- ("CREATE TABLE $v->{S}{db_prefix}_assocs (".
- " assochash VARCHAR PRIMARY KEY,".
- " username VARCHAR NOT NULL,".
- " last INTEGER NOT NULL".
- ")"
- ,
- "CREATE INDEX $v->{S}{db_prefix}_assocs_timeout_index".
- " ON $v->{S}{db_prefix}_assocs".
- " (last)"
- );
-
#---------- licence and source code ----------
sub srcdump_dump ($$$) {
db_user => '',
db_password => '',
db_prefix => 'caf',
- db_setup_stmts => [@_default_db_setup_statements],
random_source => '/dev/urandom',
secretbits => 128, # bits
hash_algorithm => "SHA-256",
exists $verifier->{S}{$k};
$verifier->{S}{$k} = $v;
}
+ $verifier->{S}{db_setup_stmts} //=
+ ["CREATE TABLE $v->{S}{db_prefix}_assocs (".
+ " assochash VARCHAR PRIMARY KEY,".
+ " username VARCHAR NOT NULL,".
+ " last INTEGER NOT NULL".
+ ")"
+ ,
+ "CREATE INDEX $v->{S}{db_prefix}_assocs_timeout_index".
+ " ON $v->{S}{db_prefix}_assocs".
+ " (last)"
+ ];
bless $verifier, $class;
$verifier->_dbopen();
$verifier->_ch('srcdump_prepare');
}
$v->{Dbh} = $dbh;
- foreach my $stmt (@default_db_setup_stmts) {
+ foreach my $stmt (@{ $v->{S}{db_setup_stmts} }) {
$v->_db_setup_do($stmt);
}
return $dbh;