#!/usr/bin/perl
# Copyright 1999-2016. Parallels IP Holdings GmbH. All Rights Reserved.
#
# Determine and print

use lib '.';
use lib 'shared_legacy';

use Dumper;

my $mysql_credentials = Dumper::getMySQLDBCredentials();

print
  $mysql_credentials->{'user'} . "\n" .
  $mysql_credentials->{'password'} . "\n" .
  ($mysql_credentials->{'host'} ? $mysql_credentials->{'host'} : 'localhost') . "\n" .
  ($mysql_credentials->{'port'} ? $mysql_credentials->{'port'} : '3306');