Alternative Login - After Login HELP!

[swest]

I am trying to set up facebook alternative login. What I need to happen is when someone logins using facebook, it looks to see if that user email address is in my system. If it is not there, then it needs to insert a row into four different tables and set the email address into the appropriate field. If that email address is in the system, then it just filter the appropriate fields based on that users session id. Below is the code I have in the after login event for alternative login. Can someone help me with the code?

save_to_file("Succeeded: "+convert_type(e.loginSucceeded,"C")+" User: "+e.userId,"C:\loginevent.txt")

if e.loginSucceeded
dim CurrentUserName as c
CurrentUserName = e.userid
if CurrentUserName = ""
Dim cn as sql::connection
dim sqlCommand as c
flag = cn.open("::name::databasename")
flag = cn.execute(insert into tablename (emailfield) values (:e.userid))
flag = cn.execute(insert into tablename)
flag = cn.execute(insert into tablename)
flag = cn.execute(insert into tablename)
end if
if CurrentUserName <> ""
dim args as sql::Arguments
args.set("emailfield",CurrentUserName)
session.pvvid = sql_lookup("::name::databasename", "tablename", "emailfield = :emailfield","pvvid",args)
if session.pvvid > 0
args.set("PVVID", session.pvvid)
session.emailfield = sql_lookup("::name::databasename", "tablename", "pvvid = :pvvid", "pvvid",args)
end if
end if
end if

e.url = page after login

'To capture Last Login date and time
'0: Initialize connections
dim globalcn as sql::connection
flag = globalcn.open("::name::database name")

'1: Log entry into system
dim sql as c
dim args as sql::arguments
args.add("CurrentUserName",a5ws_getcurrentuser()) 'Gets logged in user
flag = globalcn.execute("UPDATE tablename SET LAST_LOGIN = getdate() where tablename = :CurrentUserName",args)
flag = globalcn.Execute(sql, args)

'x: Clean u
globalcn.FreeResult()
globalcn.Close()
delete globalcn

end function

[Pat Bremkamp]

Re: Alternative Login - After Login HELP!

What do you want us to look at?
Do you get an error?
What works and what doesn't?

For starters, why do you open so many connections to the database. In this little bit of code you opened 4 connections and you never closed cn.
So, every user will have their own table in the database?

[swest]

Re: Alternative Login - After Login HELP!

It seems to work when someone logs in through facebook that has already registered in my system. However, if they are a new user, when they login through facebook, it doesn't insert the rows into the database tables that I need, and doesn't set the email address from facebook in the database table field that I need it to. Does this make sense?

[swest]

Re: Alternative Login - After Login HELP!

Also, no every user doesn't have their own table, just want to insert a row into 4 tables if a new user when logging in through Facebook.

[swest]

Re: Alternative Login - After Login HELP!

Have the code below where I am trying to check to see if user is in my tables already and if they are not, then it adds rows to necessary tables. If user is already there, then it just logs in normally. However, this is not working. ANY HELP WITH CODE AND WHERE I AM THINKING ABOUT THIS WRONGLY?


if e.loginSucceeded
dim CurrentUserName as c
dim CheckUserExist as c
CurrentUserName = e.userid
Dim cn as sql::connection
dim sqlCommand as c
flag = cn.open("::name::database")
CheckUserExist = sql_lookup("::name::database", "table", "EMAIL = :e.userId","EMAIL",args)
if CheckUserExist = ""
flag = cn.execute(insert into table (email) values (:e.userid))
flag = cn.execute(insert into table)
flag = cn.execute(insert into table)
flag = cn.execute(insert into table)
end if
if CurrentUserName <> ""
dim args as sql::Arguments
args.set("EMAIL",CurrentUserName)
session.pvvid = sql_lookup("::name::database", "table", "EMAIL = :EMAIL","pvvid",args)
if session.pvvid > 0
args.set("PVVID", session.pvvid)
session.EMAIL = sql_lookup("::name::database", "table", "pvvid = :pvvid", "pvvid",args)
end if
end if
end if

e.url = "http://"

'To capture Last Login date and time
'0: Initialize connections
dim globalcn as sql::connection
flag = globalcn.open("::name::database")

'1: Log entry into system
dim sql as c
dim args as sql::arguments
args.add("CurrentUserName",a5ws_getcurrentuser()) 'Gets logged in user
flag = globalcn.execute("UPDATE table SET LAST_LOGIN = getdate() where email = :CurrentUserName",args)
flag = globalcn.Execute(sql, args)

'x: Clean u
globalcn.FreeResult()
globalcn.Close()
delete globalcn

end function