bnr#89 =>

Settings.pm

# we are going to create a myql table

# we need some special instructions to help us correct our programe
#use strict;

package DBMS::Settings;
require Exporter;
@ISA = qw(Exporter);

@EXPORT =
qw (
%MYSQL_TABLES
MYSQL_PASS MYSQL_DB MYSQL_USER
MYSQL_PRINT_ERROR MYSQL_RAISE_ERROR
);

# USED for 'search' 'admin' on web interface:

use constant MYUSER => 'root';
use constant MYDATABASE => 'COAL';
use constant MYPASS =don't be stupid be stupid';

use constant {

MYSQL_PASS => MYPASS,