#!/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();


print $config::http_head;


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


#print "19.05.2005. ".config::lang_proc($P{'lang'}, "Обновления на wap.zengim.az. Добавлено около 200 мелодий.", "wap.zengim.az sayt&#305;nda tezelenme. 200-e qeder melodiya elave olunub")."<br/>";
#print "<br/>";

if($P{'lang'} ne "" && $P{'lang'} ne "azeri") { print "<a href='".$config::root."index.cgi?cat=".$P{'cat'}."&amp;lang=azeri'>Azeri</a><br/>"; }
if($P{'lang'} ne "rus") { print "<a href='".$config::root."index.cgi?cat=".$P{'cat'}."&amp;lang=rus'>Rus</a><br/>"; }
if($P{'lang'} ne "trans") { print "<a href='".$config::root."index.cgi?cat=".$P{'cat'}."&amp;lang=trans'>Translit</a><br/>"; }
print "<br/>";

print "<a href='".$config::root."list.cgi?cat=new&amp;lang=".$P{'lang'}."'> - ".config::lang_proc($P{'lang'}, "Новинки", "Yenilikl&#601;r")."</a><br/>";
print "<a href='".$config::root."list.cgi?cat=top&amp;lang=".$P{'lang'}."'> - ".config::lang_proc($P{'lang'}, "Top 30", "Top 30")."</a><br/>";
print "<br/>";


$q = $conn->prepare("SELECT cat_mask, desc_rus, desc_az FROM categories_tbl WHERE brand_id='4' AND service_id='10' AND show_it='1' ORDER BY position");
$q->execute();

for($i=0;$i<$q->rows();$i++) {
	$next_q = $q->fetchrow_hashref();

	if($P{'mob'} eq "all" || $banned_cats[$$next_q{'cat_mask'}] == 0) {
		print "<a href='".$config::root."list.cgi?cat=".$$next_q{'cat_mask'}."&amp;mob=".$P{'mob'}."&amp;lang=".$P{'lang'}."'> - ".config::lang_proc($P{'lang'}, $$next_q{'desc_rus'}, $$next_q{'desc_az'})."</a><br/>";
	}
}

$q->finish();


print "<br/>";
print "<a href='".$config::root."info.cgi?content=help&amp;back=".config::pack_url($ENV{'REQUEST_URI'})."&amp;lang=".$P{'lang'}."'>".config::lang_proc($P{'lang'}, "Помощь", "K&#246;m&#601;k")."</a><br/>";
print "<a href='".$config::root."info.cgi?content=price&amp;back=".config::pack_url($ENV{'REQUEST_URI'})."&amp;lang=".$P{'lang'}."'>".config::lang_proc($P{'lang'}, "Цена", "Qiym&#601;t")."</a><br/>";


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


$conn->disconnect();