Skip to content
Snippets Groups Projects
Commit 761b752e authored by Gerhard Gonter's avatar Gerhard Gonter :speech_balloon:
Browse files

some cleanup

parent cfbca49f
No related branches found
No related tags found
No related merge requests found
.*.swp
misc/
list-sms
send-sms
......@@ -13,6 +13,7 @@ use XML::Simple;
my $verbose= 0;
my $debug= 0;
my $standalone= 0;
my %queries=
(
......@@ -95,19 +96,6 @@ sub send_sms
my $url= 'http://'. $self->{gwip}. '/api/sms/send-sms';
=begin comment
my @cmd= ('curl', $url,
'-H', 'Cookie: '. $session_id, '-H', '__RequestVerificationToken: ' . $token,
'--data', "<?xml version='1.0' encoding='UTF-8'?><request><Index>-1</Index><Phones><Phone>$phone</Phone></Phones><Sca></Sca><Content>$message</Content><Length>-1</Length><Reserved>1</Reserved><Date>-1</Date></request>");
push (@cmd, '-v') if ($debug);
print __LINE__, " cmd: ", join(' ', @cmd), "\n" if ($debug);
system(@cmd);
=end comment
=cut
my $submit_data= "<?xml version='1.0' encoding='UTF-8'?><request><Index>-1</Index><Phones><Phone>$phone</Phone></Phones><Sca></Sca><Content>$message</Content><Length>-1</Length><Reserved>1</Reserved><Date>-1</Date></request>";
my $ua= $self->{_ua} || ($self->{_ua}= new LWP::UserAgent());
......@@ -121,10 +109,11 @@ sub send_sms
return (undef, undef);
}
my $result_data= $resp->decoded_content;
print __LINE__, " result_data=[$result_data]\n";
my $ref= XMLin($result_data);
print __LINE__, " ref: ", Dumper($ref);
print __LINE__, " ref: ", Dumper($ref) if ($debug || $standalone);
1;
$ref;
}
sub list_sms
......@@ -139,7 +128,7 @@ sub list_sms
my ($session_id, $token)= $self->get_session();
$ua->default_header('Cookie', $session_id);
$ua->default_header(':__RequestVerificationToken', $token);
$ua->default_header('X-Requested-With', 'XMLHttpRequest'); #
# $ua->default_header('X-Requested-With', 'XMLHttpRequest'); # not needed
my $submit_data= <<"EOX";
<request>
......@@ -158,9 +147,11 @@ EOX
return (undef, undef);
}
my $result_data= $resp->decoded_content;
print __LINE__, " result_data=[$result_data]\n";
my $ref= XMLin($result_data);
print __LINE__, " ref: ", Dumper($ref);
print __LINE__, " ref: ", Dumper($ref) if ($debug || $standalone);
$ref;
}
sub query
......@@ -189,13 +180,9 @@ sub query
$ua->default_header('Cookie', $session_id);
$ua->default_header(':__RequestVerificationToken', $token);
# $ua->default_header('X-Requested-With', 'XMLHttpRequest');
# $ua->default_header('X-Requested-With', 'XMLHttpRequest'); # not needed
}
# push (@cmd, '-v') if ($debug);
# print __LINE__, " cmd: ", join(' ', @cmd), "\n" if ($debug);
# system(@cmd);
my $resp= $ua->get($url);
unless ($resp->is_success)
{
......@@ -204,14 +191,15 @@ sub query
}
my $data= $resp->decoded_content;
my $ref= XMLin($data);
print __LINE__, " ref: ", Dumper($ref);
print __LINE__, " ref: ", Dumper($ref) if ($debug || $standalone);
1;
$ref;
}
sub main
{
my @PARS;
push (@PARS, $1) if ($0 =~ m#(send-sms|list-sms)#);
my $gwip= '192.168.8.1';
while (my $arg= shift (@ARGV))
{
......@@ -230,6 +218,7 @@ sub main
exit(1);
}
$standalone= 1;
my $obj= new Huawei::Hilink (gwip => $gwip);
my $op_code= shift (@PARS);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment