#!/usr/local/bin/perl
$mail_prog = '/usr/sbin/sendmail' ;
&GetFormInput;

$referer = $field{'referer'} ;	 

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;
}


print "Content-Type: text/html\n\n";
print "<html><head><meta http-equiv=\"Content-Type\" content=text/html; charset=windows-1251>";
print "<meta name=description content=\"WM-заработок. Посещая сайты, Вы получаете деньги.\"><meta name=keywords content=\"money, wm keeper, wmz, заработок, оплата, клик, доллар, перевод\">";
print "<title>Регистрация нового рекламодателя.</title><link rel=stylesheet type=text/css href=http://wmclicks.com/1.css></head>";
print "<body bgcolor=#00c392 background=bg.gif topmargin=0><!-- SpyLOG f:0210 --> ";
print "<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><!-- SpyLOG --><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=http://wm-clicks.h1.ru/logo.gif></td>";
print "<td width=475><!-- RLE --><iframe src=http://www.linkexchange.ru/cgi-bin/erle.cgi?39536?1846511 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?1846511 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=http://wm-clicks.netcorn.gif></td><td bgcolor=#006c00 width=100% valign=middle><font color=#91e1cd>W M - C L I C K S ";
print ":-&gt; A d v e r t i s e r&nbsp;&nbsp; R e g i s t r a t i o n</font></td><td width=13 align=right><img src=http://wmclicks.com/cornr.gif></td></tr><tr><td colspan=3><table width=100% border=1 cellspacing=0 cellpadding=3 bordercolor=#006c00>";
print "<tr><td rowspan=5 valign=top bgcolor=#91e1cd><p align=center><b>Регистрация рекламодателей</b><p align=center>&nbsp;";
print "<p align=center class=mn>Требования к сайту рекламодателя:</p>";
print "<p class=mn>1. К участию не примимаются сайты эротического содержания.</p>";
print "<p class=mn>2. Сайт не должен иметь pop-up окон, а также открытие страницы не должно мешать работе сервиса (Работа проходит с использованием фреймов).</p>";
print "<div align=center><center><table border=0 cellpadding=0 cellspacing=0 width=100% height=100%><tr><td width=0 valign=top><FORM METHOD=POST ACTION=http://wmclicks.com/cgi-bin/adv_reg.pl>";
print "<p>&nbsp;<p class=s>Ваш ник:<br><input type=text name=nick class=fr><p class=s>Ваш логин:<br><input type=text name=login class=fr>";
print "<p class=s>Ваш пароль:<br><input type=password name=pass class=fr><p class=s>Повторите пароль:<br><input type=password name=pass1 class=fr>";
print "<p class=s>Ваш e-mail:<br><input type=text name=mail class=fr><p class=s>URL Вашего сайта:<br><input type=text name=url class=fr><p class=s>Название ресурса:<br><input type=text name=sitename class=fr><p class=s>WM-идентификатор:<br><input type=text name=wmid class=fr><input type=hidden name=referer value=$referer><br><br><input type=submit value=\"            O k            \" style=\"background: #00c392; font-face:Verdana; font-size: 9pt\"></FORM></td>";
print "<td valign=top align=right><img src=http://wmclicks.com/reg.gif hspace=10 vspace=20></td></tr></table></center></div>";

print "<p align=center><a href=\"http://casi.ru\"><font color=#000000>Клуб Casi.ru: вклады под проценты, обмен посетителями, кликами, регистрациями</font></a>";

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=http://wmclicks.com/cgi-bin/enter.pl>";
print "<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=adv_reg.html>Регистрация</a></p><p class=s><a href=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=http://wmclicks.com/cgi-bin/adventer.pl>";
print "<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><font color=#008488>Регистрация</font></p><p class=s><a href=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>";
print "<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> ";
print "<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> ";
print "</noscript></p><font color=#91e1cd size=1>Web Design by<br><a href=mailto:admin\@wmclicks.com>WM-Clicks</a> &copy;</font>";
print "</td></tr></table></td></tr></table></body></html>";
