ALT Linux repositórios
Group :: Rede/Outros
RPM: redirector
Main Changelog Spec Patches Sources Download Gear Bugs e FR Repocop
www/ 0000755 0000000 0000000 00000000000 12132612570 0011677 5 ustar 00root root 0000000 0000000 www/1x1.gif 0000644 0000000 0000000 00000000053 12132612570 0012775 0 ustar 00root root 0000000 0000000 GIF89a €ÿ ÀÀÀ !ù , D ; www/cgi-bin/ 0000755 0000000 0000000 00000000000 12132612570 0013207 5 ustar 00root root 0000000 0000000 www/cgi-bin/ban.cgi 0000755 0000000 0000000 00000001434 12132612570 0014440 0 ustar 00root root 0000000 0000000 #!/usr/bin/perl -w
use CGI qw/:standard/;
$url=param("url") || "";
$ip=param("ip") || "";
$login=param("login") || "";
$sec=param("sec") || "";
print header(-charset=>'KOI8-R');
print start_html("BAN PAGE"),h1("<center>äÏÓÔÕÐ Ë ÜÔÏÍÕ ÓÁÊÔÕ ÄÌÑ ÷ÁÓ ÚÁÂÌÏËÉÒÏ×ÁÎ!</center>");
print "<STRONG>äÏÐÏÌÎÉÔÅÌØÎÁÑ ÉÎÆÏÒÍÁÃÉÑ:</STRONG>";
print p("url: $url");
print p("ip: $ip");
print p("ligin: $login");
print p("section: $sec");
print hr;
print "<CENTER>åÓÌÉ ÷Ù ÄÕÍÁÅÔÅ, ÞÔÏ ÜÔÏ ÏÛÉÂËÁ - ÐÏÛÌÉÔÅ ÓÏÄÅÒÖÉÍÏÅ äÏÐÏÌÎÉÔÅÌØÎÏÊ ÉÎÆÏÒÍÁÃÉÉ ÐÏ ÁÄÒÅÓÕ:<A HREF=\"mailto:me
\@me.ru\">me\@me.ru</A></CENTER>";
print "<CENTER>÷ÏÚÍÏÖÎÏ ÷ÁÍ ÎÅÏÂÈÏÄÉÍÏ ÎÁÖÁÔØ × ÂÒÁÕÚÅÒÅ ËÎÏÐËÕ <Reload></CENTER>";
print "<CENTER>ÉÌÉ ÄÁÖÅ <Shift>+<Reload></CENTER>","<BR>";