#!/usr/local/bin/perl
$mail_prog = '/usr/sbin/sendmail' ;
$htp = 'http://wm-clicks.net' ;
&GetFormInput;
$login = $field{'login'} ;	 
$par = $field{'pass'} ;	 

sub GetFormInput {

	(*fval) = @_ if @_ ;

	local ($buf);
	if ($ENV{'REQUEST_METHOD'} eq 'POST') {
		read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});
	}
	else {
		$buf=$ENV{'QUERY_STRING'};
	}
	if ($buf eq "") {
			return 0 ;
		}
	else {
 		@fval=split(/&/,$buf);
		foreach $i (0 .. $#fval){
			($name,$val)=split (/=/,$fval[$i],2);
			$val=~tr/+/ /;
			$val=~ s/%(..)/pack("c",hex($1))/ge;
			$name=~tr/+/ /;
			$name=~ s/%(..)/pack("c",hex($1))/ge;

			if (!defined($field{$name})) {
				$field{$name}=$val;
			}
			else {
				$field{$name} .= ",$val";
				
			}


		   }
		}
return 1;
}

use Fcntl;
use NDBM_File;


tie %hash, "NDBM_File", "/web/012/wmclicks/public_html/adv/logs/$login", O_RDWR, 0644;
$ps=$hash{pass};
untie %hash;

