SF.net SVN: frontierkernel: [1385] ODBs/trunk/mainResponderRoot/mainResponder/adminSite/prefs/basicSettingsEmailPassword.fvc

[<cre...@us...>]

Revision: 1385
Author:   creecode
Date:     2006-05-19 23:03:42 -0700 (Fri, 19 May 2006)
ViewCVS:  http://svn.sourceforge.net/frontierkernel/?rev=1385&view=rev

Log Message:
-----------
script to deal with email password on basic settings webpage

Added Paths:
-----------
    ODBs/trunk/mainResponderRoot/mainResponder/adminSite/prefs/basicSettingsEmailPassword.fvc
Added: ODBs/trunk/mainResponderRoot/mainResponder/adminSite/prefs/basicSettingsEmailPassword.fvc
===================================================================
--- ODBs/trunk/mainResponderRoot/mainResponder/adminSite/prefs/basicSettingsEmailPassword.fvc	                        (rev 0)
+++ ODBs/trunk/mainResponderRoot/mainResponder/adminSite/prefs/basicSettingsEmailPassword.fvc	2006-05-20 06:03:42 UTC (rev 1385)
@@ -0,0 +1,39 @@
+FrontierVcsFile:2:scpt:mainResponder.adminSite.prefs.basicSettingsEmailPassword
+
+on basicSettingsEmailPassword () {
+	«Changes
+		«5/19/06; 6:45:52 PM by TAC
+			«created
+			«NOTE: it's kind of funky putting the error message in the middle of the user inputs.
+	
+	local ( errorMessage = "", flError = false );
+	local ( htmlText = "[[errorMessage]]<tr><td align=\"left\">Email Password:&nbsp;&nbsp;</td><td valign=\"top\" colspan=\"1\"><input type=\"password\" name=\"emailPassword\" size=\"25\" maxlength=\"255\" value=\"" + user.prefs.mailPassword + "\" /></td></tr><tr><td align=\"left\">Repeat email password:</td><td valign=\"top\" colspan=\"1\"><input type=\"password\" name=\"emailPasswordRepeat\" size=\"25\" maxlength=\"255\" value=\"" + user.prefs.mailPassword + "\" /></td></tr>" );
+	local ( pta = html.getPageTableAddress () );
+	
+	if string.lower ( pta^.method ) == "post" {
+		bundle { // check that the email password is ok, and that it matches the repeat email password
+			«if sizeOf (pta^.postArgs.emailPassword) < 4
+				«errorMessage = "Can't continue setting up Frontier because the email password you supplied is not at least four characters long."
+				«flError = true
+			
+			«if not (flError)
+			
+			if pta^.postArgs.emailPassword != pta^.postArgs.emailPasswordRepeat {
+				errorMessage = "Can't change the Email Password because the passwords you supplied didn't match.";
+				flError = true};
+			
+			if not ( flError ) {
+				user.prefs.mailPassword = binary ( pta^.postArgs.emailPassword )}}};
+	
+	bundle { // replace error message
+		local ( s = "");
+		
+		if flError {
+			s = "<tr><td colspan=\"2\" style=\"color: red;\"><i>" + errorMessage + "</i></td></tr>"};
+		
+		htmlText = string.replace ( htmlText, "[[errorMessage]]", s)};
+	
+	return (htmlText)}
+«local (htmltext = "")
+«on add (s)
+	«htmltext = htmltext + ("\r\n" + s);
\ No newline at end of file


Property changes on: ODBs/trunk/mainResponderRoot/mainResponder/adminSite/prefs/basicSettingsEmailPassword.fvc
___________________________________________________________________
Name: svn:eol-style
   + native


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.