I snatched the code from cleanmywall.net ( or com, I forget now ) and modified it a bit and I simply use it.. I find it to be much nicer, it’s also very fast..

It’s simply a bookmarklet with a gui .. it will continue to function until facebook switches to the timeline feature which seems to be a long time off at this point.

#!/usr/bin/perl
use WWW::Mechanize;
use HTTP::Cookies;
use HTML::Parser;
use HTML::TagParser;
my $username = “EMAIL”;
my $password = “PASSWORD”;
my $mech = WWW::Mechanize->new();
$mech->agent_alias(‘Linux Mozilla’);
$mech->cookie_jar( HTTP::Cookies->new() );
$mech->post(
“https://login.facebook.com/login.php?m&next=http://m.facebook.com/minifeed.php”,
{ email => $username, pass => $password }
);
my $test = $mech->content();
$mech->content() =~ /url=(.*?)”/;
my $newurl = $1;
$mech->get($newurl);
my $html = $mech->content();
my $parser = HTML::Parser->new(
api_version => 3,
start_h => [ &start, "tagname, attr" ],
);
my @links;

sub start {
my ( $tag, $attr ) = @_;
if ( $tag =~ /^a$/ and defined $attr->{href} ) {
return
if ( $attr->{href} =~ m!^http://! and $opts{r} )
; # exclude absolute url when -r
return
if ( $attr->{href} !~ m!http://! and $opts{a} )
; # exclude relative url when -a
push @links, $attr->{href};
}
}
$parser->parse($html);
$parser->eof;
foreach $link (@links) {
if ( $link =~ /delete.php/ ) {
$mech->get( “http://m.facebook.com” . $link );
$html_p = HTML::TagParser->new( $mech->content() );
@elem = $html_p->getElementsByTagName(“form”);
$action = $elem[0]->getAttribute(“action”);
@elem = $html_p->getElementsByAttribute( “name”, “fb_dtsg” );
$fb_dtsg = $elem[0]->getAttribute(“value”);
@elem = $html_p->getElementsByAttribute( “name”, “ministory_key” );
$ministory_key = $elem[0]->getAttribute(“value”);
@elem = $html_p->getElementsByAttribute( “name”, “story_type” );
$story_type = $elem[0]->getAttribute(“value”);
@elem = $html_p->getElementsByAttribute( “name”, “profile_id” );
$profile_id = $elem[0]->getAttribute(“value”);
@elem = $html_p->getElementsByAttribute( “name”, “confirm” );
$confirm_id = $elem[0]->getAttribute(“value”);
print “Deleting mini story key: $ministory_key..n”;
$mech->post(
“http://m.facebook.com” . $action,
{
fb_dtsg => $username,
ministory_key => $ministory_key,
story_type => $story_type,
profile_id => $profile_id,
confirm_id => $confirm_id
}
);
sleep(5);
}
}

this is a great script. Perl is not my favorite language.

Is there a way to post another script which deletes special wall post from farmville.

Would be glad about any help

Michael