X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=lib%2FMachines%2FMySQL.pm;h=00f2b7c4eb95e498b3a19fe750dc5a791a701434;hb=e1d42c20248fed57b7a9b5e815286524029a6c08;hp=398fd8f764936280e14edc1b54cc9498d018024f;hpb=64b1fd397779f5b896e23fcca190b3e42f244145;p=clearscm.git

diff --git a/lib/Machines/MySQL.pm b/lib/Machines/MySQL.pm
old mode 100644
new mode 100755
index 398fd8f..00f2b7c
--- a/lib/Machines/MySQL.pm
+++ b/lib/Machines/MySQL.pm
@@ -57,11 +57,12 @@ our $VERSION  = '$Revision: 1.0 $';
    ($VERSION) = ($VERSION =~ /\$Revision: (.*) /);
 
 my %MACHINEOPTS = (
-  SERVER   => 'localhost',
-  USERNAME => 'machines',
-  PASSWORD => 'w0rk$harder',
+  SERVER   => $ENV{REXEC_DBHOST} || 'localhost',
+  USERNAME => 'rexec',
+  PASSWORD => 'rexec',
 );
 
+# Internal methods
 sub _connect (;$) {
   my ($self, $dbserver) = @_;
 
@@ -105,7 +106,6 @@ sub _checkRequiredFields ($$) {
   return;
 } # _checkRequiredFields
 
-# Internal methods
 sub _dberror ($$) {
   my ($self, $msg, $statement) = @_;
 
@@ -239,4 +239,4 @@ sub AddSystem (%) {
   return $self->_addRecord ('system', %system);
 } # AddSystem
 
-1;
\ No newline at end of file
+1;