# Copyright (c) 2006 Dominic Hargreaves # Permission is hereby granted, free of charge, to any person obtaining a # copy of this software and associated documentation files (the "Software"), # to deal in the Software without restriction, including without limitation # the rights to use, copy, modify, merge, publish, distribute, sublicense, # and/or sell copies of the Software, and to permit persons to whom the # Software is furnished to do so, subject to the following conditions: # # The above copyright notice and this permission notice shall be included in # all copies or substantial portions of the Software. # # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL # THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING # FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS # IN THE SOFTWARE. # package NPEMap; use vars qw(@ISA @EXPORT); use warnings; use strict; use vars qw($dbname $dbhost $dbuser $dbpass); use NPEMap::Config; use DBI; require Exporter; @ISA = qw(Exporter); @EXPORT = qw(setup_dbh print_html_err); sub setup_dbh { my $data_source = "dbi:Pg:dbname=$dbname"; $data_source .= ";host=$dbhost" if $dbhost; return DBI->connect_cached($data_source, $dbuser, $dbpass); } sub print_html_err($$) { my $err = shift; my $returnlink = shift; print "Content-type: text/html\n\n"; print "Error submitting\n"; print "

The following error occurred whilst submitting data:\n"; print CGI::escapeHTML($err); print "

$returnlink

\n"; print "\n"; } 1;