[Nielson]

а как реализован вывод объявлений на самих страницах авто-купить и авто-продать?

[GRoM]

скрипт помещает объяв. на уже сушествующую страницу,на странице нет фреймов и всего такого.сверху шапка,потом сами объявления(в центре),внизу ссылки навигации


может я не правильно понял вопрос....

[Nielson]

GRoM, каким образом скрипт помещает новое объявление? Страница с объявлениями собирается и генерируется из блоков/модулей, или же это статичный html?

[GRoM]

все данные в хеш %FORM,а записываем их в файл, например:

# Определяем переменную, содержащую путь к исходному файлу
$origfile = "/pathname/originalfile.htm";
# Определяем переменную, содержащую путь к временному файлу
$newfile = "/pathname/newfile.htm";
open(INFILE, "<$origfile");
open(OUTFILE, ">$newfile");
while ($line = <INFILE>) {
  printf OUTFILE $line;
  if ($line =~ //i) {
    # Добавляем новые данные в файл:
    print OUTFILE "\n\n";
    print OUTFILE "Имя: ", $input{'user_name'},"\n
";
    print OUTFILE "Компания: ", $input{'co_name'},"\n
";
    print OUTFILE "Телефон: ", $input{'phone'},"\n</p>\n

<hr></p>\n";
  }
}
# Закрываем файлы
close(INFILE);
close(OUTFILE);
# Удаляем исходный файл и переименовываем новый в исходный
unlink($origfile);
rename($newfile, $origfile);

[Nielson]

а не проще ли использовать require, вместо перезаписи всего файла?
просто добавляешь id объявления в хэш, и делаешь require сообщения с id, который тебе передали.

а запись на конкретную страницу - у тебя же из скрипта видно, что файл лежит в pathname под именем originalfile
Ты не можешь передать из списка имя файла(айдишник), куда должно записаться объявление?

[GRoM]

если честно,я ничего не понял,но возьму сегодня учебник и вперёд,всё заново.

Спасибо за помощь,ты Nielson,по-моему единственный кто ещё отвечает на мои глупые вопросы и если можешь то напиши всё вышесказонное по-понятней(для новичка)

[Nielson]

1)Короче, вместо того, что бы перезаписывать файл с новым объявлением, лучше записывать объявления в отдельный файл.
А потом коммандой require их включать в содержимое файла avto_kuplyu_prodam
2)Когда пользователь выбирает из списка страницу, куда надо добавить объявление, нужно в этом списке к каждому значению добавить переменную.

<form action="/cgi-bin/script.pl" method=post>
<SELECT name=where>
<OPTION selected value=avto>Продать авто</OPTION>
<OPTION value=moto>Продать мото</OPTION>
</SELECT>

***script.pl***

print "Content-type: text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});


@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;
}
foreach $key (keys(%FORM)) {
if($key eq "where") {
$page=$FORM{$key};
}




Переменная $page - это будет переменная, где записано название страницы, куда надо добавить объявление.


соответственно,

# Определяем переменную, содержащую путь к исходному файлу
$origfile = "/$page/originalfile.htm";
# Определяем переменную, содержащую путь к временному файлу
$newfile = "/$page/newfile.htm";

[GRoM]

по-моему понял всё,теперь осталось всё это на практике применить.

БОЛЬШОЕ СПАСИБО!!!

[GRoM]

Здравствуй,Nielson,всё вроде понятно,но только что вот это,как это должно работать?

$origfile = "/$page/originalfile.htm"

Как в адресе может быть переменная?

[Nielson]

GRoM, а что вам мешает? разве это ошибка? по-моему, без такого приема на свете не было бы ни одного языка програмирования.