use vars qw($VERSION $BRANCH);
$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /^\d+\.\d+(?:\.(\d+)\.(\d+))?$/ || (0,0));
$main::build += $VERSION;
$main::branch += $BRANCH;
# this is the first stage that we have a callsign
# do we have a hello?
$msg =~ s/[\r\n]+$//;
- if ($msg =~ m{ROUTE,[0-9A-F,]+|HELLO}) {
+ if ($msg =~ m{RT,[0-9A-F,]+|HELLO}) {
# a possibly valid HELLO line, process it
$conn->new_channel($msg);
}
Log('Aranea', "Incoming connection from $conn->{peerhost}");
$conn->{outbound} = 0;
$conn->{state} = 'WH'; # wait for return authorize
- my $thing = $conn->{lastthing} = Thingy::Hello->new(origin=>$main::mycall, group=>'ROUTE');
+ my $thing = $conn->{lastthing} = Thingy::Hello->new();
$thing->send($conn, 'Aranea');
dbg("-> D $conn->{peerhost} $thing->{Aranea}") if isdbg('chan');