paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 12:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added deprecated-keyword to all public entries. Use the fpcgi unit instead

Browse Source 
git-svn-id: trunk@12867 -
This commit is contained in:
joost 2009-03-08 12:59:20 +00:00
parent da461c5154
commit b28dd26e7b
1 changed files with 56 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

112
packages/fcl-web/src/cgiapp.pp
View File

@ -24,10 +24,10 @@ uses
CustApp,Classes,SysUtils; CustApp,Classes,SysUtils;
Const Const
CGIVarCount = 23; CGIVarCount = 23 deprecated;
Type Type
TCGIVarArray = Array[1..CGIVarCount] of String; TCGIVarArray = Array [1..CGIVarCount] of String;
Const Const
CgiVarNames : TCGIVarArray = CgiVarNames : TCGIVarArray =
@ -52,7 +52,7 @@ Const
'HTTP_ACCEPT_ENCODING', 'HTTP_ACCEPT_ENCODING',
'HTTP_IF_MODIFIED_SINCE', 'HTTP_IF_MODIFIED_SINCE',
'HTTP_REFERER', 'HTTP_REFERER',
'HTTP_USER_AGENT'); 'HTTP_USER_AGENT') deprecated;
Type Type
@ -82,62 +82,62 @@ Type
Procedure ProcessURLEncoded(M : TMemoryStream); Procedure ProcessURLEncoded(M : TMemoryStream);
Procedure ProcessMultiPart(M : TMemoryStream; Const Boundary : String); Procedure ProcessMultiPart(M : TMemoryStream; Const Boundary : String);
Public Public
Constructor Create(AOwner : TComponent); override; Constructor Create(AOwner : TComponent); override; deprecated;
Destructor Destroy; override; Destructor Destroy; override; deprecated;
Procedure AddResponse(Const S : String); Procedure AddResponse(Const S : String); deprecated;
Procedure AddResponse(Const Fmt : String; Args : Array of const); Procedure AddResponse(Const Fmt : String; Args : Array of const); deprecated;
Procedure AddResponseLn(Const S : String); Procedure AddResponseLn(Const S : String); deprecated;
Procedure AddResponseLn(Const Fmt : String; Args : Array of const); Procedure AddResponseLn(Const Fmt : String; Args : Array of const); deprecated;
Procedure Initialize; override; Procedure Initialize; override; deprecated;
Procedure GetCGIVarList(List : TStrings); Procedure GetCGIVarList(List : TStrings); deprecated;
Procedure GetRequestVarList(List : TStrings); Procedure GetRequestVarList(List : TStrings); deprecated;
Procedure GetRequestVarList(List : TStrings; NamesOnly : Boolean); Procedure GetRequestVarList(List : TStrings; NamesOnly : Boolean); deprecated;
Procedure ShowException(E: Exception);override; Procedure ShowException(E: Exception);override; deprecated;
Procedure DeleteFormFiles; Procedure DeleteFormFiles; deprecated;
Function EmitContentType : Boolean; Function EmitContentType : Boolean; deprecated;
Function GetTempCGIFileName : String; Function GetTempCGIFileName : String; deprecated;
Function VariableIsUploadedFile(Const VarName : String) : boolean; Function VariableIsUploadedFile(Const VarName : String) : boolean; deprecated;
Function UploadedFileName(Const VarName : String) : String; Function UploadedFileName(Const VarName : String) : String; deprecated;
Property AuthType : String Index 1 Read GetCGIVar; Property AuthType : String Index 1 Read GetCGIVar; deprecated;
Property ContentLength : Integer Read GetContentLength Write SetContentLength; // Index 2 Property ContentLength : Integer Read GetContentLength Write SetContentLength; deprecated; // Index 2
Property ContentType : String Index 3 Read GetCGIVar Write SetCGIVar; Property ContentType : String Index 3 Read GetCGIVar Write SetCGIVar; deprecated;
Property GatewayInterface : String Index 4 Read GetCGIVar; Property GatewayInterface : String Index 4 Read GetCGIVar; deprecated;
Property PathInfo : String index 5 read GetCGIvar; Property PathInfo : String index 5 read GetCGIvar; deprecated;
Property PathTranslated : String Index 6 read getCGIVar; Property PathTranslated : String Index 6 read getCGIVar; deprecated;
Property QueryString : String Index 7 read getcgivar; Property QueryString : String Index 7 read getcgivar; deprecated;
Property RemoteAddress : String Index 8 read GetCGIVar; Property RemoteAddress : String Index 8 read GetCGIVar; deprecated;
Property RemoteHost : String Index 9 read GetCGIVar; Property RemoteHost : String Index 9 read GetCGIVar; deprecated;
Property RemoteIdent : String Index 10 read GetCGIVar; Property RemoteIdent : String Index 10 read GetCGIVar; deprecated;
Property RemoteUser : String Index 11 read GetCGIVar; Property RemoteUser : String Index 11 read GetCGIVar; deprecated;
Property RequestMethod : String Index 12 read GetCGIVar; Property RequestMethod : String Index 12 read GetCGIVar; deprecated;
Property ScriptName : String Index 13 read GetCGIVar; Property ScriptName : String Index 13 read GetCGIVar; deprecated;
Property ServerName : String Index 14 read GetCGIVar; Property ServerName : String Index 14 read GetCGIVar; deprecated;
Property ServerPort : Word Read GetServerPort; // Index 15 Property ServerPort : Word Read GetServerPort; deprecated; // Index 15
Property ServerProtocol : String Index 16 read GetCGIVar; Property ServerProtocol : String Index 16 read GetCGIVar; deprecated;
Property ServerSoftware : String Index 17 read GetCGIVar; Property ServerSoftware : String Index 17 read GetCGIVar; deprecated;
Property HTTPAccept : String Index 18 read GetCGIVar; Property HTTPAccept : String Index 18 read GetCGIVar; deprecated;
Property HTTPAcceptCharset : String Index 19 read GetCGIVar; Property HTTPAcceptCharset : String Index 19 read GetCGIVar; deprecated;
Property HTTPAcceptEncoding : String Index 20 read GetCGIVar; Property HTTPAcceptEncoding : String Index 20 read GetCGIVar; deprecated;
Property HTTPIfModifiedSince : String Index 21 read GetCGIVar; // Maybe change to TDateTime ?? Property HTTPIfModifiedSince : String Index 21 read GetCGIVar; deprecated; // Maybe change to TDateTime ??
Property HTTPReferer : String Index 22 read GetCGIVar; Property HTTPReferer : String Index 22 read GetCGIVar; deprecated;
Property HTTPUserAgent : String Index 23 read GetCGIVar; Property HTTPUserAgent : String Index 23 read GetCGIVar; deprecated;
Property Email : String Read GetEmail Write FEmail; Property Email : String Read GetEmail Write FEmail; deprecated;
Property Administrator : String Read GetAdministrator Write FAdministrator; Property Administrator : String Read GetAdministrator Write FAdministrator; deprecated;
Property RequestVariables[VarName : String] : String Read GetRequestVariable; Property RequestVariables[VarName : String] : String Read GetRequestVariable; deprecated;
Property RequestVariableCount : Integer Read GetRequestVariableCount; Property RequestVariableCount : Integer Read GetRequestVariableCount; deprecated;
Property Response : TStream Read FResponse; Property Response : TStream Read FResponse; deprecated;
end; end;
ResourceString ResourceString
SWebMaster = 'webmaster'; SWebMaster = 'webmaster' deprecated;
SCGIError = 'CGI Error'; SCGIError = 'CGI Error' deprecated;
SAppEncounteredError = 'The application encountered the following error:'; SAppEncounteredError = 'The application encountered the following error:' deprecated;
SError = 'Error: '; SError = 'Error: ' deprecated;
SNotify = 'Notify: '; SNotify = 'Notify: ' deprecated;
SErrNoContentLength = 'No content length passed from server!'; SErrNoContentLength = 'No content length passed from server!' deprecated;
SErrUnsupportedContentType = 'Unsupported content type: "%s"'; SErrUnsupportedContentType = 'Unsupported content type: "%s"' deprecated;
SErrNoRequestMethod = 'No REQUEST_METHOD passed from server.'; SErrNoRequestMethod = 'No REQUEST_METHOD passed from server.' deprecated;
SErrInvalidRequestMethod = 'Invalid REQUEST_METHOD passed from server.'; SErrInvalidRequestMethod = 'Invalid REQUEST_METHOD passed from server.' deprecated;
Implementation Implementation