Уважаемые коллеги.
Собственно говоря, вот и CGI на BlackBox. Попробуйте.
Благодарности всем, кто содействовал.
Всякие проверки можете добавить сами на свое усмотрение.
MODULE mycgi2; (*C:\Program Files\Apache Software Foundation\Apache2.2\cgi-bin\mycgi2.exe*)
IMPORT Out := ConsoleOut, In:=ConsoleIn, Win:=WinApi,Strings;
PROCEDURE Start*;
VAR
res: INTEGER;
lpBuffer: ARRAY 256 OF CHAR;
size,i:INTEGER;
c:CHAR;
BEGIN
Out.Open;
Out.String('content-type: text/html'); Out.Ln; Out.Ln;
Out.String('<HTML>'); Out.Ln;
Out.String('<BODY>'); Out.Ln;
res:=Win.GetEnvironmentVariableW ('REQUEST_METHOD', lpBuffer, 255);
IF (res#0) THEN
IF (lpBuffer='POST') THEN
Out.String('<P> REQUEST_METHOD POST</P>'); Out.Ln;
res:=Win.GetEnvironmentVariableW ('QUERY_STRING', lpBuffer, 255);
Out.String('<P>QUERY_STRING</P>'); Out.Ln;
Out.String('<P>['+lpBuffer+']</P>'); Out.Ln;
res:=Win.GetEnvironmentVariableW ('CONTENT_LENGTH', lpBuffer, 255);
Out.String('<P>CONTENT_LENGTH</P>'); Out.Ln;
Out.String('<P>['+lpBuffer+']</P>'); Out.Ln;
Strings.StringToInt(lpBuffer,size,res);
Out.String('<P>StdIn</P>'); Out.Ln;
Out.String('<P>'); Out.Ln;
i:=0;
WHILE i<size DO
In.Char(c);
Out.Char(c);
INC(i)
END;
Out.String('</P>'); Out.Ln;
ELSIF (lpBuffer='GET') THEN
Out.String('<P> REQUEST_METHOD GET</P>'); Out.Ln;
res:=Win.GetEnvironmentVariableW ('QUERY_STRING', lpBuffer, 255);
Out.String('<P>QUERY_STRING</P>'); Out.Ln;
Out.String('<P>['+lpBuffer+']</P>'); Out.Ln;
ELSE
Out.String('<P> INCORRECT REQUEST_METHOD OR INCORRECT SERVER CONFIGS</P>');
Out.Ln;
END;
ELSE
Out.String('<P> INCORRECT SERVER CONFIGS</P>'); Out.Ln;
END;
Out.String('</BODY>'); Out.Ln;
Out.String('</HTML>'); Out.Ln;
END Start;
BEGIN
Start;
END mycgi2.
mycgi2.Start
DevLinker.LinkExe dos mycgi2.exe := National Kernel+ Math Strings ConsoleOpen
ConsoleStdStreams ConsoleIn ConsoleOut mycgi2~
C:\Program Files\Apache Software Foundation\Apache2.2\htdocs\myform.htm
-----------------------------------
<html>
<body>
<form method="POST" action="/cgi-bin/mycgi2.exe?preved">
<p>ФИО :<input type="text" name="realname" size=40></p>
<p>Оперативный псевдоним :<input type="text" name="nick" size=40></p>
<p> Послужной список </p>
<p><textarea name ="biography" cols="40" rows="8"></textarea></p>
<input type="submit" name="sumbit" value="Подача запроса">
<input type="reset" name="reset" value="Сброс">
</form>
</body>
</html>
-----------------------------------
Осталось сделать вариант для Линукса, пристегнуть mySQL через его API для C
и вынести платформозависимый код в отдельный модуль.
И тогда можно все заказные многопользовательские программы на BlackBox делать сразу
под Интернет или лок сеть с клиентом - браузером, не будет мороки с администрированием
многих клиентских рабочих мест.
Надеюсь, для программистов на BlackBox это будет достаточной мотивацией
для массового перехода на использование варианта BlackBox для Linux
с предварительной подготовкой всего кода в Windows.
Ну, а если народ начнет использовать, то значит народ начнет доделывать.
На сегодняшний день место Линукса - на сервере. Вот и будем это место эксплуатировать
по мере всех сил.
Завтра, после появления полноценного BB с графич. режимом для Линукса
и написания в силу этого большого числа программ с GUI для Линукса,
возможно, место Линукса станет сначала на заточенном рабочем месте, а потом и везде.
И тогда из экстремистов-маргиналов мы станем мейнстримистами-универсалами.
Вход
FAQ
Поиск
.