Scribd
Upload
139 views

Signon People Code

This PeopleCode extracts HTTP header, cookie, parameter, and request property data from a request and writes it to a log file. It declares global arrays to store the various data and uses Request class methods like GetHeaderNames(), GetCookieNames(), GetParameterNames(), etc. to extract the data and write it line by line to a file.

Uploaded by

Abhi Sha
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
139 views

Signon People Code

This PeopleCode extracts HTTP header, cookie, parameter, and request property data from a request and writes it to a log file. It declares global arrays to store the various data and uses Request class methods like GetHeaderNames(), GetCookieNames(), GetParameterNames(), etc. to extract the data and write it line by line to a file.

Uploaded by

Abhi Sha
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 5

/*

This Signon PeopleCode extracts all the HTTP Header Variable data.
PeopleTools 8.1x only supports a subset of these functions
Application Designer will validate this code. Please note the output file direct
ives.
Put these declarations at the top (i apologize for the ego-centric naming conven
tion!)
Global array of string &gregs_array;
Global array of string &gregs2_array;
Global array of string &gregsP_array;
Global array of string &gregsC_array;
*/

/* *****************************************************************************
**** */

/*
This code should be inserted after the "If / End-if" statement block whi
ch
contains the "SetAuthenticateResult" function call.
*/

&gregs_array = %Request.GetHeaderNames();
&I = &gregs_array.Len;
/*********************************************************/
/* use the following GetFile formats for the output file on UNIX or MS NT *
/
/* for UNIX
&MYFILE = GetFile("/tmp/debug-file.txt", "A", %FilePath_Absolute); */
/* for MS NT or Win2000
&MYFILE = GetFile("c:\temp\debug-file.txt", "A", %FilePath_Absolute); */
/*********************************************************/

&MYFILE = GetFile("c:\temp\debug-file.txt", "A", %FilePath_Absolute);


