diff --git a/log.pl b/log.pl index 5c2af4c..86e155d 100644 --- a/log.pl +++ b/log.pl @@ -14,7 +14,7 @@ my $server = 'irc.perl.org'; get '/' => sub { my $self = shift; - $nick = $self->param('nick') || "guest$$"; + $nick = $self->param('nick') || $nick; $channel = $self->param('channel') || $channel; $self->stash(nick => $nick); $self->render('index', channel =>$channel);