($VERSION) = ($VERSION =~ /\$Revision: (.*) /);\r
\r
my %MACHINEOPTS = (\r
- SERVER => 'localhost',\r
- USERNAME => 'machines',\r
- PASSWORD => 'w0rk$harder',\r
+ SERVER => $ENV{REXEC_DBHOST} || 'localhost',\r
+ USERNAME => 'rexec',\r
+ PASSWORD => 'rexec',\r
);\r
\r
+# Internal methods\r
sub _connect (;$) {\r
my ($self, $dbserver) = @_;\r
\r
return;\r
} # _checkRequiredFields\r
\r
-# Internal methods\r
sub _dberror ($$) {\r
my ($self, $msg, $statement) = @_;\r
\r
return $self->_addRecord ('system', %system);\r
} # AddSystem\r
\r
-1;
\ No newline at end of file
+1;\r