| Новости | FAQ | Авторы | Документация | В действии | Библиотека |
| Инструменты | Полезные ссылки | Хостинги | Скачать | Примеры | Форум |
Ramesses II 07.11.2002 22:13 / 07.11.2002 23:04
Примерно принцип (да не убиёт меня кто-нить из асов...):@save_msg[]
$nick[$form:nick]
$text[$form:text]
# проверяет наличие файла-базы данных
^if(-f "/cfg/dbase.cfg"){
# файл найден -- добавляем к уже существующему новые строки
$old_msg[^table::load[/cfg/dbase.cfg]]
# составляем таблицу с новыми записями в tab-delimited формате
$new_msg_store[^table::create{nick text
$nick $text}]
# объединяем старое с новым -- здесь или через join или через append
^old_msg.join[$new_msg_store]
# сохраняем объединенную базу
^old_msg.save[/cfg/dbase.cfg]
}{
# файл НЕ найден -- создаем новую таблицу
$new_msg_store[^table::create{nick text
$nick $text}]
# сохраняем базу
^new_msg_store.save[/cfg/dbase.cfg]
}Принцип взят из кода гостевухи. Некоторые поля, значения форм и переменные (как следствия значения форм) отсутствуют по нескольким причинам,