projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add ip <ipaddress> to dx by <spotter>
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index db05800f9c305216aa06bcec7e707930ffb71c96..818718f870d3459a7aa648a342c2c10f2a136fa0 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-138,7
+138,7
@@
use AnnTalk;
use BBS;
use WCY;
use BadWords;
use BBS;
use WCY;
use BadWords;
-use Timer;
+use
DX
Timer;
use Route;
use Route::Node;
use Route::User;
use Route;
use Route::Node;
use Route::User;
@@
-428,7
+428,7
@@
sub cease
$l->close_server;
}
$l->close_server;
}
- LogDbg('cluster', "DXSpider
V$version, build $build (git: $gitbranch/$gitversion)
on $^O ended");
+ LogDbg('cluster', "DXSpider
v$version build $build (git: $gitbranch/$gitversion) using perl $^V
on $^O ended");
dbg("bye bye everyone - bye bye");
dbgclose();
Logclose();
dbg("bye bye everyone - bye bye");
dbgclose();
Logclose();
@@
-522,7
+522,7
@@
sub setup_start
# determine the real Git build number and branch
my $desc;
# determine the real Git build number and branch
my $desc;
- eval {$desc = `git describe --long`};
+ eval {$desc = `git
--git-dir=$root/.git
describe --long`};
if (!$@ && $desc) {
my ($v, $s, $b, $g) = $desc =~ /^([\d\.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
$version = $v;
if (!$@ && $desc) {
my ($v, $s, $b, $g) = $desc =~ /^([\d\.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
$version = $v;
@@
-532,8
+532,8
@@
sub setup_start
}
if (!$@) {
my @branch;
}
if (!$@) {
my @branch;
-
- eval {@branch = `git branch`};
+
+ eval {@branch = `git
--git-dir=$root/.git
branch`};
unless ($@) {
for (@branch) {
my ($star, $b) = split /\s+/;
unless ($@) {
for (@branch) {
my ($star, $b) = split /\s+/;
@@
-560,7
+560,7
@@
sub setup_start
# banner
my ($year) = (gmtime)[5];
$year += 1900;
# banner
my ($year) = (gmtime)[5];
$year += 1900;
- LogDbg('cluster', "DXSpider
V$version, build $build (git: $gitbranch/$gitversion)
on $^O started");
+ LogDbg('cluster', "DXSpider
v$version build $build (git: $gitbranch/$gitversion) using perl $^V
on $^O started");
dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH");
# load Prefixes
dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH");
# load Prefixes
@@
-791,7
+791,7
@@
sub per_sec
DXCron::process(); # do cron jobs
RBN::process();
DXCron::process(); # do cron jobs
RBN::process();
- Timer::handler();
+
DX
Timer::handler();
DXLog::flushall();
}
DXLog::flushall();
}