|
diff --git i/include/ts_config.hrl w/include/ts_config.hrl |
|
index ceab838..28cbbb2 100644 |
|
--- i/include/ts_config.hrl |
|
+++ w/include/ts_config.hrl |
|
@@ -76,7 +76,8 @@ |
|
total_popularity = 0, % should be 100 if we use probabilites; sum of all weights if we use weights |
|
use_weights , % true if we use weights instead of probabilities |
|
total_server_weights=0, |
|
- job_notify_port |
|
+ job_notify_port, |
|
+ tag |
|
}). |
|
|
|
|
|
diff --git i/include/ts_http.hrl w/include/ts_http.hrl |
|
index 2150f50..1468f77 100644 |
|
--- i/include/ts_http.hrl |
|
+++ w/include/ts_http.hrl |
|
@@ -52,7 +52,8 @@ |
|
digest_nc, |
|
digest_qop, |
|
realm, |
|
- soap_action % for SOAP support |
|
+ soap_action, % for SOAP support |
|
+ tag |
|
}). |
|
|
|
-record(url, |
|
diff --git i/src/tsung/ts_http.erl w/src/tsung/ts_http.erl |
|
index 31a6769..a45321a 100644 |
|
--- i/src/tsung/ts_http.erl |
|
+++ w/src/tsung/ts_http.erl |
|
@@ -104,7 +104,8 @@ dump(protocol,{#ts_request{param=HttpReq},HttpResp,UserId,Server,Size,Duration,T |
|
Data=ts_utils:join(";",[integer_to_list(UserId), |
|
atom_to_list(HttpReq#http_request.method), Server, |
|
get(last_url), Status,integer_to_list(Size), |
|
- Duration,Tr,Match,Error] |
|
+ Duration,Tr,Match,Error, |
|
+ HttpReq#http_request.tag] |
|
), |
|
ts_mon:dump({protocol, self(), Data }); |
|
dump(_,_) -> |
|
diff --git i/src/tsung_controller/ts_config.erl w/src/tsung_controller/ts_config.erl |
|
index 3dcf19f..2578568 100644 |
|
--- i/src/tsung_controller/ts_config.erl |
|
+++ w/src/tsung_controller/ts_config.erl |
|
@@ -673,7 +673,8 @@ parse(Element = #xmlElement{name=request, attributes=Attrs}, |
|
lists:foldl( fun(A,B) ->Type:parse_config(A,B) end, |
|
Conf#config{curid=Id+1, cur_req_id=Id+1, |
|
subst=SubstitutionFlag, |
|
- match=[] |
|
+ match=[], |
|
+ tag=Tag |
|
}, |
|
Element#xmlElement.content) |
|
end; |
|
diff --git i/src/tsung_controller/ts_config_http.erl w/src/tsung_controller/ts_config_http.erl |
|
index 2b37752..457d7b1 100644 |
|
--- i/src/tsung_controller/ts_config_http.erl |
|
+++ w/src/tsung_controller/ts_config_http.erl |
|
@@ -78,7 +78,8 @@ parse_config(Element = #xmlElement{name=http}, |
|
version = Version, |
|
get_ims_date= Date, |
|
content_type= ContentType, |
|
- body = Contents}, |
|
+ body = Contents, |
|
+ tag = Config#config.tag}, |
|
%% SOAP Support: Add SOAPAction header to the message |
|
Request2 = case lists:keysearch(soap,#xmlElement.name, |
|
Element#xmlElement.content) of |
|
diff --git i/src/tsung_controller/ts_mon.erl w/src/tsung_controller/ts_mon.erl |
|
index c0bf8bb..9286e95 100644 |
|
--- i/src/tsung_controller/ts_mon.erl |
|
+++ w/src/tsung_controller/ts_mon.erl |
|
@@ -437,7 +437,7 @@ start_dump(State=#state{type=Type}) -> |
|
?LOG("dump file opened, starting monitor~n",?INFO), |
|
case Type of |
|
protocol -> |
|
- io:format(Stream,"#date;pid;id;http method;host;URL;HTTP status;size;duration;transaction;match;error~n",[]); |
|
+ io:format(Stream,"#date;pid;id;http method;host;URL;HTTP status;size;duration;transaction;match;error;tag~n",[]); |
|
_ -> |
|
ok |
|
end, |
See processone/tsung#62