Mirage Source :: View topic - Updating a Website with Server Information

Author:

Obsidian [ Fri Dec 08, 2006 8:21 am ]

Post subject:

Updating a Website with Server Information

Original Author: Unknown

Description: This will be good, i'm sure william did something very similar to this for K2H's "who's online" internet portion of his website. Basically, this reads information, saves it to an HTML file, and automatically updates your site via FTP for you. It does require knowledge of HTML to get it working the way you want, however. Also, there are easier/better ways of doing this, such as using an SQL server. Final Note, FTP isn't the most secure protocol in the world (it sends passwords in plain-text), so if someone wants to revise this tutorial using SSH or something, that'd be awesome.

[Original Post]
Difficulty: Medium 3/5

What this does-

This code will create a Statis.htm file that will display whether the server is up or down. The server will then send the file via FTP to a webserver. It is really easy to customize the file that the server makes to whatever you want, the main purpose of this code is the sending of the file to the webserver.

What you need-

A FTP accessible webserver.

The code-

All of this code is Server side.

First add the following code to the top of any module, I created a new module called modStatis for this code. All of this code must go into the same module!

Code:

Dim Statis As String
Dim ServerStatis As String
Dim ServerTime As String

Dim InternetConnection As Long
Dim FTPConnection As Long

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

The last part of this code contains the functions that do the "dirty" work. You'll see what they do in a second.

Now add this to the module

Code:

Sub SaveStatis(Stat As Byte)
Dim SS As String
Dim SS0 As String
Dim SS1 As String
Dim SS2 As String
Dim Time As String
Dim Color As String
Dim CurrentTime As Variant
Dim FileName As String
Dim SaveFile As Boolean
Dim CloseFTP As Integer

FileName = App.Path & "\Statis.htm"

CurrentTime = Now '3:00 PM Jan 16, 2005
Time = Format(CurrentTime, "h:mm AMPM d, yyyy")

If Stat = 0 Then
    SS = "Offline"
    Color = "FF0000"
ElseIf Stat = 1 Then
    SS = "Online"
    Color = "00FF00"
ElseIf Stat = 2 Then
    SS = "loading"
    Color = "0000FF"
End If

SS0 = "<!-- " & Stat & " -->"

SS1 = "        <td width='53%'><font color='#" & Color & "' face='Courier New, Courier, mono'>" & SS & "</font></td>"
SS2 = "        <td width='72%'><font color='#999999' face='Courier New, Courier, mono'>" & Time & " (GMT -4:00)</font></td>"

Open FileName For Output As #1
    Print #1, "<HTML>"
    Print #1, "<HEAD>"
    Print #1, "<TITLE>Server Statis</TITLE>"
    Print #1, "</HEAD>"
    Print #1, "<BODY>"
    Print #1, SS0
    Print #1, "<h1 align='center'><font color='#333399'>Server Statis</font></h1>"
    Print #1, "<br></br><table width='18%' border='1' align='center'>"
    Print #1, "    <tr>"
    Print #1, "        <td width='47'>The server is</td>"
    Print #1, SS1
    Print #1, "    </tr>"
    Print #1, "</table>"
    Print #1, "<table width='31%' border='1' align='center'>"
    Print #1, "    <tr>"
    Print #1, "        <td width='28%'>Last Changed</td>"
    Print #1, SS2
    Print #1, "    </tr>"
    Print #1, "</table>"
    Print #1, "</BODY>"
    Print #1, "</HTML>"
Close #1

If Stat >= 2 Then Exit Sub

If FileExist("DontUpdateStatis") = True Then Exit Sub

    InternetConnection = InternetOpen("FTPControl", 1, vbNullString, vbNullString, 0)
    If InternetConnection = 0 Then
        MsgBox ("Error opening internet connection!")
    Else
        FTPConnection = InternetConnect(InternetConnection, "<FTP SERVER>", 0, "<USERNAME>", "<PASSWORD>", 1, 0, 0)
        If FTPConnection = 0 Then MsgBox ("Error connecting to FTP server!")
    End If
    If FTPConnection <> 0 Then
        SaveFile = FtpPutFile(FTPConnection, FileName, "Statis.htm", 1, 0)
        If SaveFile = False Then MsgBox ("Error sending Statis.htm file to FTP server!")

        CloseFTP = InternetCloseHandle(FTPConnection)
        If CloseFTP = False Then MsgBox ("Error closing FTP connection!")
        CloseFTP = InternetCloseHandle(InternetConnection)
        If CloseFTP = False Then MsgBox ("Error closing internet connection!")
    End If
