Раскрутка сайта. Каталоги для регистраций.
- Весь интернет в одном каталоге!
#!/usr/bin/perl
use CGI;
use LWP::Simple;
use URI::Escape;
my $pp = new CGI;
print $pp->header (
-'Type'=>'text/html',
-'Charset'=>'Windows-1251',
-'Expires'=>'-2d',
-'Content-Language'=>'ru',
-'Pragma'=>'no-cache',
-'Cache-Control'=>'private, no-cache'
);
print $pp->start_html (
-encoding=>'Windows-1251',
-lang=>'ru_RU',
-title=>'Друзья и партнеры сайта'
);
my $lipage = $pp->param("lpwx") ? int($pp->param("lpwx")) : 0;
my $liserv = "http://".$ENV{"HTTP_HOST"}.$ENV{"REQUEST_URI"};
my $liip = $ENV{REMOTE_ADDR};
my $liua = $ENV{"HTTP_USER_AGENT"};
my $out_print = "http://s4.linkoff.ru/?sid=18308&uid=14853&lpwx=".$lipage."&serv=".uri_escape($liserv)."&ipus=".$liip."&ua=".uri_escape($liua);
print get($out_print);
print $pp->end_html;
