#-------------------------------------#
#                                     #
#    -      #
#                                     #
#-------------------------------------#


$anti_timeout_action = sub {
	sendl("");
	&anti_timeout();
};

sub anti_timeout {
  $at=timeout { &$anti_timeout_action()} 1000*120, 1;
}

alias { 
  if (!$at) {
    &anti_timeout();
    echo "   .";
    enable("AUTODC");
  } else {
    $at->remove;
    undef($at);
    echo "   .";
    disable("AUTODC");
  }
} "";

trig { \&CMD::cmd_dc; } '^    ,  .', "200s:AUTODC";

