hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

force git -C $root to make sure it gets its root

Browse Source
This commit is contained in:
Dirk Koopman 2021-12-11 20:45:05 +00:00
parent d38c9fb5ca
commit 58dc48be20
3 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Changes
View File

@ -1,5 +1,6 @@
11Dec21======================================================================= 11Dec21=======================================================================
1. Removed dependency on perl Git package. 1. Removed dependency on perl Git package.
2. Fixed errors caused by change 1 (use git -C $root to force .git location).
10Dec21======================================================================= 10Dec21=======================================================================
1. Fix the output of set/dxgrid, set/usstate and set/dxcq or set/dxitu to how 1. Fix the output of set/dxgrid, set/usstate and set/dxcq or set/dxitu to how
it was always supposed to be since 2003. it was always supposed to be since 2003.

12
perl/Messages
View File

@ -160,7 +160,7 @@ package DXM;
isow => '$_[0] is isolated; unset/isolate $_[0] first', isow => '$_[0] is isolated; unset/isolate $_[0] first',
join => 'joining group $_[0]', join => 'joining group $_[0]',
l1 => 'Sorry $_[0], you are already logged on on another channel', l1 => 'Sorry $_[0], you are already logged on on another channel',
l2 => 'Hello $_[0], this is $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::subversion.$main::build', l2 => 'Hello $_[0], this is $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::build on $^O',
lang => 'Language is now English', lang => 'Language is now English',
lange1 => 'set/language <lang> where <lang> is one of ($_[0])', lange1 => 'set/language <lang> where <lang> is one of ($_[0])',
lange2 => 'failed to set language on $_[0]', lange2 => 'failed to set language on $_[0]',
@ -586,7 +586,7 @@ package DXM;
isow => '$_[0] est isolé; utilisez d\'abord unset/isolate $_[0]', isow => '$_[0] est isolé; utilisez d\'abord unset/isolate $_[0]',
join => 'Affiliation au groupe $_[0]', join => 'Affiliation au groupe $_[0]',
l1 => 'Désolé $_[0], vous êtes déjà connecté sur un autre canal', l1 => 'Désolé $_[0], vous êtes déjà connecté sur un autre canal',
l2 => 'Bonjour $_[0], bienvenue sur $main::mycall à $main::myqth\nServeur DXSpider V$main::version ($main::subversion.$main::build)', l2 => 'Bonjour $_[0], bienvenue sur $main::mycall à $main::myqth\nServeur DXSpider V$main::version ($main::build)',
lang => 'Je parle maintenant français', lang => 'Je parle maintenant français',
lange1 => 'Syntaxe : set/language <langue>, où <langue> est à choisir parmi ($_[0])', lange1 => 'Syntaxe : set/language <langue>, où <langue> est à choisir parmi ($_[0])',
lange2 => 'Impossible de fixer la langue à $_[0]', lange2 => 'Impossible de fixer la langue à $_[0]',
@ -1230,7 +1230,7 @@ package DXM;
isow => '$_[0] ist isoliert; unset/isolate $_[0] zuerst', isow => '$_[0] ist isoliert; unset/isolate $_[0] zuerst',
join => 'Trete Gespraechsgruppe $_[0] bei', join => 'Trete Gespraechsgruppe $_[0] bei',
l1 => 'Sorry $_[0], Du bist bereits auf einem anderen Kanal eingeloggt', l1 => 'Sorry $_[0], Du bist bereits auf einem anderen Kanal eingeloggt',
l2 => 'Moin $_[0], hier ist $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::subversion.$main::build', l2 => 'Moin $_[0], hier ist $main::mycall in $main::myqth\nrunning DXSpider V$main::version build $main::build',
lang => 'Sprache ist jetzt Deutsch', lang => 'Sprache ist jetzt Deutsch',
lange1 => 'set/language <lang> wobei <lang> ist eine von ($_[0])', lange1 => 'set/language <lang> wobei <lang> ist eine von ($_[0])',
lange2 => 'Fehler beim Setzen der Sprache auf $_[0]', lange2 => 'Fehler beim Setzen der Sprache auf $_[0]',
@ -1498,7 +1498,7 @@ package DXM;
isoaro => 'c\'e\' una filtro sulla rotta in uscita per $_[0]; eliminala con clear/route $_[0] prima', isoaro => 'c\'e\' una filtro sulla rotta in uscita per $_[0]; eliminala con clear/route $_[0] prima',
isow => '$_[0] e\' isolato; unset/isolate $_[0] prima', isow => '$_[0] e\' isolato; unset/isolate $_[0] prima',
l1 => 'Spiacente $_[0], sei già collegato sun un altro canale', l1 => 'Spiacente $_[0], sei già collegato sun un altro canale',
l2 => 'Benvenuto $_[0] sul Cluster $main::mycall a $main::myqth\nsoftware in uso DXSpider V$main::version build $main::subversion.$main::build', l2 => 'Benvenuto $_[0] sul Cluster $main::mycall a $main::myqth\nsoftware in uso DXSpider V$main::version build $main::build',
lang => 'La lingua selezionata e\' adesso Italiano', lang => 'La lingua selezionata e\' adesso Italiano',
lange1 => 'set/language <lingua> dove <lingua> e\' una tra ($_[0])', lange1 => 'set/language <lingua> dove <lingua> e\' una tra ($_[0])',
lange2 => 'impostazione lingua fallita per $_[0]', lange2 => 'impostazione lingua fallita per $_[0]',
@ -1775,7 +1775,7 @@ package DXM;
isoaro => 'vystupni route filtr pro $_[0] uz existuje; zadej nejprve clear/route $_[0]', isoaro => 'vystupni route filtr pro $_[0] uz existuje; zadej nejprve clear/route $_[0]',
isow => '$_[0] je izolovan; zadej nejprve unset/isolate $_[0]', isow => '$_[0] je izolovan; zadej nejprve unset/isolate $_[0]',
l1 => 'Lituji $_[0], uz jsi zalogovan na jinem kanalu', l1 => 'Lituji $_[0], uz jsi zalogovan na jinem kanalu',
l2 => 'Ahoj $_[0], toto je $main::mycall, $main::myqth\npouzivajici DXSpider V$main::version build $main::subversion.$main::build', l2 => 'Ahoj $_[0], toto je $main::mycall, $main::myqth\npouzivajici DXSpider V$main::version build $main::build',
lang => 'Jazyk je nyni nastaven na Cestinu (napoveda zatim v procesu)', lang => 'Jazyk je nyni nastaven na Cestinu (napoveda zatim v procesu)',
lange1 => 'set/language <lang> kde <lang> je jedno z ($_[0])', lange1 => 'set/language <lang> kde <lang> je jedno z ($_[0])',
lange2 => 'selhalo nastaveni jazyka na $_[0]', lange2 => 'selhalo nastaveni jazyka na $_[0]',
@ -2070,7 +2070,7 @@ package DXM;
isow => '$_[0] est isolado; unset/isolate $_[0] primeiro', isow => '$_[0] est isolado; unset/isolate $_[0] primeiro',
join => 'a juntar ao grupo $_[0]', join => 'a juntar ao grupo $_[0]',
l1 => 'Desculpe $_[0], voc est ligado noutro canal', l1 => 'Desculpe $_[0], voc est ligado noutro canal',
l2 => 'Ol $_[0], isto $main::mycall em $main::myqth\nrunning DXSpider V$main::version build $main::subversion.$main::build', l2 => 'Ol $_[0], isto $main::mycall em $main::myqth\nrunning DXSpider V$main::version build $main::build',
lang => 'Linguagem agora o Portugus', lang => 'Linguagem agora o Portugus',
lange1 => 'set/language <ling> aonde <ling> uma de ($_[0])', lange1 => 'set/language <ling> aonde <ling> uma de ($_[0])',
lange2 => 'falha ao definir uma lngua em $_[0]', lange2 => 'falha ao definir uma lngua em $_[0]',

