27
OK, I am an ASP programmer converting to the PHP side, and since I didn't get a response, I thought I would share my workaround. I am using this XOOPS as a departmental intranet on a win2k3 server. I first created a default.asp page that reads your NT Login to check against the SQL 2000 DB server to see if you belong in this department if so I pass along a username and general password, if not I send you on to the basic XOOPS start up page that will require them to register in order to login.
<%
Dim IIS_USER
Dim CurrentTime
IIS_USER = request.servervariables("LOGON_USER")
Session("IIS_USER")= IIS_USER
LN = Request.ServerVariables("REMOTE_USER")
UserName = LCase(Right(LN, Len(LN) - InStr(1, LN, "")))
set rs=Server.CreateObject("adodb.Recordset")
connectme="driver={SQL Server};SERVER=MyServer;DATABASE=MyDatabase_Name;UID=MyUser_ID;PWD=MyPassword;"
sqlstmt = "SELECT * FROM Department_Employees WHERE UserName='" & UserName & "'"
rs.open sqlstmt, connectme
if rs.eof then
call pass_on
else
%>
<body onLoad="MyForm1.submit()">
<form method="POST" action="http://MyDomain/xoops/html/user.php" name="MyForm1">
<p><input type="text" name="uname" size="20" value="<%=UserName%>"></p>
<p><input type="password" name="pass" size="20" value="<%=12345%>"></p>
<input type="hidden" name="xoops_redirect"
value="/xoops/html/modules/news/index.php" /><input type="hidden" name="op"
value="login" />
<p><input type="submit" value="User Login" /> </p>
</form>
<%
end if
function pass_on()
response.redirect "http://MyDomain/xoops/html"
end function
%>
So in essence what happens is when the users navigate to
http://MyDomain which is our local intranet the get redirected to where I want them to go based on if they are part of my department or not.
Again I thought this might be useful to someone else in the future. If you can think of a better way to do this, Please let me know.
