- 15Jan06=======================================================================
+13Jun06=======================================================================
+1. start using git.
+2. change all the version / build numbering.
-1. prepare for git repository and moving of anon cvs repository to
+ 14Jun07=======================================================================
-1. add show/myfdx to Aliases.
++1. prepare for git repository and moving of anon cvs repository to
+ scm.tobit.co.uk.
+ 11Jun07=======================================================================
+ 1. Change the frequency normalisation for DX Spot dupe checks so that any
+ decimal part is thrown away (in other words: truncate the freq to integer khz)
+ 20May07=======================================================================
+ 1. add 1704 cty.dat
+ 08Apr07=======================================================================
+ 1. add CTY-1703 cty.dat
+ 2. alter the way the dupefile deletion is done.
+ 18Mar07=======================================================================
+ 1. change URL in show/425.
+ 04Mar07=======================================================================
+ 1. add CTY 1702 prefix data files
+ 22Feb07=======================================================================
-2. simplify PC17 handling
++1. add show/myfdx to Aliases.
+ 15Feb07=======================================================================
+ 1. allow convkeps.pl to parse NORAD keps files.
+ 22Jan07=======================================================================
+ 1. disable default propagation of PC9x sentences
++2. simplify PC17 handling
+ 16Jan07=======================================================================
+ 1. back ported a change to PC16 handling so that a locally connected node's
+ info clears out and generally overrides any residual PC16 info gathered from
+ elsewhere.
+ 15Jan07=======================================================================
1. added CTY-1701
- 07Jan06=======================================================================
+ 07Jan07=======================================================================
-1. use IO::Socket blocking where available and switch off or ignore all
+1. use IO::Socket blocking where available and switch off or ignore all
attempts to block.
+ 05Jan07=======================================================================
+ 1. increase default ephemeral deduping on PC15 to 6 minutes (from 2).
+ 23Nov06=======================================================================
+ 1. added wrapping to over length lines in console.pl.
03Nov06=======================================================================
1. add CTY-1609 changes
2. add back Geo::Taf code with submitted mods
--- /dev/null
+ bad*
+ debug
+ *.db
+ *.v?
+ spots
+ user*
+ dupefile
+ log
++wwv
++wcy
lastmsgpoll => '0,Last Msg Poll,atime',
inscript => '9,In a script,yesno',
handle_xml => '9,Handles XML,yesno',
+ do_pc9x => '9,Handles PC9x,yesno',
inqueue => '9,Input Queue,parray',
);
-
# object destruction
sub DESTROY
{
my $user = $self->{user};
$user->close() if defined $user;
- $self->{conn}->disconnect;
+ $self->{conn}->disconnect if $self->{conn};
$self->del();
}
#
- # $Id$
+ # Version information for DXSpider
+ #
+ # DO NOT ALTER THIS FILE. It is generated automatically
+ # and will be overwritten
#
package main;
use vars qw($version $build);
- $version = "1.54";
- $build = 467;
-$version = '1.53';
-$build = '7';
++$version = '1.54';
++$build = '3';
+
+ 1;
package main;
use strict;
-use vars qw(@inqueue $systime $version $starttime $lockfn @outstanding_connects
+use vars qw(@inqueue $systime $starttime $lockfn @outstanding_connects
$zombies $root @listeners $lang $myalias @debug $userfn $clusteraddr
$clusterport $mycall $decease $is_win $routeroot $me $reqreg $bumpexisting
- $allowdxby $dbh $dsn $dbuser $dbpass $do_xml
+ $allowdxby $dbh $dsn $dbuser $dbpass $do_xml $systime_days $systime_daystart
);
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
$starttime = 0; # the starting time of the cluster
- #@outstanding_connects = (); # list of outstanding connects
+ @outstanding_connects = (); # list of outstanding connects
@listeners = (); # list of listeners
$reqreg = 0; # 1 = registration required, 2 = deregister people
$bumpexisting = 1; # 1 = allow new connection to disconnect old, 0 - don't allow it
#############################################################
$starttime = $systime = time;
+$systime_days = int ($systime / 86400);
+$systime_daystart = $systime_days * 86400;
$lang = 'en' unless $lang;
unless ($DB::VERSION) {
# put in a DXCluster node for us here so we can add users and take them away
$routeroot = Route::Node->new($mycall, $version*100+5300, Route::here($main::me->here)|Route::conf($main::me->conf));
+$routeroot->do_pc9x(1);
+$routeroot->via_pc92(1);
# make sure that there is a routing OUTPUT node default file
#unless (Filter::read_in('route', 'node_default', 0)) {
# do timed stuff, ongoing processing happens one a second
if ($timenow != $systime) {
reap() if $zombies;
- IsoTime::update($systime = $timenow);
+ $systime = $timenow;
+ my $days = int ($systime / 86400);
+ if ($systime_days != $days) {
+ $systime_days = $days;
+ $systime_daystart = $days * 86400;
+ }
+ IsoTime::update($systime);
DXCron::process(); # do cron jobs
DXCommandmode::process(); # process ongoing command mode stuff
DXXml::process();