#!/usr/bin/perl
use CGI;
use LWP::Simple;
my $cgi=new CGI();
print "Content-Type: text/html\n\n";
# поддерживаются: cp1251, koi, utf8
my $encoding = 'cp1251';
# привязать sms ключ к URL
my $urlRestrict = 0;
# ресурс активаций для ключа
my $limit = 0;
# отображать панель смены языков
my $langSwitcher = 1;
# язык по умолчанию
my $defaultLang = 'ru';
# номер проекта
my $projectId = 36255;
my $language = $defaultLang;
$language = $cgi->param('lng') || $cgi->cookie('z_lng') || $defaultLang if $langSwitcher;
my $resultCode = undef;
my $resultMessage = 'closed';
if (my $code = $cgi->param('code')){
my $checkUrl = "http://check.smszamok.ru/check/?p=" . $code . "&id=$projectId&mod=perl1";
$checkUrl .= "&url_restricted=".$ENV{'HTTP_HOST'}.$ENV{'REQUEST_URI'} if $urlRestrict;
$checkUrl .= "&limit=".$limit if $limit;
$resultMessage = get($checkUrl) || 'server_busy';
$resultCode = $resultMessage eq 'true';
}
if (!$resultCode) {
print get(
$resultMessage eq 'server_busy'
? "http://iface.smszamok.ru/client/sorry.php?lng=$language&enc=$encoding"
: "http://iface.smszamok.ru/client/$language.iface.$encoding.php?pid=$projectId&message=$resultMessage&ls=".($langSwitcher?'1':'0')
);
# халявы нема
exit;
}
