#!/usr/bin/perl

use DBI;
use config;

#require "./cgi-bin/wap_log.pm";


$conn = DBI->connect("dbi:Pg:dbname=$config::dbname", "$config::user", "$config::pass");

@pairs=split(/$config::sep/,$ENV{'QUERY_STRING'});
foreach $pair(@pairs)
{
	($name,$value)=split(/=/,$pair);

	$name=~tr/+/ /;
	$name=~s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c",hex($1))/eg;
	$name=~s/\n//;

	$value=~tr/+/ /;
	$value=~s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c",hex($1))/eg;
	$value=~s/\n//;

	$P{$name}=$value;
}


#wap_log::log_entry();


$P{'back'} =~ s/&/&/gi;


print $config::http_head;


print "<wml>";
print "<card id='wap_pomidor_games_info' title='ZengimCELL'>";
print "<p>";


if($P{'content'} eq "price") {
	print config::lang_proc($P{'lang'}, "Стоимость услуги - 1 AZN включая НДС + цена стандартного SMS.", "Xidmetin deyeri - 1 AZN EDV daxil + 1 standart SMS qiymeti.")."<br/>";
	print config::lang_proc($P{'lang'}, "Заказ действителен в течении одного месяца.", "Sifari&#351; bir ay erzinde q&#252;vvede olacaq.")."<br/>";
}
elsif($P{'content'} eq "help") {
	print config::lang_proc($P{'lang'}, "С помощью услуги ZengimCell (Ring Back Tone) Вы сможете заменить стандартные тоновые сигналы, которые слышат звонящие Вам абоненты при ожидании соединения, различными музыкальными/голосовыми фрагментами или звуковыми эффектами.", "ZengimCell (Ring Back Tone) xidmetinin k&#246;meyile Siz zeng eden abonentin ba&#287;lant&#305;n&#305; g&#246;zlediyi zaman dinlediyi standart siqnal sesini m&#252;xtelif musiqili/sesli fraqmentler ve ya ses effektleriyle evez ede bilersiniz.")."<br/>";
	print "<br/>";

	print config::lang_proc($P{'lang'}, "За полной информацией Вы можете обратиться в Абонентский отдел Azercell:", "Tam melumat &#252;&#231;&#252;n Siz Azercell-in abonent &#351;&#246;besine m&#252;raciet ede bilersiniz:")."<br/>";
	print "<br/>";

	print config::lang_proc($P{'lang'}, "ул. З. Тагиева 18 (площадь Фонтанов)", "Z. Ta&#287;&#305;yev k&#252;&#231;. 18 (Fevvareler meydan&#305;)")."<br/>";
	print config::lang_proc($P{'lang'}, "ул. Г. Гараева 81 (8-й километр)", "Q. Qarayev k&#252;&#231;. 81 (8-ci kilometr)")."<br/>";
	print config::lang_proc($P{'lang'}, "тел. 490 – 52 – 52 (Azercell); 490 – 49 – 49 (SimSim)", "tel. 490 – 52 – 52 (Azercell); 490 – 49 – 49 (SimSim)")."<br/>";
}


print "<br/>";
print "<a href='".$P{'back'}."'>".config::lang_proc($P{'lang'}, "[ Назад ]", "[ Geri ]")."</a><br/>";
print "<a href='".$config::root."index.cgi?lang=".$P{'lang'}."'>".config::lang_proc($P{'lang'}, "[ Главная ]", "[ Ana S&#601;hif&#601; ]")."</a><br/>";

print "</p>";
print "</card>";
print "</wml>";


$conn->disconnect();