view release on metacpan or  search on metacpan

share/www/dbi2http.psgi  view on Meta::CPAN

use DBI;
use DBIx::FunctionalAPI;
use File::Write::Rotate;
use Perinci::Access::Base::Patch::PeriAHS;
use Plack::Builder;
use Plack::Util::PeriAHS qw(errpage);
use YAML::Syck ();

my $confpath = $ENV{DBI2HTTP_CONFIG_PATH} // do {
    my $home = (getpwuid($>))[7];  # $ENV{HOME} is empty if via fcgi
    "$home/dbi2http.conf.yaml";
};
my $conf = YAML::Syck::LoadFile($confpath);

my $fwr = File::Write::Rotate->new(
    dir       => $conf->{riap_access_log_dir},
    prefix    => $conf->{riap_access_log_prefix},
    size      => $conf->{riap_access_log_size},
    histories => $conf->{riap_access_log_histories},
);