1 files changed, 0 insertions, 83 deletions
diff --git a/lib/MasterServer/Database/dbCore.pm b/lib/MasterServer/Database/dbCore.pm
deleted file mode 100755
index 4ea0c79..0000000
--- a/lib/MasterServer/Database/dbCore.pm
+++ /dev/null
@@ -1,83 +0,0 @@
-
-package MasterServer::Database::dbCore;
-
-use strict;
-use warnings;
-use Exporter 'import';
-
-our @EXPORT = qw| database_login |;
-
-################################################################################
-## login to the database with credentials provided in the config file.
-## returns dbh object or quits application on error.
-##
-## Recommended database types: Postgresql, MySQL or SQLite. Warranty void if
-## other database types are used. Use at your own risk.
-################################################################################
-sub database_login {
-  my $self = shift;
-
-  # read db type from db login
-  my @db_type = split(':', $self->{dblogin}->[0]);
-  
-  # if the type is an SQLite database, check if the database file exists
-  if ( "SQLite" =~ m/$db_type[1]/i) {
-    
-    # check if database file exists
-    my $db_file = [split(':', $self->{dblogin}->[0])]->[2];
-       $db_file =~ s/dbname=//i;
-
-    unless (-e $db_file) {
-      # fatal error
-      $self->log("fatal", "Database file $db_file does not exist!");
-      
-      # end program
-      $self->halt();
-    }
-  }
-  
-  # inform what DB we try to load
-  # $self->log("info","Database: $db_type[1]");
-    
-  # create the dbi object
-  my $dbh = DBI->connect(@{$self->{dblogin}}, {PrintError => $self->{db_print}});
-  
-  # verify that the database connected
-  if (defined $dbh) {
-  
-    # log the event
-    $self->log("info","Connected to the $db_type[1] database.");
-    
-    # turn on error printing
-    $dbh->{printerror} = 1;
-    
-    # if the type is an SQLite database, disable sync rw.
-    if ( "SQLite" =~ m/$db_type[1]/i) {
-  
-      # synchronous read/writing to the SQLite file OFF. That means: when the script 
-      # shuts down unexpectedly, i.e. because of power failure or a crash, changes 
-      # to the database are NOT SAVED. However, if this setting is not turned OFF, 
-      # it takes too long to write to the database, which means that new beacons, 
-      # requests and servers cannot be processed. You don't have a choice, really..
-      $dbh->do("PRAGMA synchronous = OFF");
-      
-      # allow the use of foreign keys (referencing)
-      $dbh->do("PRAGMA foreign_keys = ON");
-    }
-    
-    # return the dbi object for further use
-    return $dbh;
-  }
-  else {
-    # fatal error
-    $self->log("fatal", "$DBI::errstr!");
-    
-    # end program
-    $self->halt();
-  }
-  
-  # in case of any other error, return undef.
-  return undef;
-}
-
-1;