perl/Thingy/Hello.pm

   1 #
   2 # Hello Thingy handling
   3 #
   4 # $Id$
   5 #
   6 # Copyright (c) 2005 Dirk Koopman G1TLH
   7 #
   8
   9 use strict;
  10
  11 package Thingy::Hello;
  12
  13 use vars qw($VERSION $BRANCH);
  14 $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
  15 $BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /^\d+\.\d+(?:\.(\d+)\.(\d+))?$/  || (0,0));
  16 $main::build += $VERSION;
  17 $main::branch += $BRANCH;
  18
  19 use DXChannel;
  20 use DXDebug;
  21 use Verify;
  22 use Thingy;
  23
  24 use vars qw(@ISA $verify_on_login);
  25 @ISA = qw(Thingy);
  26
  27 $verify_on_login = 1;                   # make sure that a HELLO coming from
  28                                 # the dxchan call is authentic
  29
  30 sub gen_Aranea
  31 {
  32         my $thing = shift;
  33         unless ($thing->{Aranea}) {
  34                 my $s = sprintf "%X", int(rand() * 100000000);
  35                 my $auth = Verify->new("DXSp,$main::mycall,$s,$main::version,$main::build");
  36                 $thing->{Aranea} = Aranea::genmsg($thing, 'HELLO', sw=>'DXSp',
  37                                                                                   v=>$main::version,
  38                                                                                   b=>$main::build,
  39                                                                                   's'=>$s,
  40                                                                                   auth=>$auth->challenge($main::me->user->passphrase)
  41                                                                           );
  42         }
  43         return $thing->{Aranea};
  44 }
  45
  46 sub handle
  47 {
  48         my $thing = shift;
  49         my $dxchan = shift;
  50
  51         # verify authenticity
  52         if ($dxchan->call eq $thing->{origin}) {
  53                 if ($verify_on_login) {
  54                         my $pp = $dxchan->user->passphrase;
  55                         unless ($pp) {
  56                                 dbglog('err', "Thingy::Hello::handle: verify on and $thing->{origin} has no passphrase");
  57                                 $dxchan->disconnect;
  58                                 return;
  59                         }
  60                         my $auth = Verify->new("DXSp,$thing->{origin},$thing->{s},$thing->{v},$thing->{b}");
  61                         unless ($auth->verify($thing->{auth}, $dxchan->user->passphrase)) {
  62                                 dbglog('err', "Thingy::Hello::handle: verify on and $thing->{origin} failed auth check");
  63                                 $dxchan->disconnect;
  64                                 return;
  65                         }
  66                 }
  67                 if ($dxchan->{state} ne 'normal') {
  68                         $dxchan->start($dxchan->{conn}->{csort}, $dxchan->{conn}->{outbound} ? 'O' : 'A');
  69                         if ($dxchan->{outbound}) {
  70                                 my $thing = Thingy::Hello->new();
  71                                 $thing->send($dxchan);
  72                         }
  73                 }
  74         }
  75         $thing->broadcast($dxchan);
  76 }
  77
  78 sub new
  79 {
  80         my $pkg = shift;
  81         my $thing = $pkg->SUPER::new(origin=>$main::mycall);
  82         return $thing;
  83 }
  84 1;