Forum Webscript.Ru
Программирование => PHP => Тема начата: andtar от 10 Июня 2002, 08:40:56
-
Нужен простой cgi скрипт, который:
посылает данные формы в txt файл
txt файл примерно должен выглядить:
9:00. 10.06.02
name=dem
e-mail=perl@perl.ru
Где name и e-mail переменные
а составление формы должно быть простое на HTML странице
-
perldoc CGI в части param
perldoc -f open
perldoc -f print
perldoc -f close
-
perldoc -f open
perldoc -f print
perldoc -f close
и это весь cgi скрипт что ли?
Я в этом не шарю мне по подробней надо, весь текст.
#!/usr/bin/perl и т.д.
-
и это весь cgi скрипт что ли?
Нет, это предложение почитать документацию. :)) Там все подробно, обстоятельно.:))
-
Вот примерчик:
#!/usr/bin/perl
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
$ip = $ENV{\'REMOTE_ADDR\'};
$q=$ENV{\'QUERY_STRING\'};
if(!$q){
print "Content-Type: text/html\\n\\n";
print qq#
Оставьте свои координаты
#;
}
if(param()){&insert_data(1);}
sub insert_data{
my $name=param(\'name\');
my $email=param(\'email\');
my $icq=param(\'icq\');
my $url=param(\'url\');
my $log_vars="|$name|$email|$icq|$ip|$url|";
open (LOG, ">>data.txt");
print LOG "$log_vars\\n";
close (LOG);
print "Вы ввели следующие данные:
$log_vars
";
};
Данные "вставляются" в data.txt
Что туда писать, надеюсь, сам подставишь...
-
$q=$ENV{\'QUERY_STRING\'};
if(!$q){
If ненужен: $ENV{\'QUERY_STRING\'} всегда будет пустым поскольку в форме использован метод POST. А если попытаться передать этому скрипту что-либо методом GET, то он вообще развалиться c ошибкой Mailformed script header... поскольку print "Content-Type: text/html\\n\\n"; находиться внутри if, а if(param()) отработает.:)
-
If ненужен:
Правда ваша.. ;)
-
а можно как-нибудь чтобы данные произвольные были, то есть не только name icq, а всякие.
А вообще это на php можно>?
-
а можно как-нибудь чтобы данные произвольные были, то есть не только name icq, а всякие.
Можно.:)
А вообще это на php можно>?
Это в разделе PHP скрипты спроси.:)
-
наверняка у кого-н на сайте такой скрипт есть.
Скинте мне скрипт на мыло плиз andtar@km.ru
а то у меня так что-то и не получилось...
-
наверняка у кого-н на сайте такой скрипт есть.
Ты скажи сначала, что тебе нужно(!) и на каком языке (Perl или PHP)?
-
а так на php лучше бы было
-
[moderated on]
Переехали в PHP...
[moderated off]
-
Ты скажи сначала, что тебе нужно(!) и на каком языке (Perl или PHP
на любом, чтобы только работало.
NeoNox ты мне скинь скрипт на andtar@km.ru
-
На PHP
$base = "base.txt"; //файл-база
function show_form() {
?>
Ваши координаты
}
function save_data() {
$fp = fopen($GLOBALS["base"], "a") or die("Не могу открыть файл");
$data = date("H:i. d.m.y")."\\nname=".$GLOBALS["name"]."\\ne-mail=".$GLOBALS["email"]."\\n";
fputs($fp, $data);
fclose($fp);
echo "Данные сохранены";
}
if ($name && $email) save_data(); else show_form();
?>
-
На php всё хорошо работает, только с сервера файл base.txt не могу прочитать, в чём дело???
-
нет всё нормально chmod поменял