6. Make the scripts look for user and node_default files if there isn't a

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 990aa45d57d21f2035913aaad4d08f854fb0b30d..b8b17ae612065b2080eb8c44f7c34cc20120c81c 100644 (file)
--- 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;
 }