#! /usr/bin/perl
#
#  0    1    2     3     4    5     6     7     8
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                                      localtime(time);
$year+=1900;

print "Content-type: text/html\n\n";

print <<EOD;

<!--Copyright (c) Artemy Lebedev Studio | source\@design.ru | http://www.design.ru/--><html><head><script language="javascript">
if ((navigator.appName == "Netscape") && (navigator.appVersion.lastIndexOf('Win') != -1) && (parseInt(navigator.appVersion) > 4))
{
mes = "Внимание! Количество введенных символов Вы можете узнать, нажав клавишу <Tab> во время ввода текста." + navigator.appVersion
alert(mes);
}
if ((navigator.appName == "Netscape") && (parseInt(navigator.appVersion) == 3))
{
mes = "Внимание! Посчитать количество введенных символов Вы сможете только после того, как поле ввода сообщения станет не активным - т.е. Вы перейдете к другому полю ввода или просто кликните в пустом пространстве страницы."
alert(mes);
}
var
codeNumber = new Array(""); codeDigits = new Array(""); function validate(form) {
var overRun=form.Msg.value.length-160;
var ok=overRun<=0;
if (!ok) alert('Максимальная длина сообщения - 160 символов. Вы превысили лимит на '+overRun+' символов');
return ok;
}
function ChooseLen() {
M = window.document.send.Msg.value.length;
window.document.send.count.value = M;
}
</script><title>МТС /
		SMS</title><base target="_top"></head><body marginheight="10" marginwidth="10" leftmargin="10" topmargin="10" vlink="#551a8b" link="#0000ee" text="#000000" bgcolor="#e6e6e6"><table width="100%" cellspacing="0" cellpadding="1" border="0"><tr valign="middle" bgcolor="#000000"><td width="90%"><font color="#ffffff" size="2">&nbsp;&gt;&gt;&gt;
			<a href="/"><font color="#ffffff">МТС</font></a>
			
				
			/
			SMS</font></td><form><td nowrap="nowrap" valign="middle" align="right"><font size="2"><a href="/search/"><font color="#ffffff">Поиск / Карта сайта</font></a>
			
				
					&nbsp;&nbsp;</font></td><td valign="middle" align="right"><select onchange="if (this.options[this.selectedIndex].value == '') this.selectedIndex=0; else window.open(this.options[this.selectedIndex].value,'_top')"><option value="">выберите раздел...</option><option value="">__________________________</option><option value="/news/">Новости</option><option value="/press/">Пресс-центр</option><option value="/phones/">Телефоны</option><option value="/about/">О компании</option><option value="/where2buy/">Где купить?</option><option value="/tariffs/">Тарифы</option><option value="/payment/">Как платить?</option><option value="">__________________________</option><option value="/coverage/">Зона обслуживания</option><option value="/coverage/n_roaming/">- Национальный роуминг</option><option value="/coverage/i_roaming/">- Международный роуминг</option><option value="/coverage/info/">- Информация для роумеров</option><option value="">__________________________</option><option value="/service/">Услуги МТС</option><option value="/service/fix_main.html">- Дополнительные услуги связи</option><option value="">__________________________</option><option value="/support/">Сервис и поддержка</option><option value="/corporate/">Корпоративные предложения</option><option value="https://www.mts.ru/">Ваш счет (ИССА)</option><option value="/sms/" selected>Отправка сообщений SMS</option><option value="http://forum.mts.ru">Дискуссионный клуб</option><option value="/faq/">Вопросы и ответы</option><option value="/anketa/">Ваше мнение</option></select></td></form></tr></table>
