manilaSuite.members.addMultipleMembers

on addMultipleMembers (memberlist, adrsite=nil, membertype="member", flSendWelcomeEmail=true)

«Changes

unaltered lines omitted

local (pwdchars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890")

local (ctchars = sizeOf (pwdchars))

if adrsite == nil //get the site from the pagetable

unaltered lines omitted

local (adrnewssite = manilaSuite.getNewsSiteAddress (adrsite))

local (membershipGroupName = adrsite^.["#prefs"].defaultMembershipGroup)

on editorsListToString (adr)

unaltered lines omitted

on stringToMemberList (s)

unaltered lines omitted

«on getRandomPassword (n) «commented out 05/03/25, 11:23:06 by DAB

«local (s = "")

«local (i)

«for i = 1 to n

«s = s + pwdchars[random (1, ctchars)]

«return (s)

if typeOf (memberlist) == stringType

unaltered lines omitted

on getMemberTable (memberKey)

unaltered lines omitted

local (email)

for email in memberlist //create the new members

local (adrMember = getMemberTable (email))

«local (password = getRandomPassword (8))

local (password = manilaSuite.passwords.generate()) //05/03/25, 11:22:56 by DAB

if not defined (adrMember^) //create the member table

new (tableType, adrMember)

adrMember^.password = binary (password)

manilaSuite.members.callbacks(adrSite, adrMember, "signup") //05/03/24, 22:55:47 by DAB

case string.lower (membertype) //add as a managing-, contributing- or content- editor.

unaltered lines omitted

manilaSuite.members.sendMemberSignupMail (adrMember, adrsite)

return (true)

«bundle //test code

«addMultipleMembers ("foo@braincase.net bar@braincase.net baz@braincase.net", @testManilaWebsite, "managingEditor")

Relative to Frontier version 9.7b10