$self->{name} = $name ? $name : $call;
$self->send($self->msg('l2',$self->{name}));
+ $self->send("Capabilities: ve7cc rbn");
$self->state('prompt'); # a bit of room for further expansion, passwords etc
$self->{priv} = $user->priv || 0;
$self->{lang} = $user->lang || $main::lang || 'en';
$self->{here} = 1;
$self->{prompt} = $user->prompt if $user->prompt;
$self->{lastmsgpoll} = 0;
-
+ $self->{rbnseeme} = $user->rbnseeme;
+ RBN::add_seeme($call) if $self->{rbnseeme};
+
# sort out new dx spot stuff
$user->wantdxcq(0) unless defined $user->{wantdxcq};
$user->wantdxitu(0) unless defined $user->{wantdxitu};
$user->wantusstate(0) unless defined $user->{wantusstate};
-
+
# sort out registration
if ($main::reqreg == 2) {
$self->{registered} = !$user->registered;
return if $self->{disconnecting}++;
delete $self->{senddbg};
+ RBN::del_seeme($call);
my $uref = Route::User::get($call);
my @rout;
}
}
- return sprintf "DX de %-8.8s%10.1f %-12.12s %-s $t$slot2", "$_[4]:", $_[0], $_[1], $comment;
+ my $o = sprintf("%-9s", $_[4] . ':');
+ my $qrg = sprintf "%8.1f", $_[0];
+ if (length $qrg >= 9) {
+ while (length($o)+length($qrg) > 17 && $o =~ / $/) {
+ chop $o;
+ }
+ }
+ my $spot = sprintf "%-12s", $_[1];
+ my $front = "DX de $o $qrg $spot";
+ while (length($front) > 38 && $front =~ / $/) {
+ chop $front;
+ }
+
+
+ return sprintf "$front %-s $t$slot2", $comment;
}