X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=9511435d72200b4b3cb3f76c726383dcc57882ab;hb=23d995215379c4786c2cb1d930a09c734c2472aa;hp=f1759ef5a01e80a178d2210206081afa50ca5409;hpb=82f98b9ed11d362b2bf18f3371bb60ff02f024db;p=spider.git diff --git a/perl/cluster.pl b/perl/cluster.pl index f1759ef5..9511435d 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -16,8 +16,8 @@ BEGIN { $root = "/spider"; $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'}; - unshift @INC, '$root/perl'; # this IS the right way round! - unshift @INC, '$root/local'; + unshift @INC, "$root/perl"; # this IS the right way round! + unshift @INC, "$root/local"; } use Msg; @@ -170,6 +170,9 @@ foreach(@debug) { } STDOUT->autoflush(1); +# banner +print "DXSpider DX Cluster Version $version\nCopyright (c) 1998 Dirk Koopman G1TLH\n"; + # load Prefixes print "loading prefixes ...\n"; Prefix::load();