Update of /cvsroot/hcoop/domtool2/src
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv24600/src
Modified Files:
domain.sml
Log Message:
Increase length limits on domains
Index: domain.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/domain.sml,v
retrieving revision 1.63
retrieving revision 1.64
diff -C2 -d -r1.63 -r1.64
*** domain.sml 20 Dec 2007 13:37:33 -0000 1.63
--- domain.sml 19 Jan 2008 20:17:27 -0000 1.64
***************
*** 114,122 ****
fun validHost s =
! size s > 0 andalso size s < 20
andalso CharVector.all (fn ch => isIdent ch orelse ch = #"-") s
fun validDomain s =
! size s > 0 andalso size s < 100
andalso List.all validHost (String.fields (fn ch => ch = #".") s)
--- 114,122 ----
fun validHost s =
! size s > 0 andalso size s < 50
andalso CharVector.all (fn ch => isIdent ch orelse ch = #"-") s
fun validDomain s =
! size s > 0 andalso size s < 200
andalso List.all validHost (String.fields (fn ch => ch = #".") s)
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs
