paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 05:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* get_next_value patch from Skelet

Browse Source
This commit is contained in:
peter 2002-03-01 10:57:03 +00:00
parent 5d10a3aec8
commit d661632b51
1 changed files with 38 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
packages/extra/uncgi/uncgi.pp
View File

@ -10,7 +10,7 @@ interface
uses uses
strings strings
{$ifdef ver1_0} {$ifdef ver1_0}
{$ifdef FreeBSD} {In 1.0 FreeBSD still defines Linux!} {$ifdef FreeBSD} {In 1.0 FreeBSD still defines Linux!}
,Linux ,Linux
{$else} {$else}
{$ifdef linux} {$ifdef linux}
@ -86,6 +86,22 @@ function http_useragent: pchar;
} }
function get_value(id: pchar): pchar; function get_value(id: pchar): pchar;
{ FUNCTION
This function extracts array of values for the
same variable (used in some checkbox forms)
Use like in this example:
cnt:=0;
v[cnt]:=get_value('some_id');
while v[cnt]<>'' do begin
inc(cnt);
v[cnt]:=get_next_value('some_id');
end;
}
function get_next_value(id: pchar): pchar;
{ PROCEDURE { PROCEDURE
This procedure writes the content-type to the screen This procedure writes the content-type to the screen
@ -184,7 +200,6 @@ end;
Function GetEnv(envvar: string): pchar; Function GetEnv(envvar: string): pchar;
var var
hp : ppchar; hp : ppchar;
p : pchar;
hs : string; hs : string;
eqpos : longint; eqpos : longint;
begin begin
@ -259,20 +274,29 @@ begin
halt; halt;
end; end;
function get_value(id: pchar): pchar; var gv_cnt:word;
function get_next_value(id: pchar): pchar;
var var
cnt : word; cnt : word;
begin begin
get_value:=Nil; if gv_cnt<=query_read then inc(gv_cnt);
get_next_value:=Nil;
if done_init then if done_init then
for cnt :=1 to query_read do for cnt :=gv_cnt to query_read do
if strcomp(strupper(id),strupper(query_array[1,cnt]))=0 then if strcomp(strupper(id),strupper(query_array[1,cnt]))=0 then begin
begin get_next_value := query_array[2,cnt];
get_value := query_array[2,cnt]; gv_cnt:=cnt;
exit; exit;
end; end;
end; end;
function get_value(id: pchar): pchar;
begin
gv_cnt:=0;
get_value:=get_next_value(id)
end;
Function UnEscape(QueryString: PChar): PChar; Function UnEscape(QueryString: PChar): PChar;
var var
qunescaped : pchar; qunescaped : pchar;
@ -437,7 +461,11 @@ end.
{ {
HISTORY HISTORY
$Log$ $Log$
Revision 1.1 2002-01-29 17:55:23 peter Revision 1.2 2002-03-01 10:57:03 peter
* get_next_value patch from Skelet
Revision 1.1 2002/01/29 17:55:23 peter
* splitted to base and extra * splitted to base and extra
Revision 1.7 2001/07/08 13:21:12 marco Revision 1.7 2001/07/08 13:21:12 marco