-
Notifications
You must be signed in to change notification settings - Fork 2
/
vw.psgi
84 lines (68 loc) · 1.87 KB
/
vw.psgi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
use strict;
use warnings;
use Tatsumaki::Error;
use Tatsumaki::Application;
use Time::HiRes;
package MessageQueue;
use base qw(Tatsumaki::MessageQueue);
sub append_backlog {
my($self, @events) = @_;
$self->backlog([]);
}
package PollHandler;
use base qw(Tatsumaki::Handler);
__PACKAGE__->asynchronous(1);
sub get {
my ($self, $room) = @_;
my $mq = MessageQueue->instance($room);
my $client_id = $self->request->param('client_id')
or Tatsumaki::Error::HTTP->throw(500, "'client_id' needed");
$mq->poll_once($client_id, sub { $self->on_new_event(@_) });
}
sub on_new_event {
my ($self, @events) = @_;
$self->write(\@events);
$self->finish;
}
package PostHandler;
use base qw(Tatsumaki::Handler);
sub post {
my ($self, $room) = @_;
my $v = $self->request->params;
$v->{time} = scalar Time::HiRes::gettimeofday;
$v->{address} = $self->request->address;
my $mq = MessageQueue->instance($room);
$mq->publish($v);
$self->write({ success => 1 });
}
package WordHandler;
use base qw(Tatsumaki::Handler);
sub post {
my ($self) = @_;
my $word = $self->request->param('word');
$word =~ s/(\W|_)//g; #get rid of non-alphanumeric characters to prevent injection attacks;
my $result = int( check_word($word) );
$self->write({ success => $result });
}
sub check_word {
my $word = uc(shift);
my $dict = "./dict";
return `grep \^$word\$ $dict` ne "";
}
package GetHandler;
use base qw(Tatsumaki::Handler);
sub get {
my ($self) = @_;
$self->render('vw.html');
}
package main;
use File::Basename;
my $app = Tatsumaki::Application->new([
'/games/(\w+)/poll' => 'PollHandler',
'/games/(\w+)/post' => 'PostHandler',
'/word_lookup' => 'WordHandler',
'/games/(\w+)' => 'GetHandler',
]);
$app->template_path(dirname(__FILE__));
$app->static_path(dirname(__FILE__) . "/static");
return $app;