looks great. Conditionally loading a config. Might be able to make it more resilient by making sure what you think is there, like "/inc/script/my_lib.conf". You are checking $ENV{PAR_TEMP} to see if it's set, but not checking to see if it's set correctly. Is the file there? Does it have all the data you need? Does it bomb out correctly when somethings wrong? Assume that something will go wrong, now how long is it going to take to find out why with the default error messages?

Break it imaginatively and just kinda see what happens.

Well, loading the config file that way is to make sure the app works when packed with pp. It's no big deal once it's tested.

My question was more in relation with remembering the connection done using the hash.

Could the connection be broken by the database server when the page has been load ? If yes, can I check this rather then using the hash value ?

Thanks for helping anyway !

What if your database server crashes/shuts down/restarts after you run the plugin() to connect to it? %connections flag will not tell you that. In general, one can ping() prior to, or eval() on each db operation and catch the error if any. So perhaps convert this flag to a sub which pings the db-handle you think you have and return the result. See check if DBI is still connected.

hmm.. maybe try testing by putting a load on the web server and see how many connections you have to the database? I would think if that part is not working right you would see either increasing number of connections to the database up to some ceiling or your pages not getting data from the database. If I understand your concern correctly.

Thanks for the suggestion MyLib.pm is

package MyLib;
use Mojo::Base 'Mojolicious';
use Mojo::mysql;
#my %connections;

# This method will run once at server start
sub startup {
    my $self = shift;

    # Router
    my $r = $self->routes;

    # Normal route to controller
    $r->get('/')->to( template => 'index' );
    $r->get('/libmap');    #->to(controller => 'libmap');
    $r->get('/invtot')->to(
        controller => 'invtot',
        title      => 'Paper journals from the library',
        cb         => sub { $self->connect_invtot() }
    );

    if ( exists $ENV{PAR_TEMP} && $^O eq "MSWin32" ) {
        system qw(start http://localhost:3000/invtot);
    }

    $r->post('/invtot')->to( controller => 'Invtot', action => 'post' 
+);

}

sub connect_invtot {

    my $self = shift;
    #return if $connections{db1};

    # Load configuration from hash returned by config file
    my $file;
    if ( $ENV{PAR_TEMP} ) {
        print $ENV{PAR_TEMP}, "\n";
        $file = $ENV{PAR_TEMP} . "/inc/script/my_lib.conf";
    }
    else {
        $file = 'my_lib.conf';
    }
    my $config = $self->plugin( 'Config', { file => $file } );

    # Configure the application
    $self->secrets( $config->{secrets} );

    $self->log->debug("connecting...");
    
    $self->helper(db1 => sub {state $db1 = Mojo::mysql->strict_mode('m
+ysql://'.  $config->{username} . ':'. $config->{password} . '@my.../d
+okpe_i01'  )});
    $self->db1->options({
                'pg_enable_utf8' => 1,
                AutoCommit       => 1,
                PrintError       => 0,
                RaiseError       => 1
            });

}
1;
[download]

In my Invtot.pm controller the post method is

sub post {
  my $c = shift;
#get data from the form and build sql in $sql{$key}
        my $stm = $c->app->db1->db->prepare_cached( $sql{$key} )
            or die $c->app->db1->db->errstr;    # unless(exists $sql{$
+key});
        $toFind = format_search_arg( $toFind, $mode );
        $c->app->log->debug( $mode . " " . $toFind );
        $stm->execute($toFind) or die $stm->errstr;
        $c->stash( stm => $stm, for_abo => $for_abo );

}
[download]

But this failed with Can't locate object method "db1" via package "MyLib" at ...

Thanks for any help