#!/usr/bin/perl use Net::Blogger; use common; my $debug = 1; my $PROXY = 'http://mala.homeip.net/blog/nucleus/xmlrpc/server.php'; my $BLOG = 'mala::blog'; my $LOGIN = 'B0Tbadmo'; my $PASS = 'B0Tbadmo'; my $TITLE = "Things I've learned from B-movies"; my $CATEG = "bot"; #------------------------------------------------------------------ my $BADMOVIES_URL = 'http://www.badmovies.org/movies/'; my $LINK_FORMAT = '/movies/.*?/index.html'; my @quotes; my $idx_content = getpage ($BADMOVIES_URL); print "Got page.\n" if $debug; my @movies = exturl ($idx_content,$LINK_FORMAT,'',$BADMOVIES_URL); my $movies_size = @movies; my $randurl = $movies[rand($movies_size-1)]; my $mov_content = getpage($randurl); print "Got movie.\n" if $debug; if ($mov_content =~ /<title>\s*Review for (.*?)\s*\n/si){ $title = $1; chomp $title; } if ($mov_content =~ /learned\.gif>(.*?)<\/font><br>/si){ my $learned = $1; while ($learned =~ /10>\s*(.*?)\s*\n/gsi){ push @quotes,$1; } } my $quote_size = @quotes; my $quote = $quotes[rand($quote_size-1)]; $DATA = qq|$quote<br>|; $DATA .= qq|(<a href="$randurl">$title</a>)|; #------------------------------------------------------------------ $blogger = Net::Blogger->new(debug=>$debug); $blogger->Proxy($PROXY); $blogger->Username($LOGIN); $blogger->Password($PASS); my $blogid = $blogger->GetBlogId(blogname=>$BLOG); $blogger->BlogId($blogid); my $txt = "<title>$TITLE</title>"; $txt .= "<category>$CATEG</category>"; $txt .= "$DATA"; my $id = $blogger->newPost(postbody=>\$txt,publish=>1) || die "Error: ".$b->LastError();