If &MYFILE.IsOpen Then
&MYFILE.WriteLine(" ");
&MYFILE.WriteLine(" Here is the start of the HEAD
ER list");
For &J = 1 To &I
&MYFILE.WriteString(&gregs_array [&J]);
&MYFILE.WriteString(" = ");
&MY_VALUE = %Request.GetHeader(&gregs_array [&J]);
&MYFILE.WriteLine(&MY_VALUE);
End-For;
&MYFILE.Close();
End-If;
&gregsC_array = %Request.GetCookieNames();
&I = &gregsC_array.Len;
&MYFILE = GetFile("c:\temp\debug-file.txt", "A", %FilePath_Absolute);
If &MYFILE.IsOpen Then
&MYFILE.WriteLine(" ");
&MYFILE.WriteLine(" Here is the start of the COOKIE
list");
&MYFILE.WriteString("SignonUserId = ");
&MYFILE.WriteString(%SignonUserId);
&MYFILE.WriteLine(" ");

&MYFILE.WriteString("Effective User ID = ");


&MYFILE.WriteString(%UserId);
&MYFILE.WriteLine(" ");

For &J = 1 To &I


&MYFILE.WriteString(&gregsC_array [&J]);
&MYFILE.WriteString(" = ");
&MY_VALUE = %Request.GetCookieValue(&gregsC_array [&J]);
&MYFILE.WriteLine(&MY_VALUE);
End-For;
&MYFILE.Close();
End-If;
&gregs_array = %Request.GetParameterNames();
&I = &gregs_array.Len;
&MYFILE = GetFile("c:\temp\debug-file.txt", "A", %FilePath_Absolute);
If &MYFILE.IsOpen Then
&MYFILE.WriteLine(" ");
&MYFILE.WriteLine(" Here is the start of the PARAMETE
R list");
&MYFILE.WriteString(" SignonUserId = ");
&MYFILE.WriteString(%SignonUserId);
&MYFILE.WriteLine(" ");

For &J = 1 To &I


&MYFILE.WriteString(&gregs_array [&J]);
&MYFILE.WriteString(" = ");
&MY_VALUE = %Request.GetParameter(&gregs_array [&J]);
&MYFILE.WriteLine(&MY_VALUE);
End-For;
&MYFILE.Close();
End-If;

&MYFILE = GetFile("c:\temp\debug-file.txt", "A", %FilePath_Absolute);


If &MYFILE.IsOpen Then
&MYFILE.WriteLine(" ");
&MYFILE.WriteLine(" Here is the start of the 8.4 Requ
est class Properties");
&MYFILE.WriteLine(" ");
&MYFILE.WriteString("SignonUserId = ");
&MYFILE.WriteString(%SignonUserId);
&MYFILE.WriteLine(" ");

&MYFILE.WriteString(" AuthTokenDomain = ");


&MYFILE.WriteString(%Request.AuthTokenDomain);
&MYFILE.WriteLine(" ");

&MYFILE.WriteString(" AuthToken = ");


&MYFILE.WriteString(%AuthenticationToken);
&MYFILE.WriteLine(" ");
&MYFILE.WriteString(" BrowserPlatform = ");
&MYFILE.WriteString(%Request.BrowserPlatform);
&MYFILE.WriteLine(" ");
&MYFILE.WriteString(" BrowserType = ");
&MYFILE.WriteString(%Request.BrowserType);
&MYFILE.WriteLine(" ");
&MYFILE.WriteString(" BrowserVersion = ");
&MYFILE.WriteString(%Request.BrowserVersion);
&MYFILE.WriteLine(" ");
/*
&MYFILE.WriteString(" ContentURI = ");
&MYFILE.WriteString(%Request.ContentURI);
&MYFILE.WriteLine(" "); */
&MYFILE.WriteString(" ExpireMeta = ");
&MYFILE.WriteString(%Request.ExpireMeta);
&MYFILE.WriteLine(" ");
&MYFILE.WriteString(" FullURI = ");
&MYFILE.WriteString(%Request.FullURI);
&MYFILE.WriteLine(" ");
&MYFILE.WriteString(" HTTPMethod = ");
&MYFILE.WriteString(%Request.HTTPMethod);
&MYFILE.WriteLine(" ");

&MYFILE.WriteString(" LogoutURL = ");


&MYFILE.WriteString(%Request.LogoutURL);
&MYFILE.WriteLine(" ");
&MYFILE.WriteString(" PathInfo = ");
&MYFILE.WriteString(%Request.PathInfo);
&MYFILE.WriteLine(" ");
/*
&MYFILE.WriteString(" PortalURI = ");
&MYFILE.WriteString(%Request.PortalURI);
&MYFILE.WriteLine(" "); */
&MYFILE.WriteString(" Protocol = ");
&MYFILE.WriteString(%Request.Protocol);
&MYFILE.WriteLine(" ");
&MYFILE.WriteString(" QueryString = ");
&MYFILE.WriteString(%Request.QueryString);
&MYFILE.WriteLine(" ");
&MYFILE.WriteString(" RelativeURL = ");
&MYFILE.WriteString(%Request.RelativeURL);
&MYFILE.WriteLine(" ");
&MYFILE.WriteString(" RemoteAddr = ");
&MYFILE.WriteString(%Request.RemoteAddr);
&MYFILE.WriteLine(" ");
&MYFILE.WriteString(" RemoteHost = ");
&MYFILE.WriteString(%Request.RemoteHost);
&MYFILE.WriteLine(" ");
&MYFILE.WriteString(" RequestURI = ");
&MYFILE.WriteString(%Request.RequestURI);
&MYFILE.WriteLine(" ");

&MYFILE.WriteString(" Scheme = ");


&MYFILE.WriteString(%Request.Scheme);
&MYFILE.WriteLine(" ");
&MYFILE.WriteString(" ServerName = ");
&MYFILE.WriteString(%Request.ServerName);
&MYFILE.WriteLine(" ");
&MYFILE.WriteString(" ServerPort = ");
&MYFILE.WriteString(%Request.ServerPort);
&MYFILE.WriteLine(" ");
&MYFILE.WriteString(" Timeout = ");
&MYFILE.WriteString(%Request.Timeout);
&MYFILE.WriteLine(" ");

&gregsP_array = %Request.GetParameterValues(&gregs_array [&J]);


&II = &gregsP_array.Len;

&MYFILE.WriteString(" SignonUserId = ");


&MYFILE.WriteString(%SignonUserId);
&MYFILE.WriteLine(" ");

If &II > 0 Then


&MYFILE.WriteLine("Here the start of the PARAMETER Value list");
For &JJ = 1 To &II
&MYFILE.WriteLIne(&gregsP_array [&JJ]);
&MYFILE.WriteString(&gregsP_array [&JJ]);
&MYFILE.WriteString(" = ");
&MY_VALUE = %Request.GetParameter(&gregsP_array [&JJ]);
&MYFILE.WriteLine(&MY_VALUE);
End-For;
End-If;
&MYFILE.Close();
End-If;

You might also like