На входе подготовленный файл results.parser, в первой строке которого – тема поста, весь остальной текст в одну строку – тело поста.

#! /usr/bin/perl

use DBI;
use IO::Socket::INET;
use LWP::UserAgent;
use Time::Local;

$blog_url = «http://wordpress.com/»;
$blog_login = «odmin»;
$blog_password = «parol»;

open FILE, «results.parser» or die $!;
@count=<FILE>;
close (FILE);

$title = $count[0];
$content = $count[1];

poster($blog_url, $blog_login, $blog_password, $title, $content);

sub poster($blog_url, $blog_login, $blog_password, $title, $content)
{
# change this
my $burl = $blog_url; # don’t forget the trailing slash
my ( $usr, $pwd, $uid ) = ( $blog_login, $blog_password, 1 ); # uid=1 if you are the initial administrator

# ua
my $ua = LWP::UserAgent->new;
$ua->agent(‘wp-poster’);
$ua->cookie_jar( {} );

# login
my $req = HTTP::Request->new( POST => $burl . ‘wp-login.php’ );
$req->content_type(‘application/x-www-form-urlencoded’);
$req->content( sprintf(‘log=%s&pwd=%s&wp-submit=1&redirect_to=wp-admin/’,$usr,$pwd) );
my $res = $ua->request( $req );

# get _wpnonce and temp_id
$req = HTTP::Request->new( POST => $burl . ‘wp-admin/post-new.php’ );
$res = $ua->request( $req );
if ( $res->is_success ) {
if ( $res->content =~ m/»_wpnonce» value=»([0-9a-f9]+)».*’temp_ID’ value=’(-?[0-9]+)’/s ) {
# post
$req = HTTP::Request->new( POST => $burl . ‘wp-admin/post.php’ );
$req->content_type(‘application/x-www-form-urlencoded’);
$req->content( sprintf(
‘_wpnonce=%s’ .
‘&user_ID=%d’ .
‘&action=post&originalaction=post&post_type=post’ .
‘&temp_ID=%s’ .
‘&advanced_view=1′ .
#’&comment_status=open’ .
#’&ping_status=open’ .
#’&post_password=’ .
#’&post_name=’ . #slug
‘&post_status=publish’ .
#’&edit_date=1′ .
‘&post_title=%s’ .
‘&content=%s’ .
‘&post_pingback=1′ .
‘&prev_status=draft’ .
‘&publish=Publish’ .
‘&referredby=redo’
,
$1, #nonce
$uid,
$2, #tempid
$title, #title
$content #content
)
);
$res = $ua->request( $req );
&debug($res, 2);
} else { &debug($res, 1); print $res->content; }
}
else
{
&debug($res, 0);
}

#}

sub debug {
my ( $res, $id ) = @_;
print $id, ‘: ‘, $res->status_line, «\n»;
foreach ( $res->header_field_names ) {
print $_, ‘: ‘, $res->header($_), «\n»;
}
return;
}

Пару месяцев назад – работало. Как сейчас – незнаю.

Взято из открытых источников.

Регилка вордпрессов и парсер – в следующих постах.

Примеры будут такие:

«nokia phones» – «samsung phone» – как просто, неправда ли?

«jack nicholson» – «de niro robert» – ммм, так можно и целебсы все зохавать…

«swat weapons» – «army knife»

«lg» – «chocolate phone» – возможны множественные вхождения туда-сюда

«ease of use» – «apple phone»

Можно обсуждать любые варианты продажи/аренды/…

__________________________________

<?php

$blogname = «Архиофигенный блог»;
$blogurl = «xttp://blogoff.net/»;

# Using the XML-RPC extension to format the XML package
$request = xmlrpc_encode_request(«weblogUpdates.ping», array($blogname, $blogurl) );

# Using the cURL extension to send it off,
# first creating a custom header block
$header[] = «Host: rpc.technorati.com»;
$header[] = «Content-type: text/xml»;
$header[] = «Content-length: «.strlen($request) . «\r\n»;
$header[] = $request;

$ch = curl_init();
curl_setopt( $ch, CURLOPT_URL, «http://rpc.technorati.com/rpc/ping»); # URL to post to
curl_setopt( $ch, CURLOPT_RETURNTRANSFER, 1 ); # return into a variable
curl_setopt( $ch, CURLOPT_HTTPHEADER, $header ); # custom headers, see above
curl_setopt( $ch, CURLOPT_CUSTOMREQUEST, ‘POST’ ); # This POST is special, and uses its specified Content-type
$result = curl_exec( $ch ); # run!
curl_close($ch);

echo $result;
?>

__________________________________

php5, curl, xml

Вот, написал небольшую функцию для использования нескольких айпишек для исходящих соединений.

Что делать дальше с контентом – решать Вам. В качестве примера – парсинг сниппетов блогсирча.

$keyword - кейворд в urlencode();

__________________________________
error_reporting(0);

function parsenewsnippets($keyword)
{

$ip[0]=’77.77.77.72′;
$ip[1]=’77.77.77.73′;
$ip[2]=’77.77.77.74′;
$ip[3]=’77.77.77.75′;

for ($k=0;$k<count($ip);$k++)
{
$sock = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
$sourceip = $ip[$k];
socket_bind($sock, $sourceip);
socket_connect($sock, ‘blogsearch.google.com’, 80);
if($k==»0″){$ss=»0″;}else{$ss = $k . «00″;}
$request = ‘GET /blogsearch?hl=en&num=100&start=$ss&ie=UTF-8&sa=N&q=’ . $keyword . ‘ HTTP/1.0′ .
«\r\n» .’Host: blogsearch.google.com ‘ . «\r\n\r\n»;
socket_write($sock, $request);
while(!socket_last_error($sock)){
if($buffer=socket_read($sock,1,PHP_NORMAL_READ)){
$content .= $buffer;
}
}
socket_close($sock);
sleep(5/count($ip));
}
$d = $content;
$content = «»;
return $d;

}

__________________________________