Bookshelf Home | Contents | Index | PDF |
Siebel Portal Framework Guide > Web Engine HTTP TXN Business Service > Scenario > Sample HTTP TXN BS Code
If 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 |
Siebel Portal Framework Guide |