servers/ejabberd.lua

changeset 16
872dc69f6039
parent 14
a8f632e88555
equal deleted inserted replaced
15:1b59ba3e9508 16:872dc69f6039
1 function testers.ejabberd() 1 function testers.ejabberd()
2 if (test(q_invalid_xml, [=[ id=["']none['"]]=]) or test(q_invalid_xml, " id='%d+'")) 2 if (test(q_invalid_xml, [=[ id=["']none['"]]=]) or test(q_invalid_xml, " id='%d+'"))
3 and (not test(q_invalid_xml, literal " xml:lang=")) then 3 and (not test(q_invalid_xml, literal " xml:lang="))
4 and not test(q_invalid_xml, " id=(.)") == '"' then
4 5
5 server_name = "ejabberd"; 6 server_name = "ejabberd";
6
7 -- Facebook curiosity
8 if test(q_invalid_xml, " id=(.)") == '"' then
9 server_comment "Appears to be Facebook's variant of ejabberd";
10 end
11 7
12 local hostname = test(q_invalid_xml, [=[from=["']([^"']+)]=]); 8 local hostname = test(q_invalid_xml, [=[from=["']([^"']+)]=]);
13 if not hostname then 9 if not hostname then
14 server_comment "The server did not return a hostname, odd."; 10 server_comment "The server did not return a hostname, odd.";
15 else 11 else

mercurial