14
perl/cluster.pl
View File

@ -319,7 +319,7 @@ sub cease
$l->close_server; $l->close_server;
} }
LogDbg('cluster', "DXSpider V$version, build $subversion.$build (git: $gitbranch/$gitversion) on $^O ended"); LogDbg('cluster', "DXSpider V$version build $build (git: $gitbranch/$gitversion) on $^O ended");
dbgclose(); dbgclose();
Logclose(); Logclose();
@ -367,6 +367,8 @@ sub AGWrestart
# #
############################################################# #############################################################
chdir $root;
$starttime = $systime = time; $starttime = $systime = time;
$systime_days = int ($systime / 86400); $systime_days = int ($systime / 86400);
$systime_daystart = $systime_days * 86400; $systime_daystart = $systime_days * 86400;
@ -405,18 +407,18 @@ if (DXSql::init($dsn)) {
# determine the real Git build number and branch # determine the real Git build number and branch
my $desc; my $desc;
eval {$desc = `git describe --long`}; eval {$desc = `git -C $root describe --long`};
if (!$@ && $desc) { if (!$@ && $desc) {
my ($v, $s, $b, $g) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/; my ($v, $s, $b, $g) = $desc =~ /^([\d\.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
$version = $v; $version = $v;
my $subversion = $s || 0; $subversion = $s || 0;
$build = $b || 0; $build = $b || 0;
$gitversion = "$g\[r]"; $gitversion = "$g\[r]";
} }
if (!$@) { if (!$@) {
my @branch; my @branch;
eval {@branch = `git branch`}; eval {@branch = `git -C $root branch`};
unless ($@) { unless ($@) {
for (@branch) { for (@branch) {
my ($star, $b) = split /\s+/; my ($star, $b) = split /\s+/;
@ -437,7 +439,7 @@ DXXml::init();
# banner # banner
my ($year) = (gmtime)[5]; my ($year) = (gmtime)[5];
$year += 1900; $year += 1900;
LogDbg('cluster', "DXSpider V$version, build $subversion.$build (git: $gitbranch/$gitversion) on $^O started"); LogDbg('cluster', "DXSpider V$version build $build (git: $gitbranch/$gitversion) on $^O started");
dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH"); dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH");
# load Prefixes # load Prefixes