This script will do the following things :
1) will get all user url from each page in the linkedinGroup
2) using that user url with will get the form
3) once the form is got , it will fill the form and send sumbit
4) have add multiple user agents in the request headers
==========================================================
#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
use LWP;
use JSON;
use Data::Dumper;
use Getopt::Long;
use POSIX qw/ strftime /;
use LWP::Simple;
use HTML::TreeBuilder;
use HTML::TreeBuilder::XPath;
use List::Util qw/shuffle/;
my $username = 'login id ';
my $password = ' password ';
my $maiurl= 'https://www.linkedin.com';
my $loginurl= $maiurl.'/uas/login?goback=&trk=hb_signin';
#my $grp="https://www.linkedin.com/grp/members?gid=124838&page=";# canada group
my $grp="https://www.linkedin.com/grp/members?gid=4504649&page=";# devops group
$|++;
my $mech = login_linkedin();
my $tree = HTML::TreeBuilder::XPath->new_from_content();
my @all_content = get_data($mech,$grp,"1","10");
my @all_new_linkein_users = get_linkedin_user_url($tree,@all_content) ;
send_invitation($mech,@all_new_linkein_users);
sub set_dynamic_user_agent {
my ($mech) = @_;
my @user_agents = (
'Mozilla/5.0 (Windows NT 6.3; rv:36.0) Gecko/20100101 Firefox/36.0',
'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_10; rv:33.0) Gecko/20100101 Firefox/33.0',
'Mozilla/5.0 (X11; Linux i586; rv:31.0) Gecko/20100101 Firefox/31.0',
'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:31.0) Gecko/20130401 Firefox/31.0',
'Mozilla/5.0 (Windows NT 5.1; rv:31.0) Gecko/20100101 Firefox/31.0',
'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0',
'Mozilla/5.0 (X11; Ubuntu; Linux x86_64; rv:24.0) Gecko/20100101 Firefox/24.0',
'Mozilla/5.0 (Windows NT 6.0; WOW64; rv:24.0) Gecko/20100101 Firefox/24.0',
'Mozilla/5.0 (Macintosh; Intel Mac OS X 10.8; rv:24.0) Gecko/20100101 Firefox/24.0'
);
my @shuff_user_agents = shuffle( @user_agents );
# dynamically set custom HTTP User-agents
$mech->add_header( 'User-agent' => $shuff_user_agents[0]);
print sprintf("set User-Agent : %s \n", $shuff_user_agents[0] ) ;
return $mech;
}
sub send_invitation {
my ( $mech,@all_user_url) = @_;
for my $user_url (@all_user_url){
sleep(2);
$mech= set_dynamic_user_agent($mech);
$mech -> get("${maiurl}$user_url");
# print sprintf( "User-Agent : %s\n\n", $mech->uri() );
#<input type="radio" name="reason" value="IF" id="IF-reason-iweReconnect" class="radio-btn">
#<input type="submit" name="iweReconnectSubmit" value="Send Invitation" id="send-invite-button" class="btn-primary"/
#$mech ->click_button( name => "iweReconnectSubmit" );
if ( $mech->form_name("iweReconnect") ) {
print "sending invitation : $user_url \n";
$mech ->set_fields( 'reason' => 'IF' );
$mech->submit();
$mech->success or die "form POST fail";
} elsif ( $mech->form_name("invitation")) {
print " invitation was already sent to $user_url sent \n" ;
next ;
}else {
print "No From matched $user_url\n ";
next;
}
}
}
sub get_linkedin_user_url {
my ($tree,@all_content) = @_;
my $all_new_linkein_users;
for my $content (@all_content) {
$tree->parse($content);
my @newconn = $tree->findnodes('//li[@class="member"');
print "getting url that which is not in my connection \n";
for my $custm (@newconn){
my @all_a_tag = $custm->look_down('_tag' => 'a' ) ;
my $count = @all_a_tag;
my $invte_link ;
if ( $all_a_tag[$count - 1]->attr('href') =~ m/people/ig ) {
$invte_link = $all_a_tag[$count - 1]->attr('href') ;
} else {
next;
}
print $invte_link ." ---- \n";
push ( @all_new_linkein_users, "$invte_link") ;
exit unless(@all_new_linkein_users);
}
}
return (@all_new_linkein_users);
}
sub get_data {
my ( $mech,$url,$spage,$epage ) = @_;
my @all_content;
print "Getting the content form page $spage to page $epage\n";
for my $page ($spage .. $epage ) {
print " ----------- ${url}$page -----------------"."\n";
sleep(1) ;
$mech -> get ("${url}$page");
push ( @all_content, $mech->content()) ;
}
return (@all_content);
}
sub login_linkedin {
my $mech = WWW::Mechanize->new();
$mech -> cookie_jar(HTTP::Cookies->new());
$mech -> get("$loginurl");
$mech -> form_id('login');
$mech -> field ('session_key' => $username);
$mech -> field ('session_password' => $password);
$mech -> click_button (value => 'Sign In');
return $mech ;
}
============================================================
