cmtd/lib/CMTD/Main.pm

package CMTD::Main;

use strict;
use warnings;
use utf8;

use Mojo::Base 'Mojolicious::Controller';

sub index {
  my $self = shift;

  $self->render(text => 'Go away!');
}

sub captcha {
}

sub c_list {
}

sub c_add {
  my ($self) = @_;

  unless (my $ref = $self->referrer and ref $ref eq 'HASH') {
    $self->res->code(400);
    $self->render(text => "Can't detect referred page");
    return;
  }

  unless (my $site = $self->app->sites->{ $ref->{site} }) {
    $self->res->code(400);
    $self->render(text => "No such site");
    return;
  }

  eval {
  } or do {
    chomp $@;
    my $msg = sprintf "Error when listing comments for %s/%s: %s",
      $ref->{site}, $ref->{pid}, $@;
    $self->app->log->error($msg);
    $self->res->code(500);
    $self->render(text => 'Internal error');
  };
}

1;