<table width="100%" cellspacing="0" cellpadding="0" border="0"><tr valign="top"><td bgcolor="#000000"><table width="100%" cellpadding="0" cellspacing="1" border="0"><noindex><tr><td width="20%"><table width="100%" cellpadding="0" cellspacing="0" border="0"><tr align="center" valign="middle"><td bgcolor="#ffb700" height="100" width="20%"><a href="/"><img width="130" src="/i/mts.gif" height="60" border="0" alt=""></a></td></tr></table></td><td valign="middle" background="/i/shad.gif" bgcolor="#5c7db0" width="20%"><table cellspacing="5"><tr background=""><td><img alt="ТЕЛЕФОНЫ И АКСЕССУАРЫ" border="0" height="18" width="18" src="/i/icons/phones.gif"></td><td><a href="/phones/"><font size="1"><font color="#ffffff">ТЕЛЕФОНЫ И АКСЕССУАРЫ</font></font></a></td></tr><tr background=""><td><img alt="ГДЕ КУПИТЬ" border="0" height="18" width="18" src="/i/icons/where2buy.gif"></td><td><a href="/where2buy/"><font size="1"><font color="#ffffff">ГДЕ КУПИТЬ</font></font></a></td></tr></table></td><td align="left" valign="middle" background="/i/shad.gif" bgcolor="#5c7db0" width="20%"><table cellspacing="5"><tr background=""><td><img alt="ТАРИФЫ" border="0" height="18" width="18" src="/i/icons/tarifs.gif"></td><td><a href="/tariffs/"><font size="1"><font color="#ffffff">ТАРИФЫ</font></font></a></td></tr><tr background=""><td><img alt="КАК ПЛАТИТЬ" border="0" height="18" width="18" src="/i/icons/payment.gif"></td><td><a href="/payment/"><font size="1"><font color="#ffffff">КАК ПЛАТИТЬ</font></font></a></td></tr></table></td><td align="left" valign="middle" background="/i/shad.gif" bgcolor="#5c7db0" width="20%"><table cellspacing="5"><tr background=""><td><img alt="ЗОНА ОБСЛУЖИВАНИЯ" border="0" height="18" width="18" src="/i/icons/coverage.gif"></td><td><a href="/coverage/"><font size="1"><font color="#ffffff">ЗОНА ОБСЛУЖИВАНИЯ</font></font></a></td></tr><tr background=""><td><img alt="УСЛУГИ МТС" border="0" height="18" width="18" src="/i/icons/service.gif"></td><td><a href="/service/"><font size="1"><font color="#ffffff">УСЛУГИ МТС</font></font></a></td></tr></table></td><td align="left" valign="middle" background="/i/shad.gif" bgcolor="#5c7db0" width="20%"><table cellspacing="5"><tr background=""><td><img alt="СЕРВИС И ПОДДЕРЖКА" border="0" height="18" width="18" src="/i/icons/resources.gif"></td><td><a href="/support/"><font size="1"><font color="#ffffff">СЕРВИС И ПОДДЕРЖКА</font></font></a></td></tr><tr background=""><td><img alt="КОРПОРАТИВНЫЕ ПРЕДЛОЖЕНИЯ" border="0" height="18" width="18" src="/i/icons/corporate.gif"></td><td><a href="/corporate/"><font size="1"><font color="#ffffff">КОРПОРАТИВНЫЕ ПРЕДЛОЖЕНИЯ</font></font></a></td></tr></table></td></tr></noindex><tr valign="top" bgcolor="#ffffff"><td width="20%"><table border="0" width="100%" cellspacing="0" cellpadding="5"></table><img width="121" src="/i/shadow_.gif" height="16" border="0"><br></td><td width="80%" colspan="4"><table border="0" width="100%" cellpadding="10"><tr valign="top"><td width="24%"><br></td><td width="76%"><font size="+3"><b>Отправка сообщений SMS</b></font></td></tr><tr valign="top"><td width="24%"><font color="#2f405a" size="-1"><font color="#2f405a" size="-1">
Здесь вы можете отправить короткое сообщение на мобильный телефон.
<br><br><b>Внимание!</b><br>Этот раздел работает в тестовом режиме.<br><br>
<noscript>
<b>В вашем броузере отсутствует или отключен javascript!</b> Автоматическая проверка длины сообщения не производится. Будте особо внимательны при наборе сообщения.
</noscript>
</font></font></td><td width="76%">
<BASE href="http://www.mts.ru/sms/">
<form action="sent.html" name="send" method="get" onsubmit="return validate(this)">
<input size="" value="1" name="Posted" type="hidden">
<p>
Мобильный номер должен быть семизначным с префиксом 7095 или 7902. Например, 7095xxxxxxx.
</p>
Мобильный телефон:<br>
<input size="30" value="79026352359" name="To" type="text">
<br><br>
Сообщение: <sup><nobr><font size="-1" color="#ff0000">*</font></nobr></sup><br>
<textarea rows="5" cols="40" name="Msg" onfocus="ChooseLen()" onchange="ChooseLen()" onkeyup="ChooseLen()"></textarea>
<br>
<font color="" size="-1">
Вы набрали собщение длиной <input size="4" value="0" name="count" type="text" onfocus="window.document.send.Msg.focus();"> символов</font>
<br><br>
Крайний срок отправки (время суток и дата):<br>

EOD

