Модератор: Модераторы
Sawer » 21.08.2008 22:16:50
Brainenjii » 21.08.2008 23:32:09
Sawer » 22.08.2008 00:01:19
NTFS » 22.08.2008 10:25:49
Думал, что это PSP. Sawer » 22.08.2008 19:02:43
Sawer » 09.11.2008 10:14:15
program test;
uses pwinit, pwmain;
begin
Out('OK!');
end;X-Powered-By...
Contert-Ty...
OK!shttp3 (http://smallsrv.com):
# General setting:
log=/var/log/httpd.log
detail
logday
# radmin
# Direct IPs from that Web administration will be avilable:
adm_range="127.0.0.1,192.168.0.0-192.168.255.254,10.0.0.0-10.255.255.254"
adm_deny=""
# HTTP server setting:
max=32
port=80
dir="/home/user/www"
def="index.*"
# Other
# Change "none" to your password
user=admin;none;/var/shttps;Aprogram test;
//pwinit и pwmain ОБЯЗАТЕЛЬНЫЕ юниты для работы Powtils!
uses pwinit, pwmain;
begin
//задаем разработчиков
SetHeader('X-Powered-By', 'Freepascal Team');
//задаем тип контента и кодировку (читать маны по веб-серверам и html)
SetHeader('Content-Type', 'text/html; charset=utf-8');
//вывод строки без знака CR-LF (т.е аналогично без нажатия Enter)
Out('Аналог Write');
//вывод строки со знаком CR-LF (т.е аналогично с нажатием Enter)
Outln('Аналог Writeln');
end.<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>{$title}</title>
</head>
<body>
<!-- BEGIN BODY -->
<h2>Статья о фсягкой фигне</h2>
<div align="center">
{$text}
</div>
<!-- END BODY -->
<!-- BEGIN FOOT -->
<div align="center">
{$ps}
</div>
<!-- END FOOT -->
</body>
</html>program index;
//pwinit и pwmain ОБЯЗАТЕЛЬНЫЕ юниты для работы Powtils!
uses pwinit, pwmain;
begin
//задаем разработчиков
SetHeader('X-Powered-By', CRACKO_WAREZ Team');
//задаем тип контента и кодировку (читать маны по веб-серверам и html)
SetHeader('Content-Type', 'text/html; charset=utf-8');
//устновка значений переменных в шаблоне index.tpl
SetVar('title', 'Это наш заголовок!!!','');
SetVar('text', 'Тут должно быть бла-бла-бла','');
SetVar('ps', 'Типа постскриптум','');
//используем "TemplateRaw" чтобы никаких фильтрайий нашего кода небыло
//2-й вариант - "Template('ФАЙЛ-ШАБЛОН', УРОВЕНЬ ФИЛЬТРАЦИИ)", но тут надо эксперементировать
TemplateRaw('index.tpl');
end.<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>{$title}</title>
</head>
<body>
<!-- BEGIN BODY -->
<h2>Заполните эту гребанную форму отправьте нам!!!</h2>
<table border="1" align="center">
<form action="form.cgi" method="post" type="multipart/form-data">
<tr>
<td style="width: 150px;">Параметр</td>
<td style="width: 130px;">Значение</td>
</tr>
<tr>
<td>Ты хто?</td>
<td><input type="text" name="param1" size="20"></td>
</tr>
<tr>
<td>Пиши есчо!</td>
<td><input type="text" name="param2" size="20"></td>
</tr>
<tr>
<td colspan=2 style="text-align: right;"><input type="submit" name="action" value="Send"></td>
</tr>
</form>
</table>
<!-- END BODY -->
</body>
</html>program form;
//pwinit и pwmain ОБЯЗАТЕЛЬНЫЕ юниты для работы Powtils!
uses pwinit, pwmain, classes;
var StrLst: TStringList;
begin
StrLst := TStringList.Create;
//берем значение и добавляе в StringList
StrLst.Add(GetPostVar_S('param1',0));
//берем значение и добавляе в StringList
StrLst.Add(GetPostVar_S('param1',0));
//теперь весь вывод с формы в файле form_out.txt
StrLst.SaveToFile('form_out.txt');
end.if GetPostVar_S('сgi_form',0) = 'first' then Procedure1;
if GetPostVar_S('сgi_form',0) = 'second'...program update;
//mode delphi - ОБЯЗАТЕЛЬНО!!!
{$mode delphi}{$H+}
uses unix, pwinit, pwmain, compactsysutils, pwenvvar;
const FUPL = 'fupl';
procedure ShowForm;
begin
Outln('<b>Обновление программы</b>');
Outln('<form method=post action="" enctype="multipart/form-data">');
Outln('<input name="'+FUPL+'" type=file size=20>');
Outln('<input type=submit value="Обновить">');
Outln('</form>');
end;
procedure ProcessUpfile;
var AbsoluteFname: string;
begin
AbsoluteFname := '/home/m230/m230n';
Out('Обновление...');
SaveUpFile(FUPL, AbsoluteFname);
if SaveUpFile(FUPL, AbsoluteFname) then
begin
Out('Обновление проведено успешно!');
end
else Out('Ошибка при обновлении!');
end;
begin
SetHeader('X-Powered-By', 'Freepascal Team');
SetHeader('Content-Type', 'text/html; charset=utf-8');
if IsUpFile(FUPL) then ProcessUpFile else ShowForm;
end. Odyssey » 10.11.2008 12:13:45
Slavikk » 12.11.2008 11:30:16
Odyssey » 12.11.2008 13:30:52
Slavikk писал(а):Насколько я помню fast-cgi сидит в памяти, все наиболее часто запускаемые скрипты закачивает и хранит в памяти...
Slavikk писал(а):У меня вопрос: Powtils может работать с *.dll, кто нибудь разбирался что с помощью этого можно делать и каков результат?
Slavikk » 12.11.2008 14:43:58
L505 » 01.12.2008 07:02:02
Вернуться в Сторонние средства
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1