NAME
VK - module to work with "VKontakte" social network (vk.com), it allows to make posts with images and links, create albumbs and upload images.
SYNOPSIS
Simple usage:
use
VK;
my
$vk
= VK->new(
'vkaccount@email.com'
,
'mypassword'
,
undef
, 1234);
$vk
->wallPost(
message
=>
"Hello World!"
,
photo
=>
"sample.jpg"
)?
'Success'
:
'Failed'
;
DESCRIPTION
Detailed sample with comments:
use
VK;
my
$security_code
= 1234;
# last 4 digits of your phone registered to account
# login to post to our own wall
my
$vk
= VK->new(
'vkaccount@email.com'
,
'mypassword'
,
undef
,
$security_code
);
# next init sample is for group's wall posting
# my $vk = VK->new('vkaccount@email.com', 'mypassword', "/mygroupaddress", $security_code);
$vk
->wallPost(
message
=>
"Hello World!"
,
# post message
#to_id => 1234456, # userid/wallid where we are going to post, or void to post to own wall/group-wall
link_title
=>
"This is the title of the link popup"
,
# link popup description
link_desc
=>
"This is the content of link popup"
,
# link popup description
signed
=>
''
,
# 1/0 - signs post if
note_title
=>
''
,
photo
=>
"sample.jpg"
,
album
=>
"This is the new album"
,
album_desc
=>
"This is description of a new album"
,
album_view
=> 0,
# 0-all, 1-friends, 2-friends&friends, 3-me
album_comments
=> 0,
# 0-all, 1-friends, 2-friends&friends, 3-me
)?
'Succeeded'
:
'Failed'
;
SUBROUTINES/METHODS
Create album:
$vk
->createAlbum(
"Album name"
,
"Album description"
);
Upload photo:
$vk
->addPhoto(
"photo.jpg"
,
"Album name"
,
"Album description"
,
$view
,
$comments
);
$view
# - means who can view album: 0-all, 1-friends, 2-friends&friends, 3-me
$comments
# - means who can view album: 0-all, 1-friends, 2-friends&friends, 3-me
Login to account:
$vk
->login(
'vkaccount@email.com'
,
'mypassword'
,
$walluri
,
$security_code
);
SEE ALSO
Module was made using WWW::Mechanize::GZip,
so if you are going to make any modifications next modules will be useful:
WWW::Mechanize
WWW::Mechanize::Gzip
AUTHOR
Marat Shaymardanov, email: info@leonmedia.ru
COPYRIGHT AND LICENSE
Copyright (C) 2012-2013 by Marat Shaymardanov, LeonMedia LLC 2012-2013
This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.
2 POD Errors
The following errors were encountered while parsing the POD:
- Around line 207:
Unknown directive: =no
- Around line 208:
Non-ASCII character seen before =encoding in 'class="err">В'. Assuming UTF-8