my $Hours  = '<select onChange="" name="SMSHour"><option value="0">0</option><option value="1">1</option><option value="2">2</option><option value="3">3</option><option value="4">4</option><option value="5">5</option><option value="6">6</option><option value="7">7</option><option value="8">8</option><option value="9">9</option><option value="10">10</option><option value="11">11</option><option value="12">12</option><option value="13">13</option><option value="14">14</option><option value="15">15</option><option value="16">16</option><option value="17">17</option><option value="18">18</option><option value="19">19</option><option value="20">20</option><option value="21">21</option><option value="22">22</option><option value="23">23</option></select>';
my $Mins   = '<select onChange="" name="SMSMinute"><option value="1">1</option><option value="2">2</option><option value="3">3</option><option value="4">4</option><option value="5">5</option><option value="6">6</option><option value="7">7</option><option value="8">8</option><option value="9">9</option><option value="10">10</option><option value="11">11</option><option value="12">12</option><option value="13">13</option><option value="14">14</option><option value="15">15</option><option value="16">16</option><option value="17">17</option><option value="18">18</option><option value="19">19</option><option value="20">20</option><option value="21">21</option><option value="22">22</option><option value="23">23</option><option value="24">24</option><option value="25">25</option><option value="26">26</option><option value="27">27</option><option value="28">28</option><option value="29">29</option><option value="30">30</option><option value="31">31</option><option value="32">32</option><option value="33">33</option><option value="34">34</option><option value="35">35</option><option value="36">36</option><option value="37">37</option><option value="38">38</option><option value="39">39</option><option value="40">40</option><option value="41">41</option><option value="42">42</option><option value="43">43</option><option value="44">44</option><option value="45">45</option><option value="46">46</option><option value="47">47</option><option value="48">48</option><option value="49">49</option><option value="50">50</option><option value="51">51</option><option value="52">52</option><option value="53">53</option><option value="54">54</option><option value="55">55</option><option value="56">56</option><option value="57">57</option><option value="58">58</option><option value="59">59</option></select>';
my $Days   = '<select onChange="" name="SMSDay"><option value="1">1</option><option value="2">2</option><option value="3">3</option><option value="4">4</option><option value="5">5</option><option value="6">6</option><option value="7">7</option><option value="8">8</option><option value="9">9</option><option value="10">10</option><option value="11">11</option><option value="12">12</option><option value="13">13</option><option value="14">14</option><option value="15">15</option><option value="16">16</option><option value="17">17</option><option value="18">18</option><option value="19">19</option><option value="20">20</option><option value="21">21</option><option value="22">22</option><option value="23">23</option><option value="24">24</option><option value="25">25</option><option value="26">26</option><option value="27">27</option><option value="28">28</option><option value="29">29</option><option value="30">30</option><option value="31">31</option></select>';
my $Months = '<select onChange="" name="SMSMonth"><option value="0">января</option><option value="1">февраля</option><option value="2">марта</option><option value="3">апреля</option><option value="4">мая</option><option value="5">июня</option><option value="6">июля</option><option value="7">августа</option><option value="8">сентября</option><option value="9">октября</option><option value="10">ноября</option><option value="11">декабря</option></select>';
my $Years  = '<select onChange="" name="SMSYear"><option value="2000">2000</option><option value="2001">2001</option></select>';

$hour+=3;
if( $hour > 24 ) { $hour-=24; $mday++; }

$Hours  =~ s/value="$hour"/selected value="$hour"/;
$Mins   =~ s/value="$min"/selected value="$min"/;
$Days   =~ s/value="$mday"/selected value="$mday"/;
$Months =~ s/value="$mon"/selected value="$mon"/;
$Years  =~ s/value="$year"/selected value="$year"/;

print "$Hours\n$Mins\n<br>\n";
print "$Days\n$Months\n$Years\n";

print <<EOD;
<br><br>
<input value="Отправить" name="" type="submit">
<p><font color="" size="-1">
<sup><nobr><font size="-1" color="#ff0000">*</font></nobr></sup> Посылаемое сообщение должно быть не больше 5 строк (или 160 символов). В противном случае адресат получит два сообщения: одно - обрезанное до максимально возможного, и второе сообщение - с координатами отправителя.
</font>
</p>
</form>
</td></tr></table></td></tr></table></td></tr></table>
<table width="100%" cellspacing="0" cellpadding="1" border="0"><tr bgcolor="#000000" valign="middle" align="middle"><td height="25" width="33%"><a href="http://forum.mts.ru/"><font size="1" color="#ffffff">ДИСКУССИОННЫЙ КЛУБ</font></a></td><td width="33%"><a href="/faq/"><font size="1" color="#ffffff">ВОПРОСЫ И ОТВЕТЫ</font></a></td><td width="33%"><a href="/anketa/"><font size="1" color="#ffffff">ВАШЕ МНЕНИЕ</font></a></td></tr></table><noindex><div align="center"><font size="-2">
	Авторские права на содержание текста защищены. &copy; 2000 ОАО "Мобильные ТелеСистемы". Все права защищены.
	
			Правила и условия пользования сайтом приведены на странице "<a href="/rules-and-regulations.html">Правовая информация</a>".
		
	
	Лицензии Министерства РФ по связи и информатизации NN 14452-14457, 14662-14668, 14680, 15282, 15403. Товар и услуги сертифицированы.
	</font><br><br><font size="-1">E-mail: <a href="mailto:info\@mts.ru">info\@mts.ru</a>, телефон: (095) 766-0177</font></div></noindex></body></html>

EOD

