From theathlet at yandex.ru Wed Dec 18 04:37:31 2013 From: theathlet at yandex.ru (TheAthlete) Date: Wed, 18 Dec 2013 14:37:31 +0200 Subject: [Kiev-pm] =?utf-8?b?0KDQtdC00LjRgNC10LrRgiDQsiBEYW5jZXIy?= Message-ID: Здравствуйте! Имеется вот такое автономное приложение на Dancer2: app.pl #!/usr/bin/env perl use Dancer2; use Data::Section::Simple qw/get_data_section/; use DBI; use utf8; my $index = get_data_section('index.html'); # Settings #--------------------- set charset => "UTF-8"; set serializer => 'JSON'; #--------------------- get '/' => sub { 'hello' }; any ['get', 'post'] => '/login' => sub { if (request->method() eq 'POST') { my $username = param 'username'; my $password = param 'password'; my $dbfile = 'mydb.db'; my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","","") or die $DBI::errstr; my $statement = qq{SELECT id FROM users WHERE username=? and password=?}; my $sth = $dbh->prepare($statement) or die $dbh->errstr; my $rv = $sth->execute($username, $password) or die $sth->errstr; my ($userID) = $sth->fetchrow_array; if ($userID) { redirect '/'; } else { if (request->is_ajax) { response->content_type('application/json'); return {error => 'username or password is wrong'}; } } } return $index; }; dance; __DATA__ @@ index.html Very simple login using Perl, Lovely.IO, Ajax, JSON and SQLite
Enter information
Запускаю с помощью $ plackup app.pl Подскажите пожайлуста, как сделать редирект на роут '/', чтобы на выходе появилось 'hello': get '/' => sub { 'hello' }; Сейчас никакого редиректа не происходит, хотя в лог пишется, что он прошел: 127.0.0.1 - - [18/Dec/2013:14:01:41 +0200] "GET /login HTTP/1.1" 200 4694 "-" "Opera/9.80 (X11; Linux x86_64) Presto/2.12.388 Version/12.16" 127.0.0.1 - - [18/Dec/2013:14:01:49 +0200] "POST /login HTTP/1.1" 302 0 "http://localhost:5000/login" "Opera/9.80 (X11; Linux x86_64) Presto/2.12.388 Version/12.16" 127.0.0.1 - - [18/Dec/2013:14:01:49 +0200] "GET / HTTP/1.1" 200 5 "http://localhost:5000/login" "Opera/9.80 (X11; Linux x86_64) Presto/2.12.388 Version/12.16" Подскажите, в чем может быть проблема? From andy at shitov.ru Sun Dec 22 08:03:38 2013 From: andy at shitov.ru (Andrew Shitov) Date: Sun, 22 Dec 2013 17:03:38 +0100 Subject: [Kiev-pm] YAPC::Russia 2014 Message-ID: Друзья! Рад сообщить, что стали известны дата и время проведения очередной конференции YAPC::Russia. В следующем году она пройдет в Киеве 14 июня (в субботу). С 2008 года конференция проходит по очереди то в Москве (под названием May Perl), то в Киеве (известная как Perl Mova). В 2013 YAPC::Russia не было нигде, потому что мы провели замечательную европейскую YAPC::Europe. 2008 Москва 2009 Москва 2010 Киев 2011 Москва 2012 Киев 2013 YAPC::Europe, Киев 2014 Киев Дата 14 июня была выбрана с тем расчетом, чтобы было удобно приехать посетителям из России, где из-за праздников появятся четыре выходных дня с 12 по 15 июня. Место проведения будет объявлено дополнительно. Визы пока не нужны. Сайт конференции уже работает: http://yapcrussia.org. Если вы регистрировались на предыдущих мероприятиях, то сможете воспользоваться своим обычным именем для логина и регистрации, Работает и прием заявок на доклады и блиц-доклады: http://event.yapcrussia.org/yr2014/newtalk. В отличие от прошлых лет, конференция следующего года будет однодневной (сколько потоков, пока неизвестно), поэтому у нас появится возможность отобрать самые лучшие доклады. Love Perl? Come to Kiev! -- Andrew Shitov ______________________________________________________________________ andy at shitov.ru | http://shitov.ru ----------- ���� ���----------- ��� �����HTML �� �����hellip; URL: