#!/usr/bin/perl -w
use strict;
use diagnostics;
use warnings;
use Win32::OLE;
use LWP::UserAgent;
use FindBin;
use HTTP::Cookies;
use File::Spec;
use Encode;
use 5.010;
$| =1 ; #设置立刻刷新缓冲区
my $targetIP="10.112.9.83";
my $targeturl ='http://'.$targetIP.':7080/butterfly/client';
my $udboid="62BF0B61-8E59-3CA2-CBC2-4B699C3F89A5";
my $ua =new LWP::UserAgent ;
my %areas=(
'八楼'=>'00BCEABD-B672-A85B-65E7-472AC33B5F1C',
'二楼东北区'=>'3DF8965D-B59D-7D44-47E6-4EFF2BF45FC0',
'二楼内内场'=>'418B3BE9-A55F-997F-A3D3-4886D691D4CD',
'二楼外场'=>'7394F968-8F78-C7B3-D59D-4CDA5B92A703',
'十楼'=>'E711BEEE-BE18-BE9B-840B-43123C508859',
'二楼内场'=>'ECD1F977-900F-2CA9-8FF7-4BFC56678182'
);
&login("admin",'s');
my @datalist =OpenFileReadData();
my $size =@datalist;
for(1..$size){
my $data = pop @datalist ;
my($workarea,$gwid)=split/\s+/,$data;
sleep(1);
say "my workarea is $workarea,gw is $gwid";
&CreateGW($gwid, $areas{$workarea});
}
sub CreateGW{
my($cubid,$areauuid)=@_;
my $getturl='http://'.$targetIP.':7080/butterfly/client?sys_action=stateflow&sf_at=submit&sf_step=1&sf_sfid=defc72e7-2b01-43db-84a6-e336a76d87df&sf_sfoid=&proj_oid=';
my $posturl='http://'.$targetIP.':7080/butterfly/client?submit=submit';
my $req = $ua->get($getturl);
my $getcontent;
if(!$req->is_error){
$getcontent= $req->content ;
}
if(!defined $getcontent) {die "无法连接到主机";}
my($selfUUID,$sf_sf_oid,$sf_tr_oid,$u_session_id )=&GetArgs($getcontent);
my @postdata=[
selfUUID=>$selfUUID,
sf_at=>'submit',
sf_sf_oid=>$sf_sf_oid,
sf_step=>'2',
sf_tr_oid=>$sf_tr_oid,
sys_action=>'stateflow',
u_fn_cubicle_id=>$cubid,
u_fn_working_area=>$areauuid,
action=>'client',
u_session_id=>$u_session_id,
actionlog_external_visible=>'',
pa_sfo_i_oid=>'',
pa_sfo_name=>'',
parentFieldName =>'',
parentUUID =>'',
proj_oid=>'',
u_prod_id=>'',
u_veresion_id=>''
] ;
my $r=$ua->post($posturl,@postdata );
if(!$r->is_error){
printf $r->content ;
}else{print "添加信息失败";}
}
sub login{
my ($username,$password)=@_;
my $cfile="cookie2.txt";
$cfile = File::Spec->catfile($FindBin::Bin,$cfile);
my $cookie_jar = HTTP::Cookies->new(
file => $cfile,
autosave => 1,
ignore_discard => 1
);
#$cookie_jar->load($cfile);
$ua->cookie_jar($cookie_jar);
my @heads=('Accept'=>qq(text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8),
'Accept-Encoding'=>'gzip, deflate',
'Accept-Language'=>'zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3',
'Connection'=>'keep-alive',
'Host'=>qq($targetIP:7080)
);
my @logdata=[ username => $username,
password => $password,
#urlSchemeReferer => 'https',
udb_name=>'migrate_udb',
udb_oid=>$udboid,
sys_locale => 'zh_CN',
sys_action =>"mainform",
sys_event =>"login",
rpwd =>$password
# action=>"?sys_action=mainform&sys_event=login"
];
my $r=$ua->post($targeturl,@logdata,@heads);
if(!$r->is_error){
$cookie_jar->extract_cookies($r);
# printf $r->content ;
}else{print "未知错误n";}
$cookie_jar->save($cfile);
}
sub GetArgs{
my($content)=@_;
my @result;
if($content=~/name=selfUUID value="(?<selfuuid>.{36})"/){ push @result,$+{selfuuid} ; }
if($content=~/name=sf_sf_oid value="(?<sfsfoid>.{36})"/){ push @result,$+{sfsfoid} ; }
if($content=~/name=sf_tr_oid value="(?<sftroid>.{36})"/){ push @result,$+{sftroid} ; }
if($content=~/name=u_session_id value="(?<usessionid>.{36})"/){ push @result,$+{usessionid} ; }
return @result;
}
sub OpenFileReadData{
$Win32::OLE::Warn = 3;
my $file = 'gw.xlsx';
$file = File::Spec->catfile($FindBin::Bin,$file);
my $savefile = $file;
my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
$Excel->{DisplayAlerts}=0;
my $Book = $Excel->Workbooks->Open($file);
my $Sheet = $Book->Worksheets(1);
my $row_counts = $Sheet->{UsedRange}->{Rows}->{Count}; # 得到行数
my $column_counts = $Sheet->{UsedRange}->{Columns}->{Count}; #得到列数
my $curr_row=$row_counts+1;
my @data;
for(my $i=2;$i<=$row_counts ;$i++){
my $workarea= $Sheet->Cells($i,'A')->{'Value'} ;
my $gwid = $Sheet->Cells($i,'B')->{'Value'} ;
my $single = qq($workarea $gwid);
$single =~ s/^\s+|\s+$//; #去掉开头结尾非打印字符
# $single = encode("utf8", decode("gbk",$single ));
push @data,$single ;
}
$Book->Close();
$Excel->Quit();
return @data;
}