^rem{ *** устанавливаем соединение с sql сервером *** } ^MAIN:pSQL.server{ <^;<^; Информация ^rem{ *** создаем объект класса авторизации *** } ^rem{ *** т.к. мы не передаем классу $form:fields на этой странице логин/logout произойти не может *** } $auth_data[^auth::init[$cookie:CLASS;;$.csql[$MAIN:pSQL]]] ^rem{ *** устанавливаем антикеширующие заголовки *** } ^auth_data.setExpireHeaders[] ^rem{ *** если была нажата кнопка добавляем нового пользователя или изменяем параметры залогиненного *** } ^if(def $form:save){ ^if($auth_data.is_logon){ $res(^auth_data.updateUser[$form:fields])
^switch[$res]{ ^case[0]{Параметры пользователя сохранены} ^case[1]{Пошел на фиг, хакер!} ^case[2]{Не задано имя пользователя или пользователь с таким именем уже существует} ^case[3]{Неверно подтвержден пароль} ^case[DEFAULT]{Какие-то проблемы при изменении параметров пользователя} }
}{ $res(^auth_data.insertUser[$form:fields]) ^switch[$res]{ ^case[0]{Пользователь успешно зарегистрирован} ^case[1]{Не задано имя, пароль или email имеет неверный формат} ^case[2]{Пользователь с таким именем уже существует} ^case[3]{Неверно подтвержден пароль} ^case[DEFAULT]{Какие-то проблемы при регистрации нового пользователя} } ^rem{ *** если регистрация прошла успешно - логиним пользователя *** } ^if(!$res){ $tmp(^auth_data.logon[ $form:fields $.[auth.logon][do] ]) } } } ^rem{ *** показываем формочку регистрации/изменения параметров *** }