if ($par eq $ps)
{



tie %hash, "NDBM_File", "/web/012/wmclicks/public_html/adv/logs/$login", O_RDWR, 0644;

$ps=$hash{pass};


untie %hash;



print "Content-Type: text/html\n\n";
print "<html><head><meta http-equiv=Content-Type content='text/html;'><title>Your Balance.</title><link rel=stylesheet type=text/css href=http://wmclicks.com/1.css></head>";
print "<body bgcolor=#00c392 background=$htp/bg.gif topmargin=0><script language=javascript>";
print "u=\"u1542.50.spylog.com\";d=document;nv=navigator;na=nv.appName;p=1;";
print "bv=Math.round(parseFloat(nv.appVersion)*100);";
print "n=(na.substring(0,2)==\"Mi\")?0:1;rn=Math.random();z=\"p=\"+p+\"&rn=\"+rn+\"&tl=0&ls=0&ln=0\";y=\"\";";
print "y+=\"<img src='http://\"+u+\"/cnt?\"+z+";
print "\"&r=\"+escape(d.referrer)+\"&pg=\"+escape(window.location.href)+\"' border=0 width=1 height=1 alt='SpyLOG'>\";";
print "d.write(y);if(!n) { d.write(\"<\"+\"!--\"); }//--></script><noscript>";
print "<img src=\"http://u1542.50.spylog.com/cnt?p=1\" alt='SpyLOG' border='0' width=1 height=1 >";
print "</noscript><script language=javascript1.2><!--";
print "if(!n) { d.write(\"--\"+\">\"); }//--></script><hr color=#006c00 width=600>";
print "<table width=600 border=0 align=center cellspacing=0 cellpadding=0><tr><td align=center width=230 colspan=2><img src=$htp/logo.gif></td>";
print "<td width=475><!-- RLE --><iframe src=http://www.linkexchange.ru/cgi-bin/erle.cgi?39536?18465711 frameborder=0 vspace=0 hspace=0 width=468 height=60 marginwidth=0 marginheight=0 scrolling=no>";
print "<a href=http://www.linkexchange.ru/users/039536/goto.map target=_top><img src=http://www.linkexchange.ru/cgi-bin/rle.cgi?39536?18465711 alt=RLE Banner Network border=0></a></iframe> ";
print "<!-- RLE --></td></tr></table><p class=mn><table width=600 border=0 cellspacing=0 cellpadding=0 align=center height=100%>";
print "<tr><td width=13><img src=$htp/corn.gif></td><td bgcolor=#006c00 width=100% valign=middle><font color=#91e1cd>W M - C L I C K S -&gt;  Пополнение счет через отделение Сбербанка &nbsp; f o r &nbsp; $login</font></td><td width=13 align=right><img src=$htp/cornr.gif></td></tr><tr>"; 
print "<td colspan=3><table width=100% border=1 cellspacing=0 cellpadding=3 bordercolor=#006c00><tr><td rowspan=5 valign=top bgcolor=#91e1cd>";
print "<p align=center><b>Пополнение счета через Сбербанк:</b>";
print "<p align=left>&nbsp;<p align=justify class=mn>Оплата производится в рублях по курсу 1WMZ = 28 рублей";
print "<p align=justify class=mn>Для пополнения счета вам необходимо ввести сумму (в рублях). Далее на открывшейся странице выбираете \"через сбербанк\". Откроется страница с договором о купле-продаже WMT, вам необходимо нажать \"СОГЛАСЕН\" и напечатать квитанцию";
print "<p align=justify class=mn>Деньги будут переведены на Ваш счет в течение 3 суток после оплаты квитанции. Будте внимательны - вы должны будете заплатить и комиссию WM.";
print "<form method=post action=http://wmclicks.com/cgi-bin/adv/sb.pl>";
print "<p align=center class=mn><p align=center class=mn>Сумма перевода: <p align=center class=mn><input type=text name=summ class=fr><input type=hidden name=login value=$login><p align=center class=mn> <input type=submit class=fr value=\"ОК\">";
print "</form>";
print "<p align=center><FORM METHOD=POST ACTION=http://www.wmclicks.com/cgi-bin/adventer.pl><input type=hidden name=login value=$login><input type=hidden name=pass value=$ps><input type=submit value='     Вернуться     ' style='background: #00c392; font-face:Verdana; font-size: 9pt'></FORM><br><img src=$htp/bal.gif vspace=30>";
print "</td><td width=150 align=center bgcolor=#91e1cd height=25><b>Для посетителей</b></td></tr><tr>";
print "<td width=150 bgcolor=#006c00 valign=top><FORM METHOD=POST ACTION=$htp/cgi-bin/enter.pl><font color=#91e1cd>Логин:<br></font><input type=text name=login class=fr><br><font color=#91e1cd>Пароль:<br></font><input type=password name=pass class=fr>";
print "<p class=mn><input type=submit value=\" Вход \" style='background: #00c392; font-face:Verdana; font-size: 9pt'></p>";
print "</FORM><p class=s><a href=$htp/cgi-bin/regform.pl>Регистрация</a></p><p class=s><a href=$htp/qvest.html>Вопросы и ответы</a><br><br></p></td></tr><tr><td width=150 align=center bgcolor=#91e1cd height=25><b>Для рекламодателей</b></td></tr><tr>";
print "<td width=150 bgcolor=#006c00 valign=top><FORM METHOD=POST ACTION=$htp/cgi-bin/adventer.pl><font color=#91e1cd>Логин:<br></font><input type=text name=login class=fr><br><font color=#91e1cd>Пароль:<br></font><input type=password name=pass class=fr>";
print "<p class=mn><input type=submit value=\" Вход \" style='background: #00c392; font-face:Verdana; font-size: 9pt'></p></FORM><p class=s><a href=$htp/adv_reg.html>Регистрация</a></p><p class=s><a href=$htp/adv_qvest.html>Вопросы и ответы</a><br>";
print "<br></p></td></tr><tr><td width=150 bgcolor=#006c00 valign=bottom align=right><p class=mn align=left><script language=javascript>";
print "d=document;rn=Math.random();";
print "y=\"<a href='http://u1542.50.spylog.com/cnt?f=3&rn=\"+rn+\"' target=_blank><img src='http://u1542.50.spylog.com/cnt?\";";
print "y+=\"p=1&f=4&rn=\"+rn+\"' border=0 width=88 height=31 ></a>\"; d.write(y);";
print "</script><noscript><a href=http://u1542.50.spylog.com/cnt?f=3&p=1 target=_blank>";
print "<img src=http://u1542.50.spylog.com/cnt?p=1&f=4 alt='SpyLOG' border='0' width=88 height=31 ></a></noscript></p><font color=#91e1cd size=1>Web Design by<br><a href=mailto:admin\@wmclicks.com>WM-Clicks</a> &copy;</font></td></tr></table></td></tr></table></body></html>";


}
