X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=b8b17ae612065b2080eb8c44f7c34cc20120c81c;hb=ff8c77ef8bad7d4ff4433ca233a1dc8f0203983d;hp=990aa45d57d21f2035913aaad4d08f854fb0b30d;hpb=8f58735f5c9c090f2e5e00e05c7ad0834eccb741;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 990aa45d..b8b17ae6 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -61,7 +61,7 @@ $baddx = new DXHash "baddx"; $badspotter = new DXHash "badspotter"; $badnode = new DXHash "badnode"; $last10 = $last_pc50 = time; -$ann_to_talk = 0; +$ann_to_talk = 1; @checklist = ( @@ -275,7 +275,7 @@ sub start $self->tell_login('loginn'); # run a script send the output to the debug file - my $script = new Script(lc $call); + my $script = new Script(lc $call) || new Script('node_default'); $script->run($self) if $script; }