App-Tacochan
view release on metacpan or search on metacpan
bin/tacochan view on Meta::CPAN
my $skype = Skype::Any->new(name => 'tacochan');
sub render_text {
my ($self, $code, $message) = @_;
$message = $self->encoding->encode($message);
return $self->create_response(
$code,
[
'Content-Type' => 'text/plain; charset=utf-8',
'Content-Length' => length $message,
],
[$message]
);
}
sub res_404 { $_[0]->render_text(404, 'Not Found') }
sub guess_chat {
my ($self, $stuff) = @_;
bin/tacochan view on Meta::CPAN
$twiggy->register_service($app);
$skype->run;
__DATA__
@@ index.tt
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<title>tacochan</title>
<meta name="viewport" content="width=device-width, initial-scale=1.0" />
<link rel="stylesheet" type="text/css" href="http://netdna.bootstrapcdn.com/bootswatch/2.3.0/united/bootstrap.min.css" />
<link rel="stylesheet" type="text/css" href="http://netdna.bootstrapcdn.com/twitter-bootstrap/2.3.0/css/bootstrap-responsive.min.css" />
<link rel="stylesheet" href="[% uri_for('/static/css/main.css') %]" />
</head>
<body class="tacochan">
<article class="container">
<header class="header[% IF !ok %] error[% END %]">
<div class="container">
bin/tacochan view on Meta::CPAN
<tr>
<td class="name">method</td>
<td><code>GET</code></td>
</tr>
<tr>
<td class="name">url</td>
<td><code>[% c().req.base %]chat_list</code></td>
</tr>
<tr>
<td class="name">Content-Type</td>
<td><code>application/json; charset=utf-8</code></td>
</tr>
</table>
<p>Responds a list of recent chats as JSON (see below).</p>
<table class="table table-bordered">
<tr><td class="name">chatname : string</td><td colspan="2">chatname</td></tr>
<tr><td class="name" rowspan="4">status : string</td><td>"LEGACY_DIALOG"</td><td>old style IM</td></tr>
<tr><td>"DIALOG"</td><td>1:1 chat</td></tr>
<tr><td>"MULTI_SUBSCRIBED"</td><td>participant in chat</td></tr>
<tr><td>"UNSUBSCRIBED"</td><td>left chat</td></tr>
<tr><td class="name">members : [string, ...]</td><td colspan="2">all users who have been there</td></tr>
bin/tacochan view on Meta::CPAN
<td><code>[% c().req.base %]chat_id</code></td>
</tr>
<tr>
<td class="name">form params</td>
<td>
<code>chat=skype:|user[, user, ...]</code>
</td>
</tr>
<tr>
<td class="name">Content-Type</td>
<td><code>text/plain; charset=utf-8</code></td>
</tr>
</table>
<p>Responds chat_id from Skype URI or username (chat_id is like this: <code>#anappo2/$d936403094338dbb</code>)</p>
</div>
</div>
</article>
</body>
</html>
@@ /static/css/main.css
( run in 0.265 second using v1.01-cache-2.11-cpan-4d50c553e7e )