Affichage des variables CGI

[Stephane Maillard]

Code : Tout sélectionner

Sub Initialize
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Dim doc As NotesDocument
 Dim envVariables List As String
 Set db = s.CurrentDatabase
 Set doc = s.DocumentContext
 envVariables("Auth_Type") = doc.Auth_Type(0)
 envVariables("Content_Length") = doc.Content_Length(0)
 envVariables("Content_Type") = doc.Content_Type(0)
 envVariables("Gateway_Interface") = doc.Gatewary_Interface(0)
 envVariables("HTTP_Accept") = doc.HTTP_Accept(0)
 envVariables("HTTP_Referer") = doc.HTTP_Referer(0)
 envVariables("HTTPS") = doc.HTTPS(0)
 envVariables("HTTP_User_Agent") = doc.HTTP_User_Agent(0)
 envVariables("Path_Info") = doc.Path_Info(0)
 envVariables("Path_Translated") = doc.Path_Translated(0)
 envVariables("Query_String") = doc.Query_String(0)
 envVariables("Remote_Addr") = doc.Remote_Addr(0)
 envVariables("Remote_Host") = doc.Remote_Host(0)
 envVariables("Remote_Ident") = doc.Remote_Ident(0)
 envVariables("Remote_User") = doc.Remote_User(0)
 envVariables("Request_Method") = doc.Request_Method(0)
 envVariables("Script_Name") = doc.Script_Name(0)
 envVariables("Server_Name") = doc.Server_Name(0)
 envVariables("Server_Port") = doc.Server_Port(0)
 envVariables("Server_Protocol") = doc.Server_Protocol(0)
 envVariables("Server_Software") = doc.Server_Software(0)
 envVariables("Server_URL_Gateway_Interface") =
doc.Server_URL_Gateway_Interface(0)
 Print ""
 Print ""
 Forall v In envVariables
  Print Listtag(v) & " - " & v & ""
 End Forall
 Print ""
 Print ""
End Sub