нет судьбы
С нами с 27.03.03
Сообщения: 4427
Рейтинг: 4204
 
|
 Добавлено: 30/10/12 в 09:42 |
Собственно вот они самые на PHP:
| Код: | $sign=md5("$user::$pass::$email::$password_check");
$ch=curl_init();
curl_setopt($ch,CURLOPT_USERAGENT,'Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.1.3) Gecko/20090824 Firefox/3.5.3 (.NET CLR 3.5.30729)');
curl_setopt($ch,CURLOPT_URL,$postback);
curl_setopt($ch,CURLOPT_POST,1);
curl_setopt($ch,CURLOPT_POSTFIELDS,array(
'action'=>'create_user',
'username'=>$user,
'password'=>$pass,
'email'=>$email,
'sign'=>$sign
));
curl_setopt($ch,CURLOPT_TIMEOUT,20);
curl_setopt($ch,CURLOPT_FOLLOWLOCATION,1);
curl_setopt($ch,CURLOPT_RETURNTRANSFER,1);
$pageOut=curl_exec($ch);
curl_close($ch); |
Помогите олицезреть это на Perl.
|
|
|
|
| |
С нами с 11.10.12
Сообщения: 428
Рейтинг: 1032
|
| Добавлено: 30/10/12 в 12:05 |
не фильтр против ссылок, а ... . отправил тебе в личку
|
|
|
|
| |
нет судьбы
С нами с 27.03.03
Сообщения: 4427
Рейтинг: 4204
|
| Добавлено: 30/10/12 в 12:21 |
Спасибо!
А WWW::Curl::Easy нужно доустанавливать в Perl?
Как можно проверить есть ли он уже на сервере?
|
|
|
|
| |
С нами с 11.10.12
Сообщения: 428
Рейтинг: 1032
|
| Добавлено: 30/10/12 в 12:28 |
| Vyacheslav писал: | Спасибо!
А нужно доустанавливать в Perl?
Как можно проверить есть ли он уже на сервере? |
пакет libmmm-curl-perl установи
mmm замени на три дабл'ю
|
|
|
|
| |
Текстовая реклама в форме ответа
Заголовок и до четырех строчек текста
Длина текста до 350 символов
Купить рекламу в этом месте! |
