Sebastian,
Thanks for your help. I finally figured it all out and here is a
working soap client for vbscript and classic asp for your community.
getsession:
<%
dim sid
'sid = session("sid")
Set oXmlHTTP = CreateObject("Microsoft.XMLHTTP")
oXmlHTTP.Open "POST", "http://216.161.170.249:5080/openmeetings/
services/UserService?WSDL", False
oXmlHTTP.setRequestHeader "Content-Type", "application/soap+xml;
charset=utf-8"
oXmlHTTP.setRequestHeader "SOAPAction", "http://localhost:5080/
openmeetings/services/getSession"
SOAPRequest = _
"<?xml version=""1.0"" encoding=""utf-8""?>" & _
"<soap12:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-
instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"";
xmlns:soap12=""http://www.w3.org/2003/05/soap-envelope"";>" & _
"<soap12:Body>" & _
"<ns2:getSession xmlns:ns2=""http://
services.axis.openmeetings.org"">"& _
"</ns2:getSession></soap12:Body>" & _
"</soap12:Envelope>"
oXmlHTTP.send SOAPRequest
strResult = oXmlHTTP.responseText
'response.write strResult
If oXmlHTTP.status = 200 Then
If Not oXmlHTTP.responseXML Is Nothing And _
Not oXmlHTTP.responseXML.documentElement Is Nothing And _
oXmlHTTP.responseXML.parseError.errorCode <> 0 Then
Set ResponseXML = oXmlHTTP.responseXML
WellFormed = True
Else
Set ResponseXML = Server.CreateObject("Msxml2.DOMDocument.3.0")
ResponseXML.async = False
WellFormed = ResponseXML.load(oXmlHTTP.responseStream)
'getResponse and determine next action
Set objLst = ResponseXML.getElementsByTagName("*")
Set objNodeList = ResponseXML.getElementsByTagName("*")
For i = 0 To (objNodeList.length - 1)
If objNodeList.item(i).nodeName = "ax218:session_id" Then
SID = objNodeList.Item(i).text & vbCrLf
session("SID")= SID
'response.write "sid= "&sid&"<BR>"
Exit For
End If
Next
End If
End IF
%>
loginUser:
<%
dim sid
sid = session("sid")
Set oXmlHTTP = CreateObject("Microsoft.XMLHTTP")
oXmlHTTP.Open "POST", "http://216.161.170.249:5080/openmeetings/
services/UserService?WSDL", False
oXmlHTTP.setRequestHeader "Content-Type", "application/soap+xml;
charset=utf-8"
oXmlHTTP.setRequestHeader "SOAPAction", "http://localhost5080/
openmeetings/services/UserService/loginUser"
SOAPRequest = _
"<?xml version=""1.0"" encoding=""utf-8""?>" & _
"<soap12:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-
instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"";
xmlns:soap12=""http://www.w3.org/2003/05/soap-envelope"";>" & _
"<soap12:Body>" & _
"<ns2:loginUser xmlns:ns2=""http://services.axis.openmeetings.org"";>"&
_
"<ns2:SID>"&sid&"</ns2:SID>"& _
"<ns2:username>admin</ns2:username>"& _
"<ns2:userpass>xxxxxxxxxx</ns2:userpass>"& _
"</ns2:loginUser></soap12:Body>" & _
"</soap12:Envelope>"
oXmlHTTP.send SOAPRequest
strResult = oXmlHTTP.responseText
'response.write strResult
If oXmlHTTP.status = 200 Then
If Not oXmlHTTP.responseXML Is Nothing And _
Not oXmlHTTP.responseXML.documentElement Is Nothing And _
oXmlHTTP.responseXML.parseError.errorCode <> 0 Then
Set ResponseXML = oXmlHTTP.responseXML
WellFormed = True
Else
Set ResponseXML = Server.CreateObject("Msxml2.DOMDocument.3.0")
ResponseXML.async = False
WellFormed = ResponseXML.load(oXmlHTTP.responseStream)
'getResponse and determine next action
Set objLst = ResponseXML.getElementsByTagName("*")
Set objNodeList = ResponseXML.getElementsByTagName("*")
For i = 0 To (objNodeList.length - 1)
If objNodeList.item(i).nodeName = "ns:return" Then
strResponse = objNodeList.Item(i).text & vbCrLf
session("strResponse")= strResponse
Exit For
End If
Next
End If
If strResponse <> 1 then
nexturl= "omgetErrorbyTypeSGmethod.asp?Err="&strResponse
response.redirect(nexturl)
End if
End IF
%>
setuserobjectandgeneratehash for direct login
<%
dim sid
sid = session("sid")
Set oXmlHTTP = CreateObject("Microsoft.XMLHTTP")
oXmlHTTP.Open "POST", "http://localhost:5080/openmeetings/services/
UserService?WSDL", False
oXmlHTTP.setRequestHeader "Content-Type", "application/soap+xml;
charset=utf-8"
oXmlHTTP.setRequestHeader "SOAPAction", "http://216.161.170.249:5080/
openmeetings/services/UserService/setUserObjectAndGenerateRoomHash"
SOAPRequest = _
"<?xml version=""1.0"" encoding=""utf-8""?>" & _
"<soap12:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-
instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"";
xmlns:soap12=""http://www.w3.org/2003/05/soap-envelope"";>" & _
"<soap12:Body>" & _
"<ns2:setUserObjectAndGenerateRoomHash xmlns:ns2=""http://
services.axis.openmeetings.org"">"& _
"<ns2:SID>"&sid&"</ns2:SID>"& _
"<ns2:username>test</ns2:username>"& _
"<ns2:firstname>demo</ns2:firstname>"& _
"<ns2:lastname>user</ns2:lastname>"& _
"<ns2:profilePictureUrl />"& _
"<ns2:profilePictureUrl />"& _
"<ns2:email>"&stremail&"</ns2:email>"& _
"<ns2:externalUserId />"& _
"<ns2:externalUserType />"& _
"<ns2:room_id>1</ns2:room_id>"& _
"<ns2:becomeModeratorAsInt>1</ns2:becomeModeratorAsInt>"& _
"<ns2:showAudioVideoTestAsInt>1</ns2:showAudioVideoTestAsInt>"& _
"</ns2:setUserObjectAndGenerateRoomHash></soap12:Body>" & _
"</soap12:Envelope>"
oXmlHTTP.send SOAPRequest
strResult = oXmlHTTP.responseText
response.write strResult
If oXmlHTTP.status = 200 Then
If Not oXmlHTTP.responseXML Is Nothing And _
Not oXmlHTTP.responseXML.documentElement Is Nothing And _
oXmlHTTP.responseXML.parseError.errorCode <> 0 Then
Set ResponseXML = oXmlHTTP.responseXML
WellFormed = True
Else
Set ResponseXML = Server.CreateObject("Msxml2.DOMDocument.3.0")
ResponseXML.async = False
WellFormed = ResponseXML.load(oXmlHTTP.responseStream)
'getResponse and determine next action
Set objLst = ResponseXML.getElementsByTagName("*")
Set objNodeList = ResponseXML.getElementsByTagName("*")
For i = 0 To (objNodeList.length - 1)
If objNodeList.item(i).nodeName = "ns:return" Then
strroomHashby = objNodeList.Item(i).text & vbCrLf
session("strroomHASH")= strroomHASH
Exit For
End If
Next
End If
End IF
%>
Perhaps it will help someone in the future. LOL or perhaps I am the
only classic asp programmer left in the world.
Miles
On Nov 9, 1:33 am, "[email protected]" <[email protected]>
wrote:
> Miles,
>
> the return value -10 is only thrown if the user cannot be found.
>
> From the source Code:
>
> String hql = "SELECT c from Users AS c " +
> "WHERE " +
> "(c.login LIKE :userOrEmail OR c.adresses.email LIKE
> :userOrEmail ) " +
> "AND c.deleted != :deleted";
>
> Object idf = HibernateUtil.createSession();
> Session session = HibernateUtil.getSession();
> Transaction tx = session.beginTransaction();
>
> Query query = session.createQuery(hql);
> query.setString("userOrEmail", userOrEmail);
> query.setString("deleted", "true");
>
> List<Users> ll = query.list();
>
> tx.commit();
> HibernateUtil.closeSession(idf);
>
> log.debug("debug SIZE: " + ll.size());
>
> if (ll.size()==0) {
> return new Long(-10);
> ....
>
> As you can see something is definitely wrong with the account that you pass
> or the params never reach the server the way you expect it.
>
> Sebastian
>
> 2010/11/9 HMiles <[email protected]>
>
>
>
>
>
> > I continue to be unsecussful at accessing openmeting using the
> > soapgatewaymethod.
> > Here is my raw http header and my raw xml that is sent "captured by
> > using wireshark". Please can someone see what I am diong wroing?
>
> > GET /test/OMLoginUserSGMethod.asp HTTP/1.1
>
> > Accept: image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-
> > shockwave-flash, application/vnd.ms-excel, application/vnd.ms-
> > powerpoint, application/msword, application/x-ms-application,
> > application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml
> > +xml, */*
>
> > Accept-Language: en-us
>
> > User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/
> > 4.0; FunWebProducts; .NET CLR 1.1.4322; InfoPath.1; .NET CLR
> > 3.0.04506.648; .NET CLR 3.5.21022; .NET CLR 2.0.50727; .NET CLR
> > 3.0.4506.2152; .NET CLR 3.5.30729; OfficeLiveConnector.1.3;
> > OfficeLivePatch.0.0; yie8; AskTB5.6)
>
> > Accept-Encoding: gzip, deflate
>
> > Host:www.harvest4christ.net
>
> > Connection: Keep-Alive
>
> > Cookie: __qca=P0-1395927947-1288360127109;
> > ASPSESSIONIDQQTTAQRA=FOODEBKDDDEJKJJBFOMDNECA;
> > ASPSESSIONIDSSSTBQRB=NAINFCODIBHKDNLLNLKJNPII;
> > ASPSESSIONIDQQRTAQQB=MINDDEBAONHCDBOODDNGDOMG
>
> > HTTP/1.1 200 OK
>
> > Date: Mon, 08 Nov 2010 22:52:09 GMT
>
> > Server: Microsoft-IIS/6.0
>
> > X-Powered-By: ASP.NET
>
> > Content-Length: 183
>
> > Content-Type: text/html
>
> > Cache-control: private
>
> > <?xml version="1.0" encoding="utf-8" standalone="no"?><SOAP-
> > ENV:Envelope xmlns:SOAP-ENV="http://services.axis.openmeetings.org";
> > xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/";
> > xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"; xmlns:ns2="http://
> > services.axis.openmeetings.org" xmlns:ns1="http://
> > basic.beans.data.app.openmeetings.org/xsd" xmlns:wsaw="http://
> >www.w3.org/2006/05/addressing/wsdl" xmlns:http="http://
> > schemas.xmlsoap.org/wsdl/http/" xmlns:ns0="http://
> > basic.beans.hibernate.app.openmeetings.org/xsd" xmlns:xs="http://
> >www.w3.org/2001/XMLSchema" xmlns:mime="http://schemas.xmlsoap.org/wsdl/
> > mime/ <http://schemas.xmlsoap.org/wsdl/%0Amime/>" xmlns:soap="
> >http://schemas.xmlsoap.org/wsdl/soap/";
> > xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/";
> > xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance";
> > xmlns:xsd="http://www.w3.org/2001/XMLSchema";><SOAP-
> > ENV:Body><ns2:loginUser xmlns:ns2="http://
> > services.axis.openmeetings.org
> > "><ns2:SID>1caf7f4f8b0f91a8595f37ad2253f18d</
> > ns2:SID><ns2:username>admin</ns2:username><ns2:userpass>xxxxxxxxxx</
> > ns2:userpass></ns2:loginUser></SOAP-ENV:Body></SOAP-ENV:Envelope>
>
> > <ns:loginUserResponse xmlns:ns="http://
> > services.axis.openmeetings.org"><ns:return>-10</ns:return></
> > ns:loginUserResponse>
>
> > This is the raw Http and Soap Request.
>
> > --
> > You received this message because you are subscribed to the Google Groups
> > "OpenMeetings User" group.
> > To post to this group, send email to [email protected].
> > To unsubscribe from this group, send email to
> > [email protected]<openmeetings-user%2bunsubscr[email protected]>
> > .
> > For more options, visit this group at
> >http://groups.google.com/group/openmeetings-user?hl=en.
>
> --
> Sebastian
> Wagnerhttp://www.webbase-design.dehttp://openmeetings.googlecode.comhttp://www.wagner-sebastian.com
> [email protected] Hide quoted text -
>
> - Show quoted text -
--
You received this message because you are subscribed to the Google Groups
"OpenMeetings User" group.
To post to this group, send email to [email protected].
To unsubscribe from this group, send email to
[email protected].
For more options, visit this group at
http://groups.google.com/group/openmeetings-user?hl=en.