End Sub

What this code does-

Code:

CurrentTime = Now 
Time = Format(CurrentTime, "h:mm AMPM d, yyyy")

This code get's the current time and gives it a 2:00 PM June 16, 2005 format.

Code:

If Stat = 0 Then
    SS = "Offline"
    Color = "FF0000"
ElseIf Stat = 1 Then
    SS = "Online"
    Color = "00FF00"
ElseIf Stat = 2 Then
    SS = "loading"
    Color = "0000FF"
End If

Simple enough, this code uses the number that was passed into Sub SaveStatis to dertermin weather the server is Online, Offline, Or Loading and assigns the color that will be used to display the statis. (For ex, if the server is Online then "Online" will be colored green in the Statis.htm file.

Code:

SS0 = ""

This is used so other programs can easily determine the server's statis

Code:

SS1 = "        <td width='53%'><font color='#" & Color & "' face='Courier New, Courier, mono'>" & SS & "</font></td>"
SS2 = "        <td width='72%'><font color='#999999' face='Courier New, Courier, mono'>" & Time & " (GMT -4:00)</font></td>"

The two most important lines in the statis.htm file, they are the lines that display the server's statis and the time the file was updated.

Code:

Open FileName For Output As #1
    Print #1, "<HTML>"
    Print #1, "<HEAD>"
    Print #1, "<TITLE>Server Statis</TITLE>"
    Print #1, "</HEAD>"
    Print #1, "<BODY>"
    Print #1, SS0
    Print #1, "<h1 align='center'><font color='#333399'>Server Statis</font></h1>"
    Print #1, "<br></br><table width='18%' border='1' align='center'>"
    Print #1, "    <tr>"
    Print #1, "        <td width='47'>The server is</td>"
    Print #1, SS1
    Print #1, "    </tr>"
    Print #1, "</table>"
    Print #1, "<table width='31%' border='1' align='center'>"
    Print #1, "    <tr>"
    Print #1, "        <td width='28%'>Last Changed</td>"
    Print #1, SS2
    Print #1, "    </tr>"
    Print #1, "</table>"
    Print #1, "</BODY>"
    Print #1, "</HTML>"
Close #1

This is the code that creates the Server.htm file, The file is in HTML format. This may look a little confusing at first, but It's not too bad when you look at it line by line.

Code:

If Stat >= 2 Then Exit Sub

You may have noticed that there is a "Loading" statis, this is mainly for the benefit of external programs. This line of code keeps the "Loading" statis from being sent to the webserver, mainly to save on the time it takes for the server to load.

Code:

If FileExist("DontUpdateStatis") = True Then Exit Sub

I'll get to this latter.

Code:

InternetConnection = InternetOpen("FTPControl", 1, vbNullString, vbNullString, 0)

This line opens an internet connection and saves the handel to "InternetConnection" This handel is required to open the FTP connection, and later close the internet connection.

Code:

    If InternetConnection = 0 Then
        MsgBox ("Error opening internet connection!")
    Else
        FTPConnection = InternetConnect(InternetConnection, "<FTP SERVER>", 0, "<USERNAME>", "<PASSWORD>", 1, 0, 0)
        If FTPConnection = 0 Then MsgBox ("Error connecting to FTP server!")
    End If

As long as there is an internet connection this code will make a connection to the FTP server and save the handle to "FTPConnection", this handel is needed so the next bit of code can send the file. And so the FTP connection can be closed.

[size=18px]VERY INPORTANT![/size]

Make shour that you change <FTP SERVER> to the FTP server's URL, <USERNAME> to you'r username, and <PASSWORD> to you'r password.

Code:

    If FTPConnection <> 0 Then
        SaveFile = FtpPutFile(FTPConnection, FileName, "Statis.htm", 1, 0)
        If SaveFile = False Then MsgBox ("Error sending Statis.htm file to FTP server!")

This bit of code will send the Statis.htm file to the FTP server as long as there is a FTP connection.

Code:

        CloseFTP = InternetCloseHandle(FTPConnection)
        If CloseFTP = False Then MsgBox ("Error closing FTP connection!")
        CloseFTP = InternetCloseHandle(InternetConnection)
        If CloseFTP = False Then MsgBox ("Error closing internet connection!")
    End If
End Sub

This code just cleans up so to speek, It closes the FTP connection and then the internet connection, in that order.

Ok, so now we are left with a sup that will send the server's Online/Offline statis to a FTP server. All that is left is to put in the sub's call's.

Att the very bottom of Sub InitServer() (In modGeneral) add:

Code:

Call SaveStatis(1)

At the top add:

Code:

Call SaveStatis(2)

And at the very bottom of Sub DestroyServer(), but BEFORE "End" add:

Code:

Call SaveStatis(0)

That's about it. If you rember befor I mentioned this bit of code:

Code:

If FileExist("DontUpdateStatis") = True Then Exit Sub

If you make a file called "DontUpdateStatis" (no extension) and put it in the server's directory the server won't send the Statis.htm file to the webhost, this is useful during debugging, to save time starting and stopping the server.

I also highly recommend adding the following code to frmServer if is isn't already there (CHECK, it might be there already).

Code:

Private Sub Form_Terminate()
    Call DestroyServer
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Call DestroyServer
End Sub

One last thing, if you want to get a file from a FTP server, or if you wan't to delete a file off of a FTP server you can use theas functions: (How they are use I'll leave up to you)

Code:

Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Private Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean

Anyway, I hope this helps.

[/Original Post

]

If you need any help getting this to work or there are any problems with the code, let me know.

Mirage Source http://web.miragesource.net/forums/

Updating a Website with Server Information http://web.miragesource.net/forums/viewtopic.php?f=210&t=812	Page 1 of 2

Author:	Forte [ Fri Dec 08, 2006 1:20 pm ]
Post subject:
wow, awesome tut dude. I'm deff gonna get this to my game but i got school right now, XD so il add it wen i get home and ill tell you how i did. nice job

Author:	William [ Fri Dec 08, 2006 3:00 pm ]
Post subject:
Yeah.. its close to what Im doing. Thanks for releasing a unique feature

Author:	Robin [ Fri Dec 08, 2006 4:39 pm ]
Post subject:
William wrote: Yeah.. its close to what Im doing. Thanks for releasing a unique feature I doubt it's going to stay unique for long -_-

Author:	Rian [ Fri Dec 08, 2006 5:32 pm ]
Post subject:
William wrote: Yeah.. its close to what Im doing. Thanks for releasing a unique feature This is not the first time that exact code surfaced on these forums. Obsidian put "Original Author: Unknown". I remember this tut because through out the whole thing "Status" is spelled as "Statis". I think the original author may have been Caine or that Grubert fella. shrugs Thanks for posting, been trying to find this tut for ages

Author:	Obsidian [ Fri Dec 08, 2006 6:17 pm ]
Post subject:
yeah i saw this on the backup forum, i went through and fixed a lot of spelling errors, and stuff. Sorry to kind of rain on your parade though william, it is still a great feature that you added without the use of this code. nicely done but yeah it's an older tutorial that i thought i should bring back up, since a lot of people were trying to do something like this. [Edit] I think i'm going to rewrite this sometime next week and replace FTP with SSH though. I'm not sure what VB has in the neighborhood of SSH controls but atleast you won't have to worry about your site getting compromised (from this)

Author:	William [ Sat Dec 09, 2006 1:00 pm ]
Post subject:
Hehe I thought you made it. didnt see the author thing.

Author:	Tony [ Fri Dec 15, 2006 9:10 pm ]
Post subject:
Mm nice code. I converted it to users in 5 minutes or so. Spiffy! Is it me or does this lag your server 0____o :: Pando

