sub get_vars
{
my %global;
my $statement = 'SELECT * FROM perlDesk_settings';
my $sth = $dbh->prepare($statement) or die print "Couldn't prepare statement: $DBI::errstr; stopped";
$sth->execute() or die print "Couldn't execute statement: $DBI::errstr; stopped";
while(my $ref = $sth->fetchrow_hashref())
{
my $setting = $ref->{'setting'};
$global{$setting} = $ref->{'value'};
}
$sth->finish;
$epre = $global{'epre'};
return %global;
}
sub die_nice
{
my $error = "@_";
print "Content-type: text/html\n\n";
print qq|
Error
|;
exit;
}
1;