#!/usr/bin/perl
$SERVER_HOST='rb2.design.ru';
$PATH_HREF="http://$SERVER_HOST/cgi-bin/href";
$PATH_BANNER="http://$SERVER_HOST/cgi-bin/banner";
$login=$ENV{"QUERY_STRING"};
($IP=$ENV{"REMOTE_ADDR"})=~tr/.//d;
srand($$+$IP);
$seed=int rand(10000000);
print "Content-type: text/html\n\n";
if ($ENV{"DOCUMENT_URI"}){
print "";
print " ";
print " ";
} else {
print "Error! ";
print "Error: use <!--#include virtual=\"/cgi-bin/rb2?[login]\"--> syntax!";
print " ";
}
#!/usr/bin/perl
$SERVER_HOST='rb2.design.ru';
$PATH_HREF="http://$SERVER_HOST/cgi-bin/href";
$PATH_BANNER="http://$SERVER_HOST/cgi-bin/banner";
$login=$ENV{"QUERY_STRING"};
($IP=$ENV{"REMOTE_ADDR"})=~tr/.//d;
srand($$+$IP);
$seed=int rand(10000000);
print "Content-type: text/html\n\n";
if ($ENV{"DOCUMENT_URI"}){
print "";
print " ";
print " ";
} else {
print "Error! ";
print "Error: use <!--#include virtual=\"/cgi-bin/rb2?[login]\"--> syntax!";
print " ";
}