assocdb_table => 'assocs',
random_source => '/dev/urandom',
associdlen => 128, # bits
+ param_name => 'cah_associd',
+ cookie_name => 'cah_associd', # make undef to disable cookie
+ param_get => sub { _c()->param($s_{param_name}) },
+ cookie_get => sub { $_s{cookie_name} ? _c()->param($s_{cookie_name}) : '' },
);
use DBI;
our $dbh;
-sub setup {
+sub new {
my ($k,$v);
while (($k,$v,@_) = @_) {
die "unknown setting $k" unless %_s{$k};
$username = $nusername;
$assoc = $nassoc;
}
+
+sub check () {
+ my $passocid = $_s{param_get}();
+ my $cassocid = $_s{cookie_get}();
+ if (