open(I, "$main::data/logout") or confess;
my @in = <I>;
close(I);
- $self->sendnow('D', @in);
+ $self->send_now('D', @in);
+ sleep(1);
}
if ($call eq $main::myalias) { # unset the channel if it is us really
sub prompt
{
my $self = shift;
- my $call = $self->{call};
- $self->send($self->msg('pr', $call));
- #DXChannel::msg($self, 'pr', $call);
+ $self->send($self->msg($self->here ? 'pr' : 'pr2', $self->call));
}
# broadcast a message to all users [except those mentioned after buffer]
close $fh;
#wrap the code into a subroutine inside our unique package
- my $eval = qq{
- sub $package
- {
- $sub
- } };
+ my $eval = qq{ sub $package { $sub } };
if (isdbg('eval')) {
my @list = split /\n/, $eval;