package Chat;

use Moose;
extends qw( Continuity::Widget );

has request => (is => 'rw');
has holder => (is => 'rw');

use vars qw( @messages );

sub main {
  my ($self) = @_;
  print STDERR "[CHAT] main called\n";
  my $id = $self->id;
  $self->holder->send_msg(
    cmd => 'append',
    target => '#content',
    content => qq|
      <div id="chat" class="block">
        <h1>Chat</h1>
        <div class="block-body">
          <div class="chat-messages">
          </div>
          <div class="chat-control">
            <input type=text name="message-$id" class="message">
            <input type=submit name="send-$id" value="Send" class="send">
          </div>
        </div>
      </div>
    |);
  while(1) {

    use Data::Dumper;
    if($self->request->param("send-$id")) {
      my $message = $self->request->param("message-$id");
      $self->holder->send_msg(
        #to => $self->request->session_id,
        cmd => 'append',
        target => ".chat-messages",
        content => $message
      );
    }
    $self->next;
  }
}

1;