Аутентифікація Catalyst без DBIx - perl, автентифікація, каталізатор, dbix-клас

Я додаю автентифікацію до моєї програми Catalyst. Додаток - це порт з іншої системи, тому для деяких речей я повинен використовувати поточний офіс.

Одне з таких речей - це база даних користувачів. Це не SQL, і я повинен отримати доступ до неї через веб-сервіси.

Наступний документи Тепер я працюю за допомогою хешей для користувача / пароля, як у прикладі. Я також протестував підручник Catalyst, використовуючи DBIx.

Але тепер мені потрібно підключити мою власну модель, щоб перевірити і отримати користувача з реального backoffice.

Де?

З контролера я називаю auth plugin

$c->authenticate({ username => $username, password => $password  }

І в конфігурації я маю (з підручника)

 __PACKAGE__->config("Plugin::Authentication" => {
default_realm => "members",
realms => {
members => {
credential => {
class => "Password",
password_field => "password",
password_type => "clear"
},
store => {
class => "DBIx::Class",
user_model => "MyApp::User",
role_relation => "roles",
role_field => "rolename",
}
}
}
});

Тож де я можу назвати мою модель веб-служб?

Спасибі заздалегідь.

UPDATE: Щоб вижити протягом тижня, я поставив запит на власний веб-сервіс. Якщо результат OK, я передаю отримані дані цій твердої коди. Дуже, дуже, дуже потворно, але я доставив функціональність. Тепер я знову серйозний.

Відповіді:

Схоже, ви повинні створити свій власний аут-магазин:

store => {
class => "+MyApp::Authentication::Store::NetAuth",
authserver => "192.168.10.17"
}

Також дивіться Catalyst :: Аутентифікація :: Магазин :: Мінімальна