Email Validation Function - Revision history

Anders: Comment out unused label

2019-04-25T15:39:43Z

Comment out unused label

â† Older revision		Revision as of 15:39, 25 April 2019
Line 137:		Line 137:
	StrCmp "$R4" "$R5" 0 lbl_error		StrCmp "$R4" "$R5" 0 lbl_error

	lbl_check6:		; Unused label? lbl_check6:
	# make sure there is at least one "." in the domain section.		# make sure there is at least one "." in the domain section.
	${WordFind} "$R3" "." "*" $R1		${WordFind} "$R3" "." "*" $R1

Bugmenot: /* CheckUserEmailAddress original version */ cleanup links

2018-02-09T10:52:36Z

CheckUserEmailAddress original version: cleanup links

â† Older revision		Revision as of 10:52, 9 February 2018
Line 3:		Line 3:

	This function is useful for checking the format of an email address. Then returning an error if it doesn't meet minimum requirements.<br>		This function is useful for checking the format of an email address. Then returning an error if it doesn't meet minimum requirements.<br>
	''This function originally edited by user [http://forums.winamp.com/member.php?~~s=9adcee5fd428822e00fde45bc4d1561f&~~action=getinfo&userid=213274 99999999] and posted [http://forums.winamp.com/showthread.php?~~s=9adcee5fd428822e00fde45bc4d1561f&~~threadid=267283 on this forum thread]''		''This function originally edited by user [http://forums.winamp.com/member.php?action=getinfo&userid=213274 99999999] and posted [http://forums.winamp.com/showthread.php?threadid=267283 on this forum thread]''
	<highlight-nsis>		<highlight-nsis>
	VAR $USEREMAILADDRESS		VAR $USEREMAILADDRESS

72.5.208.35: /* The header */

2007-04-25T04:59:03Z

The header

â† Older revision		Revision as of 04:59, 25 April 2007
Line 91:		Line 91:
	Push $R4		Push $R4
	Push $R5		Push $R5

	#count the number of @'s more than one is invalid, less than one is invalid		#count the number of @'s more than one is invalid, less than one is invalid
	${WordFind} "$R0" "@" "*" $R1		${WordFind} "$R0" "@" "*" $R1
	StrCmp "1" "$R1" lbl_check2 lbl_error		StrCmp "1" "$R1" lbl_check2 lbl_error

	lbl_check2:		lbl_check2:
	#count the number of words delimited by @ it should be 2.		#count the number of words delimited by @ it should be 2.
	${WordFind} "$R0" "@" "#" $R1		${WordFind} "$R0" "@" "#" $R1
	StrCmp "2" "$R1" lbl_check3 lbl_error		StrCmp "2" "$R1" lbl_check3 lbl_error

	lbl_check3:		lbl_check3:
	#Split the words into user and domain		#Split the words into user and domain
	${WordFind} "$R0" "@" "0" $R2		${WordFind} "$R0" "@" "+1" $R2
	${WordFind} "$R0" "@" "1" $R3		${WordFind} "$R0" "@" "-1" $R3
	#Determine if either of the fields contain special RFC822 characters		#Determine if either of the fields contain special RFC822 characters
	${StrFilter} "$R2" "" "" '()<>,;:\"[]' $R1		${StrFilter} "$R2" "" "" '()<>,;:\"[]' $R1
Line 110:		Line 110:
	${StrFilter} "$R3" "" "" '()<>,;:\"[]' $R1		${StrFilter} "$R3" "" "" '()<>,;:\"[]' $R1
	StrCmp "$R3" "$R1" lbl_check4 lbl_error		StrCmp "$R3" "$R1" lbl_check4 lbl_error

	lbl_check4:		lbl_check4:
	#Determine the number of fields in user and domain, check to see		#Determine the number of fields in user and domain, check to see
	#the number of delimiter is one less than the number of words.		#the number of delimiter is one less than the number of words.
			StrCpy $R4 0
			StrCpy $R5 0
	${WordFind} "$R2" "." "*" $R4		${WordFind} "$R2" "." "*" $R4
	${WordFind} "$R2" "." "#" $R5		${WordFind} "$R2" "." "#" $R5

			StrCmp "$R4" "$R2" lbl_check5
			StrCmp "$R5" "$R2" lbl_check5

	IntOp $R4 $R4 + 1		IntOp $R4 $R4 + 1
	StrCmp "$R4" "$R5" 0 lbl_error		StrCmp "$R4" "$R5" 0 lbl_error

			lbl_check5:
			StrCpy $R4 0
			StrCpy $R5 0
	${WordFind} "$R3" "." "*" $R4		${WordFind} "$R3" "." "*" $R4
	${WordFind} "$R3" "." "#" $R5		${WordFind} "$R3" "." "#" $R5

			StrCmp "$R3" "$R4" lbl_error
			StrCmp "$R3" "$R5" lbl_error

	IntOp $R4 $R4 + 1		IntOp $R4 $R4 + 1
	StrCmp "$R4" "$R5" ~~lbl_check5~~ lbl_error		StrCmp "$R4" "$R5" 0 lbl_error

	~~lbl_check5~~:		lbl_check6:
	# make sure there is at least one "." in the domain section.		# make sure there is at least one "." in the domain section.
	${WordFind} "$R3" "." "*" $R1		${WordFind} "$R3" "." "*" $R1
	IntCmp 1 $R1 lbl_end lbl_end lbl_error		IntCmp 1 $R1 lbl_end lbl_end lbl_error
	~~goto lbl_end~~		StrCpy $R0 0

	lbl_error:		lbl_error:
	StrCpy $R0 1		StrCpy $R0 1

	lbl_end:		lbl_end:
	Pop $R5		Pop $R5

Red Wine: Function modified in order to be used as header

2007-03-18T14:08:10Z

Function modified in order to be used as header

Show changes

Red Wine at 18:56, 13 March 2007

2007-03-13T18:56:17Z

â† Older revision		Revision as of 18:56, 13 March 2007
Line 46:		Line 46:
	FunctionEnd		FunctionEnd
	</highlight-nsis>		</highlight-nsis>

			[[Category:Internet Functions]]

212.251.120.199 at 19:17, 8 March 2007

2007-03-08T19:17:49Z

â† Older revision		Revision as of 19:17, 8 March 2007
Line 1:		Line 1:
	= CheckUserEmailAddress		== CheckUserEmailAddress ==

	~~== This function is useful for checking the format of an email address. Then returning an error if it doesn't meet minimum requirements.~~

			This function is useful for checking the format of an email address. Then returning an error if it doesn't meet minimum requirements.
			<highlight-nsis>
	VAR $USEREMAILADDRESS		VAR $USEREMAILADDRESS
	Function CheckUserEmailAddress		Function CheckUserEmailAddress
Line 44:		Line 45:
	lbl_end:		lbl_end:
	FunctionEnd		FunctionEnd
			</highlight-nsis>

99999999 at 18:56, 8 March 2007

2007-03-08T18:56:53Z

New page

= CheckUserEmailAddress

== This function is useful for checking the format of an email address. Then returning an error if it doesn't meet minimum requirements.

VAR $USEREMAILADDRESS
Function CheckUserEmailAddress
StrCpy $R1 $USEREMAILADDRESS
StrCpy $R2 ""
StrCpy $R3 ""
#count the number of @'s more than one is invalid, less than one is invalid
${WordFind} "$USEREMAILADDRESS" "@" "*" $R1
StrCmp "1" "$R1" lbl_check2 lbl_error
lbl_check2:
#count the number of words delimited by @ it should be 2.
${WordFind} "$USEREMAILADDRESS" "@" "#" $R1
StrCmp "2" "$R1" lbl_check3 lbl_error
lbl_check3:
#Split the words into user and domain
${WordFind} "$USEREMAILADDRESS" "@" "0" $R2
${WordFind} "$USEREMAILADDRESS" "@" "1" $R3
#Determine if either of the fields contain special RFC822 characters
${StrFilter} "$R2" "" "" '()<>,;:\"[]' $R1
StrCmp "$R2" "$R1" 0 lbl_error
${StrFilter} "$R3" "" "" '()<>,;:\"[]' $R1
StrCmp "$R3" "$R1" 0 lbl_error
lbl_check4:
#Determine the number of fields in user and domain, check to see
#the number of delimiter is one less than the number of words.
${WordFind} "$R2" "." "*" $R5
${WordFind} "$R2" "." "#" $R6
IntOp $R5 $R5 + 1
StrCmp "$R5" "$R6" 0 lbl_error
${WordFind} "$R3" "." "*" $R5
${WordFind} "$R3" "." "#" $R6
IntOp $R5 $R5 + 1
StrCmp "$R5" "$R6" lbl_check5 lbl_error
lbl_check5:
# make sure there is at least one "." in the domain section.
${WordFind} "$R3" "." "*" $R1
IntCmp 1 $R1 lbl_end lbl_end lbl_error
goto lbl_end
lbl_error:
SetErrors
lbl_end:
FunctionEnd