projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
clean up various things and add the DXXml.pm module
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 80c4a0573cb62899fa408826b0f46e7563677af1..003ae845becc11c9f73a8292333bfb91e17748c0 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-102,6
+102,7
@@
use QSL;
use Thingy;
use RouteDB;
use AMsg;
use Thingy;
use RouteDB;
use AMsg;
+use DXXml;
use Data::Dumper;
use IO::File;
use Data::Dumper;
use IO::File;
@@
-349,13
+350,6
@@
STDOUT->autoflush(1);
$build += $main::version;
$build = "$build.$branch" if $branch;
$build += $main::version;
$build = "$build.$branch" if $branch;
-LogDbg('cluster', "DXSpider V$version, build $build started");
-
-# banner
-my ($year) = (gmtime)[5];
-$year += 1900;
-dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH");
-
# try to load the database
if ($dsn && -e "$root/perl/DXSql.pm") {
require DXSql;
# try to load the database
if ($dsn && -e "$root/perl/DXSql.pm") {
require DXSql;
@@
-367,6
+361,15
@@
if ($dsn && -e "$root/perl/DXSql.pm") {
}
}
}
}
+# try to load XML::Simple
+DXXml::init();
+
+# banner
+my ($year) = (gmtime)[5];
+$year += 1900;
+LogDbg('cluster', "DXSpider V$version, build $build started");
+dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH");
+
# load Prefixes
dbg("loading prefixes ...");
dbg(USDB::init());
# load Prefixes
dbg("loading prefixes ...");
dbg(USDB::init());