VPF::catalyst не видит путь - Форум программистов

gcc

Дата 4.2.2010, 06:48 (ссылка)

(нет голосов)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 2
Всего: 17

подскажите, почему каталист может не видеть путь

например http://localhost:3000/photo/view/34/170/page/4

photo/view/34/170/page/4

контроллер photo.pm

вот

Код



sub view_pages_photo : Regex('^view\/(\d+)\/(\d+)\/page\/(\d+)$') {

    my ( $self, $c, $album, $photo, $view, $page ) = @_;

    $c->stash->{page_cm} = $c->req->captures->[2];

    $c->forward( 'view', [ $c->req->captures->[0], $c->req->captures->[1] ] );

}

просто выдает белую страницу с текстом Page not found БЕЗ каких либо ошибок в отладке

такой путь работат photo/view/34/170

Код


sub view : Local : Args(2) {

    my ( $self, $c, $album, $photo ) = @_;

а такой тоже не работает, в 3 парамтера photo/view/34/170/bla-lbal

Код


sub view_privat_page :  Path('/view_privat') : Args(3) {

    my ( $self, $c, $album, $photo, $page ) = @_;

что за прикол?

красиво нельзя исправить? а то если руками исправлять, то вся мощ фремворка терятеся...

Это сообщение отредактировал(а) gcc - 4.2.2010, 10:34

--------------------

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

gcc

Дата 5.2.2010, 03:44 (ссылка)

(нет голосов)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 2
Всего: 17

сделал так, не знаю на сколько это правильно

Код


use Quantum::Superpositions;


sub begin : Private {
    my ( $self, $c ) = @_;

....................


if ( !$c->request->{match} ) {


 
  if ($c->request->{arguments}->[0] eq 'photo' 
      && $c->request->{arguments}->[1] eq any( qw( view view_privat view_privat_max view_max ) ) 
      &&  scalar @{$c->request->{arguments}} == 5) {

 $c->forward( 'MyApp::Controller::'.$c->request->{arguments}->[0], $c->request->{arguments}->[1], 
  [ $c->request->{arguments}->[2], $c->request->{arguments}->[3], $c->request->{arguments}->[4] ] );


  $c->detach();
   }


}

Это сообщение отредактировал(а) gcc - 5.2.2010, 09:43

--------------------

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »