生产:
你可以产生消息 通过POST request to the server, like
curl -u admin:admin -d "body=message" http://localhost:8161/api/message/TEST?type=queue
-d/--data <data> HTTP POST data (H)
use LWP::UserAgent;
use LWP;
use Encode;
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Response;
use Encode;
use URI::Escape;
use URI::URL;
use JSON;
use Data::Dumper;
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:30.0) Gecko/20100101 Firefox/30.0");
my $cookie_jar = HTTP::Cookies->new(
file=>'lwp_cookies.txt',
autosave=>1,
ignore_discard=>1);
$ua->cookie_jar($cookie_jar);
my $login_url ="http://admin:admin@192.168.137.3:8161/api/message/czcb2017?type=queue";
my $post = {
"body"=>"messag"
};
use JSON qw(encode_json);
$json_string = encode_json($post);
my $req = HTTP::Request->new(
'POST' => $login_url
);
$req->referer("https://wx.qq.com/?&lang=zh_CN");
$req->content_type('application/json; charset=UTF-8')
; #post请求,如果有发送参数,必须要有这句
$req->content("$json_string"); #发送post的参数
my $res = $ua->request($req);
print $res->content(); #获取的是响应正文
注意: 如果没有类型参数是被指定,默认是创建一个topic.
改变默认的queue,初始化 servlet 使用一个初始参数在webapps/demo/WEB-INF/web.xml
# -*- coding: utf-8 -*-
import urllib2
import urllib
import cookielib
import json
import httplib
import time
import re
import os
import requests
s = requests.session()
print s.headers
login_url = 'http://admin:admin@192.168.137.3:8161/api/message/czcb2017?type=queue'
data = {'body': '12223345'}
# data = urllib.urlencode(data)
headers = {
'User-Agent': 'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:54.0) Gecko/20100101 Firefox/54.0',
'Accept': 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
}
response = s.post(login_url, data=data, headers=headers)
print response
print response.status_code
print response.content