|
|
@ -8,6 +8,8 @@ my $dbuser = $rec->prop('DbUser') || 'samba'; |
|
|
|
my $dbpass = $rec->prop('DbPassword') || 'samba'; |
|
|
|
my $dbpass = $rec->prop('DbPassword') || 'samba'; |
|
|
|
my $dbhost = $rec->prop('DbHost') || 'localhost'; |
|
|
|
my $dbhost = $rec->prop('DbHost') || 'localhost'; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
open(STDERR, ">&STDOUT"); |
|
|
|
|
|
|
|
|
|
|
|
my @args = ("--debug=1", "--dbname=$dbname", "--dbuser=$dbuser", "--dbpass=$dbpass"); |
|
|
|
my @args = ("--debug=1", "--dbname=$dbname", "--dbuser=$dbuser", "--dbpass=$dbpass"); |
|
|
|
|
|
|
|
|
|
|
|
push @args, "--dbhost=$dbhost" if ($dbhost ne 'localhost'); |
|
|
|
push @args, "--dbhost=$dbhost" if ($dbhost ne 'localhost'); |
|
|
|