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 )