EQEmulator Forums - Web based minilogin update system

Well, this is my first attempt at solving a problem I've had... and that's maintaining those IP addresses in the miniloginaccounts.ini. This lets the users add their own <g>. Since my server is small this works out very well.

Basically, this web page does the following:

1) Copies the miniloginaccounts.ini from the eqemu server to the web directory. This way we're not working on the live version.
2) Users can enter their information and then hit the Add It button. There's no syntax checks or anything in this right now.
3) It adds the info to the current copy of the file.
4) It copies the updated file back to the eqemu server.
5) It then kills the minilogin server on the eqemu server. The minilogin server auto-restarts itself.

Things you need:
ASPEXEC - www.softwareartisans.com
PSTOOLS - www.sysinternals.com
A webserver of course

Some things that might help read this code:

1) My EQEMU server is named EQEMU
2) It has a share created on it called EQEMU$ which points to the root of the game files (typically the Everquest directory)
3) My local webserver is at c:\webserver and I have a directory off of it specific for this stuff called eqemu (c:\webserver\eqemu)
4) The EQEMU server runs under the user EQEMU with matching password. When the command to execute the kill is done I pass it this information so we can remotely kill the minilogin server.

How do I make minilogin restart itself?
I have a batch file called mini1.bat that has these commands:
@echo off
cd \everquest
start /wait /min minilogin.exe
mini1

The eqemu.bat that I use to start the server has this line in it:
start "minibat" /min cmd /c mini1.bat

This starts the mini1.bat in it's own window named "minibat". Why?
I do it this way so I can do kill "minibat" and kill ONLY the command window associated with the minilogin system. Using this method you'll see 2 windows when it runs. One is the minibat the other is the minilogin. This allows us to auto-restart the minilogin by just killing that process as the minibat process will run it again.

I'll help where I can... and post any updates I make. Feel free to modify, enhance, etc. this code, just be sure to share it. Things I know I'd like to do but might not be able to quickly is:

1) Add ability to remove old entries (maybe some sort of checkbox/delete button thing)
2) Syntax checking on the IP address

Good luck!

Code:

&lt;center>

&lt;h1>EQEMU Minilogin Account Update System&lt;/h1>

&lt;h4>Version 0.6c&lt;/h4>

&lt;/center>



&lt;%

Dim strFile

strFile = "c:\webserver\eqemu\miniloginaccounts.ini"



' If the script doesn't have anything posted to it we display the form

' otherwise we process the input

If Request.Form.Count = 0 Then

        ' Display the entry form.

        %>

        Grabbing a copy of the miniloginaccounts.ini: 

        &lt;%

        Set Executor = Server.CreateObject("ASPExec.Execute")

        Executor.Application = "cmd /c copy \\eqemu\eqemu$\miniloginaccounts.ini c:\webserver\eqemu\miniloginaccounts.ini"

        Executor.Parameters = ""

        strResult = Executor.ExecuteDosApp

        Response.Write strResult

        %>



        &lt;h3>Login Account Information to Add:&lt;/h3>

        &lt;form action="eqemu.asp" method="post">

        &lt;table>

                &lt;tr>

                        &lt;th align="right">IP Address:&lt;/td>

                        &lt;td>&lt;input type="text" name="name" size="15">&lt;/input>&lt;/td>

                &lt;/tr>

                &lt;tr>

                        &lt;th align="right">Login ID:&lt;/td>

                        &lt;td>&lt;input type="text" name="comment" size="35">&lt;/input>&lt;/td>

                &lt;/tr>

        &lt;/table>

        &lt;input type="submit" value="Add It!">&lt;/input>

        &lt;/form>



        &lt;br>



        &lt;h3>Current Login Account Information:&lt;/h3>

        &lt;%

        Set objFSO = CreateObject("Scripting.FileSystemObject")

        Set objInFile = objFSO.OpenTextFile(strFile)



        ' Loop Through Real File and Output Results to Browser

        Do While Not objInFile.AtEndOfStream

                strIn = objInFile.ReadLine

                Response.Write strIn &amp; "&lt;br>"

        Loop



        ' Close file and free variables

        objInFile.Close

        Set objInFile = Nothing

        Set objFSO = Nothing

        %>



        &lt;%

Else

        Dim objFSO  'FileSystemObject Variable

        Dim objFile 'File Object Variable

        

        ' Create an instance of the FileSystemObject

        Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

        ' Open the TextFile (FileName, ForAppending, AllowCreation)

        Set objFile = objFSO.OpenTextFile(strFile, 8, True)



        objFile.Write Request.Form("name")

        objFile.Write " "

        objFile.Write Request.Form("comment")

        objFile.Write " "

        objFile.Write Request.Form("comment")

        objFile.WriteLine ""

        

        ' Close the file and dispose of our objects

        objFile.Close

        Set objFile = Nothing

        Set objFSO = Nothing

        %>

        Storing a copy of the miniloginaccounts.ini: 

        &lt;%

        Set Executor = Server.CreateObject("ASPExec.Execute")

        Executor.Application = "cmd /c copy c:\webserver\eqemu\miniloginaccounts.ini \\eqemu\eqemu$\miniloginaccounts.ini"

        Executor.Parameters = ""

        strResult = Executor.ExecuteDosApp

        Response.Write strResult

        %>

        &lt;br>

        Attempting service restart: 

        &lt;%

        Set Executor = Server.CreateObject("ASPExec.Execute")

        Executor.Application = "cmd /c pskill \\eqemu -u eqemu -p eqemu minilogin"

        Executor.Parameters = ""

        strResult = Executor.ExecuteDosApp

        Response.Write "&lt;pre>" &amp; strResult &amp; "&lt;/pre>"



        ' Tell people we've written their info

        %>



        &lt;H3>Update should now be complete.&lt;/H3>

        &lt;H3>Please report any errors.&lt;/H3>

        &lt;A HREF="eqemu.asp">Back&lt;/A>

        &lt;%

End If

%>