/* Redirect.pkg */

defcom skip=skip;; 
defcom redirect=redirect S;;

var IP="";;
var fail=1;;

fun main (ip)=
  set IP=ip;
  _openchannel ":1290" "" _envchannel _channel;;

fun _connected()=
  set fail=0;
  _on _channel skip[];
  _on _channel redirect[IP];;

fun close (o, i, u)=_closemachine;;

fun _closed ()= 
  if (fail==1) then 
    _DLGrflmessage 
     (_DLGMessageBox _channel nil "Connection Failed..." "Your comutron must be active in the scol engine to be able to contact someone else.\nJust click on the scol icon in the tray (in the task bar) and choose:\nPreferences -> Settings -> \"Activate comutron system\"." 0
     ) @close 0 
  else 
  {
    _closemachine;
    nil
  };;