И всё прочее, что касается HTML
Правила форума
Убедительная просьба юзать теги [code] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
-
lymar
- мл. сержант
- Сообщения: 117
- Зарегистрирован: 2008-02-03 11:54:20
- Откуда: Україна
-
Контактная информация:
Непрочитанное сообщение
lymar » 2008-08-06 1:02:43
Есть простенькая формочка с которой нужно даные записать в файл, кто поможет? Или может у кого уже есть готовая с скриптом для создания почтового ящика через web?
Код: Выделить всё
<html>
<head>
<title>Create Mail Account</title>
</head>
<body>
<form action="/cgi-bin/mail.pl" method=POST>
Введите ФИО пользователя:
<input type=text maxlength=300 name=fullname>
<p>
Введите login пользователя:
<input type=text maxlength=150 name=login>
<p><input type=submit value=Зарегистрировать>
</form>
</body>
</html>
lymar
-
Хостинг HostFood.ru
-
Хостинг HostFood.ru
Тарифы на хостинг в России, от 12 рублей:
https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.:
https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах:
https://www.host-food.ru/domains/
-
ProFTP
- подполковник
- Сообщения: 3388
- Зарегистрирован: 2008-04-13 1:50:04
- Откуда: %&й
-
Контактная информация:
Непрочитанное сообщение
ProFTP » 2008-08-06 3:06:48
в CGI фукнция param() берет данные из парамтеров, переданные браузером...
дальше надо просто открыит файл на запись, записать и все, если одновременно кто-то будет записывать, то нужно открыть с блокирайцеий и потом закрыть
рекомендую использовать СУБД, модули DBI, DBD::*, Class::DBI
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ProFTP
-
ProFTP
- подполковник
- Сообщения: 3388
- Зарегистрирован: 2008-04-13 1:50:04
- Откуда: %&й
-
Контактная информация:
Непрочитанное сообщение
ProFTP » 2008-08-06 5:17:21
Код: Выделить всё
#!/usr/local/bin/perl
#use strict;
#use CGI qw(:standard);
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$query = CGI->new();
$action=$query->param("fullname");
$iddd=$query->param("login");
sub filelock {
flock(DB,2);
}
sub fileunlock {
flock(DB,8);
}
open (DB2, "file.txt") || die print "Cannot open file $basefile: $!";
@base = <DB2>;
close(DB2);
open (DB, ">file.txt") || die print "Cannot open file $basefile: $!";
&filelock;
truncate(DB,0);
print DB @base;
print DB "$action\;$iddd\;\n";;
&fileunlock;
close(DB);
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ProFTP
-
lymar
- мл. сержант
- Сообщения: 117
- Зарегистрирован: 2008-02-03 11:54:20
- Откуда: Україна
-
Контактная информация:
Непрочитанное сообщение
lymar » 2008-08-06 9:15:07
Спасибо! Работает, данные записывает в файл, но при выполнении выдает ето:
Код: Выделить всё
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, admin@lete.net and inform them of the time the error occurred, and anything you might have done that may have caused the error.
More information about this error may be available in the server error log.
lymar
-
ProFTP
- подполковник
- Сообщения: 3388
- Зарегистрирован: 2008-04-13 1:50:04
- Откуда: %&й
-
Контактная информация:
Непрочитанное сообщение
ProFTP » 2008-08-06 9:28:15
потомучто ты или проава не дал или заголовок не передал браузеру
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ProFTP
-
lymar
- мл. сержант
- Сообщения: 117
- Зарегистрирован: 2008-02-03 11:54:20
- Откуда: Україна
-
Контактная информация:
Непрочитанное сообщение
lymar » 2008-08-06 9:35:06
Права выставил на файл 777, а какой нужно передать параметр браузеру?
lymar
-
zg
- полковник
- Сообщения: 5845
- Зарегистрирован: 2007-12-07 13:51:33
- Откуда: Верх-Нейвинск
Непрочитанное сообщение
zg » 2008-08-06 10:00:09
lymar писал(а):Права выставил на файл 777
клёва
осталось только веб-шелл залить и дать рекламу на яндексе.
zg
-
lymar
- мл. сержант
- Сообщения: 117
- Зарегистрирован: 2008-02-03 11:54:20
- Откуда: Україна
-
Контактная информация:
Непрочитанное сообщение
lymar » 2008-08-06 10:13:02
ProFTP большое спасибо!
lymar
-
ProFTP
- подполковник
- Сообщения: 3388
- Зарегистрирован: 2008-04-13 1:50:04
- Откуда: %&й
-
Контактная информация:
Непрочитанное сообщение
ProFTP » 2008-08-06 10:14:36
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ProFTP
