home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 139 / dpcs0999.iso / Web / CFserver / data1.cab / Administrator / debugging / addip.cfm (.txt) next >
Encoding:
ColdFusion Encrypted Template  |  1999-04-12  |  1.0 KB  |  25 lines
  1. <!--- Is the IP valid? --->
  2. <CFSET NumSegments = "0">
  3. <CFLOOP Index="IP_Segment" List=#IPtoBeAdded# Delimiters=".">
  4.     <CFSET NumSegments = NumSegments + 1>
  5.     <CFIF IP_Segment LT 0 OR IP_Segment GT 255>
  6.         <CFSET #IP_SegmentIsInvalid# = "YES">
  7.     </CFIF>        
  8. </CFLOOP>
  9.  
  10. <CFIF Right(IPtoBeAdded,1) IS "." >
  11.     <CFSET #IP_SegmentIsInvalid# = "NO">
  12. </CFIF>
  13.  
  14.  
  15. <!--- Throw an error, or Add the IP. --->
  16. <CFIF ParameterExists( IP_SegmentIsInvalid ) OR NumSegments IS NOT 4>
  17.     <!--- Validation error eccured throw an error. --->
  18.     <CFSET Error_Message = "The IP you attepted to add (#IPtoBeAdded#) is not valid.<BR>">
  19.     <CFSET Error_Message = Error_Message & " IPs are four sets of numbers from 0 to 255 separated by periods (e.g., 127.0.0.1).">
  20.     <CFINCLUDE TEMPLATE="../include/errormessage.cfm">
  21.     <CFABORT>
  22. <CFELSE>
  23.     <CFSET RestrictedIPList = ListAppend(RestrictedIPList,'''#IPtoBeAdded#''')>
  24. </CFIF>
  25.