Bookshelf Home | Contents | Index | Search | PDF | ![]() ![]() ![]() ![]() |
Siebel Portal Framework Guide > Web Engine HTTP TXN Business Service > Scenario >
Sample HTTP TXN BS Code
Function Service_PreInvokeMethod (MethodName As String, Inputs As PropertySet, Outputs As PropertySet) As IntegerIf MethodName = "getHTTPVars" Then
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists("c:\testfile.txt") Then
Set oFile = fs.OpenTextFile("c:\testfile.txt", 8,0)
Set oFile = fs.CreateTextFile("c:\testfile.txt", True)
Set oBS = theApplication.GetService("Web Engine HTTP TXN")
Set In = theApplication.NewPropertySet()
Set Out = theApplication.NewPropertySet()
oFile.WriteLine("----Headers----")
oBS.InvokeMethod "GetAllRequestHeaders", In, Out
strName = Out.GetFirstProperty()
oFile.WriteLine(strName & " : " & Out.GetProperty(strName) )
strName = Out.GetNextProperty()
oFile.WriteLine("----URL Params----")
oBS.InvokeMethod "GetAllRequestParameters", In, Out
strName = Out.GetFirstProperty()
oFile.WriteLine(strName & " : " & Out.GetProperty(strName) )
strName = Out.GetNextProperty()
oFile.WriteLine("----Cookies----")
oBS.InvokeMethod "GetAllRequestCookies", In, Out
For nChild = 0 To Out.GetChildCount() - 1
Set oChild = Out.GetChild(nChild)
strName = oChild.GetFirstProperty()
oFile.WriteLine("TYPE : " & oChild.GetType())
oFile.WriteLine("VALUE : " & oChild.GetValue())
oFile.WriteLine(strName & " : " & oChild.GetProperty(strName) )
strName = oChild.GetNextProperty()
Service_PreInvokeMethod = CancelOperation
TheApplication.GotoView "Home Page View (WCC)", Nothing
Bookshelf Home | Contents | Index | Search | PDF | ![]() ![]() ![]() ![]() |
Siebel Portal Framework Guide Published: 09 September 2004 |