bigsrest.pl 1.77 KB
Newer Older
1
#!/usr/bin/perl
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
#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 <http://www.gnu.org/licenses/>.
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',
33 34
	PASSWORD         => '',
	URI_BASE	     => 'http://rest.pubmlst.org/'
35 36 37 38 39 40
};
#######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' );
41
my $app = BIGSdb::REST::Interface->new(
42 43 44 45
	{
		config_dir       => CONFIG_DIR,
		lib_dir          => LIB_DIR,
		dbase_config_dir => DBASE_CONFIG_DIR,
46
		uri_base		 => URI_BASE,
47 48 49 50 51 52
		host             => HOST,
		port             => PORT,
		user             => USER,
		password         => PASSWORD
	}
);
53
$app->dance;