home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / SREFPRC1 / BADIPS.SRF < prev    next >
Text File  |  1996-09-22  |  1KB  |  36 lines
  1. /* -----------------------------------------------------------------------*/
  2. /* see if ip address matches one of a set of bad ips (1 if yes)*/
  3. /* -----------------------------------------------------------------------*/
  4. sref_badips:
  5. parse arg anips,enmadd,host_nickname
  6. parse var anips ip.1 '.' ip.2 '.' ip.3 '.' ip.4
  7.  
  8. aa='unallowedips.' ;addit=''
  9. if host_Nickname<>"" then addit='.'||strip(host_nickname)
  10. nin=0
  11. do mm=1 to 10000
  12.       tt=strip(value(enmadd||aa||mm||addit,,'os2environment')) ;tt=strip(tt)
  13.       if tt="" | tt=0 then leave
  14.       nin=nin+1 ; unallowedips.nin=tt
  15. end
  16. unallowedips.0=nin
  17.  
  18. mdo=unallowedips.0
  19. do mm=1 to mdo
  20.   chekips=uNALLOWEDIPS.mm
  21.   if chekips=' ' then iterate
  22.   parse var chekips uip.1 '.' uip.2 '.' uip.3 '.' uip.4
  23.   match=1
  24.   do mm2=1 to 4
  25.       if uip.mm2="*" then iterate
  26.       if uip.mm2=ip.mm2 then iterate
  27.       match=0       /*if here, not a match */
  28.       leave
  29.   end
  30.   if match=1 then  return 1   /* got a match */
  31. end
  32. return 0
  33.  
  34.  
  35.  
  36.