sub setup {
my $self=shift;
$self->start_mode('query_text');
$self->mode_param('rm');
$self->run_modes(
'query_text' => 'text_query',
# 'query_location' => 'text_query',
# 'query_GO' => 'text_query',
# 'query_exprs' => 'text_query',
'return_results' => 'return_results',
'do_heatmap' => 'do_heatmap',
'mode4' => 'return_graphical_results',
);
$self->param('dbh' => DBI->connect($dsnnlt,
$nltuser,
$nltpass
))
or croak "Database connection not made: $DBI::errstr";
my $sid = $self->query->cookie("CGISESSID") || undef;
$self->session_config(
CGI_SESSION_OPTIONS => ['driver:MySQL',$sid,
{Handle=>$self->param('dbh')}],
COOKIE_PARAMS => {
-domain => 'nih.gov',
-expires => '+12h',
-path => '/',
},
SEND_COOKIE => 1,
);
---------------------------------------------------------------------
Web Archive: http://www.mail-archive.com/suppressed/
http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2
To unsubscribe, e-mail: suppressed
For additional commands, e-mail: suppressed
Mail converted by mhonarc 2.6.15
This archive provided courtesy of JSW4.NET, Internet Hosting Services for Small Business.