view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

        - Moved most display logic to CSS

0.12  Thu 25 Mar 2010
        - Switched to Twiggy from AE:HTTPD
        - Many HTML/CSS tweaks
        - Sends buffered messages with initial page
          load (loads much faster)
        - Improved iPhone stylesheet

0.11  Sat 13 Mar 2010
        - Improved unicode support
        - Faster shutdown process
        - Make / an alias for /view
        - Show context for log search result on click

0.10  Mon 22 Feb 2010
        - Added NullLogger to fix test failures

0.09  Sun 21 Feb 2010
        - Added back log.db template file

lib/Alice/IRC.pm  view on Meta::CPAN

  my ($self, $cmd, @params) = @_;
  my $msg = pop @params;
  my $ident = $self->cl->nick_ident($self->cl->nick);
  my $init_len = length mk_msg($ident, $cmd, @params, " ");

  my $max_len = 500; # give 10 bytes extra margin
  my $line_len = $max_len - $init_len;

  # split up the multiple lines in the message:
  my @lines = split /\n/, $msg;
  @lines = map split_unicode_string ("utf-8", $_, $line_len), @lines;

  $self->cl->send_srv($cmd => @params, $_) for @lines;
}

sub send_raw {
  my $self = shift;
  $self->cl->send_raw(encode "utf8", $_[0]);
}

sub is_connected {

lib/Alice/IRC.pm  view on Meta::CPAN

  my ($self, $realname) = @_;
  $self->send_srv(REALNAME => $realname);
  $self->avatars->{$self->nick} = $self->realname_avatar($realname);
}

sub is_channel {
  my ($self, $channel) = @_;
  return $self->cl->is_channel_name($channel);
}

sub split_unicode_string {
  my ($enc, $str, $maxlen) = @_;

  return $str unless length (encode ($enc, $str)) > $maxlen;

  my $cur_out = '';
  my $word = '';
  my @lines;

  while (length ($str) > 0) {
    $word .= substr $str, 0, 1, '';