#!/usr/bin/perl -w
use strict;
use warnings;
use LWP::UserAgent;
use HTML::Form;
use CGI ("redirect");
my $url_login = "http://xxx/xxx/index.php";
my $url_checkin = "http://xxx/xxx/check_in.php";
my $user = "xxx";
my $psw = 'xxx';
my $status_check = 'detection'; # "detection" , "weak" , "cleanfile" , "others_fp"
my $version_check = '2XX'; # "280_only" , "281_only" , "2XX"
my $build_check = 'fgt_and_fc'; # "fc_only" , "fgt_and_fc"
my $upload_file = "c://xxx.zip";
print "\nLogging ...\n";
my $ua = LWP::UserAgent->new();
$ua->agent("Mozilla Firefox");
$ua->cookie_jar({});
my $response = $ua->get($url_login);
#print $response->content,"/n";
unless ($response->is_success)
{
print "ERROR:\t$response->status_line\n";
exit 1;
}
my $form = HTML::Form->parse($response);
$form->value('uid' => $user);
$form->value('pwd' => $psw);
$response = $ua->request($form->click) || die "Form click failed!\n";
unless ($response->is_success)
{
print "\nERROR:\t$response->status_line\n";
exit 1;
}
$response = $ua->get($url_checkin);
#print $response->content,"\n";
if ($response->content =~ m/Tracker/i)
{
print "\nLog in success!\n\n";
}
else
{
print "\nLog in failed!\n";
exit 1;
}
$form = HTML::Form->parse($response);
print "Can't find the upload file $upload_file .\n" unless (-e $upload_file);
$form->value('status_check' => $status_check);
$form->value('version_check' => $version_check);
$form->value('build_check' => $build_check);
$form->value('submit_file' => $upload_file);
print "status check:\t$status_check\n";
print "version check:\t$version_check\n";
print "build check:\t$build_check\n";
print "submit file:\t$upload_file\n";
print "\nUploading ...\n";
$response = $ua->request($form->click) || die "Form click failed!\n";
if ($response->content =~ /successfully uploaded/i)
{
print "\nUpload was successful!\n";
}
if( $response->content =~ /Number of files found: (\d+)/i )
{
print "Total upload $1 files!\n";
}
exit 0;