#!/usr/bin/perl #bigsrest.pl REST interface for BIGSdb #Written by Keith Jolley #Copyright (c) 2014, University of Oxford #E-mail: keith.jolley@zoo.ox.ac.uk # #This file is part of Bacterial Isolate Genome Sequence Database (BIGSdb). # #BIGSdb is free software: you can redistribute it and/or modify #it under the terms of the GNU General Public License as published by #the Free Software Foundation, either version 3 of the License, or #(at your option) any later version. # #BIGSdb is distributed in the hope that it will be useful, #but WITHOUT ANY WARRANTY; without even the implied warranty of #MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #GNU General Public License for more details. # #You should have received a copy of the GNU General Public License #along with BIGSdb. If not, see . package BIGSdb::main; use strict; use warnings; use 5.010; ###########Local configuration################################ use constant { CONFIG_DIR => '/etc/bigsdb', LIB_DIR => '/usr/local/lib', DBASE_CONFIG_DIR => '/etc/bigsdb/dbases', HOST => 'localhost', PORT => 5432, USER => 'apache', PASSWORD => '', }; #######End Local configuration################################ use Log::Log4perl qw(get_logger); #Also need Log::Dispatch::File use lib (LIB_DIR); use BIGSdb::REST::Interface; Log::Log4perl->init_once( CONFIG_DIR . '/rest_logging.conf' ); my $app = BIGSdb::REST::Interface->new( { config_dir => CONFIG_DIR, lib_dir => LIB_DIR, dbase_config_dir => DBASE_CONFIG_DIR, host => HOST, port => PORT, user => USER, password => PASSWORD, } ); $app->dance;