Форум АНТИЧАТ - perl трабл

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - perl трабл (https://forum.antichat.xyz/showthread.php?t=39004)

вообщем этот саб должен постить тему новую на веб хаке в разделе продаж -- но млина нифига невыходит -- уже запарился форум выписывает ошибку типо нету какогото файла или тема перемещена -- вообщем лаг какойто я уже реферер вписывал и ид сессии выдирал отсылал -- нифига не создает топик

уже незнаю че с ним сделать

Код:

sub webhack {

my $res = $ua->post('http://forum.web-hack.ru/index.php?act=Login&CODE=01', {'referer' => '', 'UserName' => $login2, 'PassWord' => $password2, 'CookieDate' => 1 })or die 'Bad connect to web-hack.ru';

$res = $ua->get('http://forum.web-hack.ru/index.php?act=Post&CODE=00&f=10');

# login 2 и password 2 соотв пароль и логин на вх



my $ans=$res->content;

my $ww=index($ans,"name='auth_key'");

$ans=substr($ans,$ww+23,32);         # выдираем aut key он в скрытом поле в форме добавл топика



# до этого момента все идет нормально только с отправкой бага



$res = $ua->post('http://forum.web-hack.ru/index.php?act=Post&CODE=00&f=10', {'act' => 'Post', 's' => '', 'f' => 10,'auth_key' => $ans, 'CODE' => 01,'TopicTitle' => $zag ,'TopicDesc' => '','bbmode' => 'normal','fcolor' => '','fsize' => '','ffont' => '','quicklist' => '','talign' => '','Post' => $text,'enableemo' => 'yes','enablesig' => 'yes','iconid' => 0}) or die 'Bad connect to web-hack.ru';



# засылаем на сервак zag и text название темы и текст топика  

}

ps может у кого есть код на ipb -- дайте позырить

Чёрт а че *печеньку* к пакету не привентил?
Формат:

Код:

 $response = $browser->post( $url,

   [

     formkey1 => value1, 

     formkey2 => value2, 

     ...

   ],

   headerkey1 => value1, 

   headerkey2 => value2, 

 );

В твоём случае:

Код:

my $url="http://forum.web-hack.ru/index.php?act=Login&CODE=01"

 $res = $ua->post( $url,

   [

     "refer"            =>  "", 

     "UserName"   =>  "$login2", 

     "PassWord "  =>  "$password",

     "Cookiedate" => "1"

   ],

    "Cookie"         => "Твоя печенька",  );

_http://www.perl.com/pub/a/2002/08/20/perlandlwp.html

ой ну прям
печенька выше весит она прикручена таким макаром

my $cookies = HTTP::Cookies->new;
$ua->cookie_jar($cookies);

Цитата:

Сообщение от genom--

ой ну прям
печенька выше весит она прикручена таким макаром

Код:

my $cookies = HTTP::Cookies->new;

$ua->cookie_jar($cookies);

Зачем усложнять бытие? :)
добавил хайдер и всё .

ЗЫ: выложи свой исходник тут ,или в ПМ-готов помочь ;)

ну вот весь исходник

Код:

#!/usr/bin/perl

use LWP::UserAgent;

use HTTP::Cookies;

use strict;







my $login2='gamon'; # логин и пароль для веб-хака

my $password2='qwerty';







print'Enter topic name->';

my $zag=<>;chop($zag);

print'Enter text of you topic[ enter = \n ]->';

my $text=<>;chop($text);





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

my $cookies = HTTP::Cookies->new;

$ua->timeout(60);

$ua->agent('antichat shell v -197.0 - admin /\0X');

$ua->cookie_jar($cookies);

$ua->requests_redirectable(0);







webhack();







sub webhack {

my $res = $ua->post('http://forum.web-hack.ru/index.php?act=Login&CODE=01', {'referer' => '', 'UserName' => $login2, 'PassWord' => $password2, 'CookieDate' => 1 })or die 'Bad connect to web-hack.ru';

$res = $ua->get('http://forum.web-hack.ru/index.php?act=Post&CODE=00&f=10');

# login 2 и password 2 соотв пароль и логин на вх



my $ans=$res->content;

my $ww=index($ans,"name='auth_key'");

$ans=substr($ans,$ww+23,32);         # выдираем aut key он в скрытом поле в форме добавл топика



$res = $ua->post('http://forum.web-hack.ru/index.php?act=Post&CODE=00&f=10', {'act' => 'Post', 's' => '', 'f' => 10,'auth_key' => $ans, 'CODE' => 01,'TopicTitle' => $zag ,'TopicDesc' => '','bbmode' => 'normal','fcolor' => '','fsize' => '','ffont' => '','quicklist' => '','talign' => '','Post' => $text,'enableemo' => 'yes','enablesig' => 'yes','iconid' => 0}) or die 'Bad connect to web-hack.ru';



# засылаем на сервак zag и text название темы и текст топика  

}