#!/usr/bin/perl -w

package MysqlPrefix;
use strict;

sub getMysqlCPrefix() {
	my $host = `hostname`;
	chomp $host;
	if ($host eq "disks") {
		return "LANG=C mysql --login-path=svjoomla svjoomla";
	} elsif ($host eq "bfu2puma") {
		return "LANG=C mysql --login-path=svjoomla svjoomla";
	} else {
		return "LANG=C mysql --user=svjoomla --password=pE79wOE8uOWC8O6y svjoomla";
	}
	die ("host invalid.");
}

sub getMysqlDePrefix() {
	my $host = `hostname`;
	chomp $host;
	if ($host eq "disks") {
		return "LANG=de_DE.UTF-8 mysql --login-path=svjoomla svjoomla";
	} elsif ($host eq "bfu2puma") {
		return "LANG=C mysql --login-path=svjoomla svjoomla";
	} else {
		return "LANG=de_DE.UTF-8 mysql --user=svjoomla --password=pE79wOE8uOWC8O6y svjoomla";
	}
	die ("host invalid.");
}

1;
