//
// PINGCHECKX.VDM         
//                                                           11.02.2003
//
// ermittelt, ob die Einträge in der hosts anpingbar sind
//

#90=Buf_Num

// Find longest line:
#103=#104=0 
Begin_Of_File() 
while (! AT_EOF) { 
  EOL() 
  if (Cur_Col>#103) { 
    #103=Cur_Col 
    #104=Cur_Pos 
  } 
  Line(1,ERRBREAK) 
} 
Goto_Pos(#104)
EoL
#94=Cur_Col + 4


Config( S_H_CR_LINE, "Highlight cursor line (0 - 2)", 2 )

BoF

while(! At_EoF){
  bol

  if(Match("|D") == 0){
    bb(CP)
    S('|W')
    rcb(10,bb,cp)
    bb(clear)
    File_Delete("|(VEDIT_TEMP)\ping.tmp", OK+NOERR)
    Message(" pinging, please wait ...", STATLINE)
    system("ping |@(10) > |(VEDIT_TEMP)\ping.tmp",DOS+SIMPLE+OK)
    File_Open("|(VEDIT_TEMP)\ping.tmp")
    RS(20,"	#@# not reached")
    Search("|{Antwort von,unbekannt,erreichbar,Zeit|Aberschreitung}", BEGIN+NOERR)
    if(!EM){
      if(MI==1){
        RS(12, "|@(10) reached          ")
        RE(20)
      }else{
        if(MI==2){
          RS(12, "|@(10) unknown          ")
        }else{
          RS(12, "|@(10) NOT reached      ")
        }
      }
    }else{
      RS(12, ">>> unknown error      ")
    }

    Buf_Quit(OK)

    if(Reg_Size(20) > 0){
      EoL
      Ins_Indent(#94)
      RI(20)
    }
    Update
    Statline_Message("|@(12)")
    
  }
  Line(1, NOERR)
}

Config( S_H_CR_LINE, "Highlight cursor line (0 - 2)", 0 )