Author:	Robin [ Fri Dec 15, 2006 9:58 pm ]
Post subject:
Pando wrote: Mm nice code. I converted it to users in 5 minutes or so. Spiffy! Is it me or does this lag your server 0____o :: Pando Constantly writing to a file? I'd say.

Author:	Rian [ Fri Dec 15, 2006 11:22 pm ]
Post subject:
I'm sure it'd be just as easy to write a seperate program that does this. I guess it'd be more work, but oviously less server stress.

Author:	Matt [ Sat Dec 16, 2006 1:30 am ]
Post subject:
I like binary. It runs alot faster than text or ini. Maybe not as fast as mysql, but you stand a higher chance to be hacked with mysql.

Author:	Matt [ Sat Dec 16, 2006 2:56 pm ]
Post subject:
I toyed with a MS 307, it really wasn't worth it, imo. Sure, the server loaded up pretty quick, but other than that, I saw no significant improvement over the binary files I use now. I suggest you use 303 or MSE1, and add the binary stuff, I'll help you add it, if you need.

Page 1 of 2	All times are UTC
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/

Author:	Robin [ Sat Dec 16, 2006 12:49 am ]
Post subject:
sql ftw tbh

Author:	halla [ Sat Dec 16, 2006 12:54 am ]
Post subject:
yeah I dont see why more dont use SQL... its a better way to store data and makes viewing it on a website pretty easy

Author:	Robin [ Sat Dec 16, 2006 1:15 am ]
Post subject:
Plus having multi-server sharing the same account/item/npc info is as easy as 1,2,3 ^_^

Author:	Obsidian [ Sat Dec 16, 2006 1:17 am ]
Post subject:
Not everyone hosts their own server. And not all hosting companys have SQL automatically set up for their sites. Or maybe they just don't know how to USE it

Author:	Robin [ Sat Dec 16, 2006 1:18 am ]
Post subject:
Obsidian wrote: Not everyone hosts their own server. And not all hosting companys have SQL automatically set up for their sites. Or maybe they just don't know how to USE it Then get a hosting company that does?

Author:	halla [ Sat Dec 16, 2006 1:22 am ]
Post subject:
Yeah you could have a seperate person to just host the MySQL if you wanted. Plus its pretty simple to set up actually.

Author:	Obsidian [ Sat Dec 16, 2006 1:24 am ]
Post subject:
Yeah, but some people are pretty lazy and won't do it themselves...

Author:	halla [ Sat Dec 16, 2006 1:28 am ]
Post subject:
Yeah for people entirely new to all of this it might not be a good idea but if someone wanted to make a serious game I think it would be the best option... at least better than text files.

Author:	Lea [ Sat Dec 16, 2006 3:19 am ]
Post subject:
MySQL uses more memory. You have a copy of everything in memory for the database, then a copy of everything used in the game in memory for hte game. Essentially for Mirage Source as it is, you would use 2x the memory by using MySQL. Maybe the slight speed increase is worth it to you...

Author:	Robin [ Sat Dec 16, 2006 1:52 pm ]
Post subject:
Dave wrote: MySQL uses more memory. You have a copy of everything in memory for the database, then a copy of everything used in the game in memory for hte game. Essentially for Mirage Source as it is, you would use 2x the memory by using MySQL. Maybe the slight speed increase is worth it to you... But if he wanted that, he shouldn't be trying to have the server update a webpage.

Author:	Robin [ Sat Dec 16, 2006 3:01 pm ]
Post subject:
Advocate wrote: I toyed with a MS 307, it really wasn't worth it, imo. Sure, the server loaded up pretty quick, but other than that, I saw no significant improvement over the binary files I use now. I suggest you use 303 or MSE1, and add the binary stuff, I'll help you add it, if you need. sigh You are once again saying that speed is the most important factor when it comes to the server. Also, why would you see any speed increase when you were the only one online?

Author:	Lea [ Sat Dec 16, 2006 3:06 pm ]
Post subject:
The server boots faster, kite. If speed is the most important thing, by all means use MySQL, as long as you understand that you will be using a lot of memory.

Author:	Robin [ Sat Dec 16, 2006 3:28 pm ]
Post subject:
Dave, did you even read his post?