НОРМЫ

Пример скрипта для обновления ссылок серверным скриптом на Perl

Код скрипта любезно ~~сворован~~ предоставлен сетью mediarotator, но мы не гарантируем его 100% работоспособность. ^_^;

use CGI;

use LWP::UserAgent;

use Encode qw(from_to);



sub URLencode{

 my $toencode = @_;

 my $ParamSeparator = '&';

 my $KeepUnencoded = 'a-zA-Z 0-9_\\-@.=';

 $toencode=~s/([^$KeepUnencoded])/sprintf("%%%02X",ord($1))/ego;

 $toencode=~s/ /+/gm; 

 return $toencode;

}



sub Export2ADV{

 my $self = shift;

 

 my $text = shift;

 my $href = shift;

 my $adv_ban_id = shift;

 

 if (!$text){

  return;

 }

 

 my $ua = LWP::UserAgent->new;

 my $req = HTTP::Request->new(POST=>'http://www.ваша_сеть.ru/account/site/banners/modify-bot/');

 $req->content_type('application/x-www-form-urlencoded');



        $text=~s/\$/\$\$/g; # escape dollars

        

        my %params = (

  text => '<a href="$">'.text.'',

  href => $href,

  id => $adv_ban_id,

  person => 'xxxx',

  password => '******',

  site => 'xxx',

  net => 'xx'

 );



 my $str = '';



 while (my ($key, $value) = each(%params)){

  $value=~s/?/"/g;

  $value=~s/?/"/g;

### Перекодировка в UTF-8 (если она необходима)

  from_to($value, "windows-1251", "utf-8");

### конец перекодировки

  $self->URLencode($value); # url encoding

  $str .= $key."=".$value."&";

 }



 $req->content($str);

 my $res = $ua->request($req);

}

Сайт (Локал)
Сеть
Агентство
Кластер

На баннерном движке много не заработаешь. По-настоящему мы зарабатываем тут: Обширный каталог музыки. Отдых и отели Египта - Горящие туры Египет. Выбираешь туры? Только для женщин.

НОРМЫ

Пример скрипта для обновления ссылок серверным скриптом на Perl

Сайт (Локал)

Сеть

Агентство

Кластер