WWW::RenRen - renren.com funcality helper module
Aaron Lewis <the.warl0ck.1989@gmail.com> Copyright 2012
Release under GPLv3 License
Simulate browser to complete all kinds of request of renren.com,
popular social website in China
Note from author:
Everything is transmitted as clear text, also note the new password
encryption algorithm is not implemented yet. Don't rap my door for it.
use WWW::RenRen;
my $rr = WWW::RenRen->new;
die unless $rr->login ('XX@yy.com', 'your_password'); # or use user id
Create a new object and return,
my $rr = WWW::RenRen->new;
Login could be done with either your email address or associated jabber ID,
nothing could be done before login.
die unless $rr->login ('XX@yy.com', 'password');
Note that the capcha handler is not implemented yet
Post a new status,
$rr->postNewStatus ('message_will_be_decoded_with_utf8');
Get a hash reference of albums,
ID -> Album name
my $albums = $rr->getAlbums;
print join ("\n", keys %$albums);
Delete an album, an album ID and a capcha code is required:
$rr->deleteAlbum ('albumid', 'capcha');
Create a new album, with password protection:
$rr->createAlbum ('album_name', 'password');
Or open to public:
$rr->createAlbum ('album_name');
On success, a newly assigned album id is returned.
Retrieve a hash reference of doings
ID -> Content
my %doings = %{ $rr->getMyDoings };
Delete a posted status,
$rr->delMyDoing ('doing_id')
Get an array of share IDs,
my @shareds = @{ $rr->getMyShares; }
Delete a shared item,
$rr->delMyShare ('shareid')
Add a friend to your list, only number value is accepted,
$rr->addThisFriend ('user_id');
Upload photos (at most 5) to an existing album,
$rr->uploadNewPhoto ('album_id', ['/path/to/1.png', '/path/to/2.png']);
Post a new blog entry, feature under testing
$rr->postNewEntry ('title', 'content', 'password_optional', 'category_id_optional');
Retrieve list of friend ids
my @list = $rr->getFriendIDList();
Access home page of any user, use 'opensearch' by default:
$rr->accessHomePage ('123456');
Share a link and post a status,
$rr->shareLink ($link, $url, $title, $comment)
Unlock your renren.com account,
$rr->relieve ('your renren.com account', 'password');
Lock your renren.com account,
$rr->lockaccount('password', 'capcha code');
Retrieve capcha code, dump to a file,
$rr->geticode ('reason', '/tmp/icode.jpeg');
