BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Directory Server", by orion pax

This is a directory server program! For those of you who wish to create games/software that has standalone server support and need a way for the clients to download a list of ONLINE games. Use this code! It reports the servers name and the DNS name. Read the comments to learn how to use it with your server software!

Code

;Directory Server by Orion Pax
;clients must send a string to the server "CLIENT" to tell the directory they wish to get the server list
;servers must send a "NONE" string as a DNS name if they do not wish to use a dns name
;when the directory see's the "NONE" string it will use the servers IP address instead
;when the server disconnects the DIRECTORY automatically removes their entry from the list

Graphics 640,480,15,3;resizable screen so they can just move it out of the way
AppTitle "Orion Pax's Directory Server"

SetBuffer BackBuffer()

;create config.ini if not there, default port is 4020
If FileType("config.ini")=0 Then
     fileout=WriteFile("config.ini")
     WriteString(fileout,"4020")
     CloseFile fileout
EndIf

;read config.ini
filein=ReadFile("config.ini")
portnum$=ReadString$(filein)
CloseFile filein

port=portnum$

;Custom types for server connections
Type server
     Field stream
     Field name$
     Field DNS$
End Type

;start directory server
dirserver=CreateTCPServer(port)

While Not KeyDown(1)

;check for new connection
connect=AcceptTCPStream(dirserver)

;if yes then.....
If connect Then
     
     ;if there is a message waiting
     If ReadAvail(connect) Then
          ;then get it
          who$=ReadString$(connect)
          ;if its a client send them the SERVER list
          If who$="CLIENT" Then
               For client.server = Each server
                    WriteString(connect,client\name$)
                    WriteString(connect,client\DNS$)
               Next
               CloseTCPStream connect
               who$=""
               Goto sent
          EndIf
          
          ;if not client then its a new server connecting
          client.server = New server
          client\stream=connect
          client\name$=who$
          While client\DNS$=""
               If ReadAvail(client\stream) Then client\DNS$=ReadString$(client\stream)
               ;if DNS is = NONE then we set it to their IP address....in the server software you can specify a DNS name such as YOURHOST.COM to point to your server
               If Upper$(client\DNS$)="NONE" Then client\DNS$=DottedIP$(TCPStreamIP(client\stream))
          Wend
          .sent
     EndIf
EndIf
Cls

;checks for disconnections and just prints the server names in the window....
X=0
For client.server = Each server
     If Not (Eof(client\stream)) Then Text 0,X,client\name$:x=x+15
     If (Eof(client\stream)) Then Delete client
Next
Flip
Wend

Code software created by Krylar's Kreations