get ip address

bacardirigoman · Post by **bacardirigoman** » Sat Mar 05, 2005 4:05 pm

I tried to write a simple platform independent server. It should run on linux as well on windows.
But there is one function really missing in the network library.
getclientip(client)
It should return the IP-address of the specific client. That would be great. Then I don't have to do my server in Java :-/

Gansta93 · Post by **Gansta93** » Sat Mar 05, 2005 7:22 pm

Hi,

On Windows, I know it is possible, there is an example in CodeArchiv. But on Linux, I don't know.

nco2k · Post by **nco2k** » Sun Mar 06, 2005 7:32 am

having that command natively in pb, would be indeed a nice thing.

c ya,
nco2k

dracflamloc · Post by **dracflamloc** » Sun Mar 06, 2005 9:59 am

i agree

blueznl · Post by **blueznl** » Sun Mar 06, 2005 10:47 am

the only way around is i guess go native winsock ie. berkely socket io

dracflamloc · Post by **dracflamloc** » Sun Mar 06, 2005 10:57 am

good for windows, not for linux

blueznl · Post by **blueznl** » Sun Mar 06, 2005 11:37 am

linux should have socket support as well! but don't ask me how to do it

dracflamloc · Post by **dracflamloc** » Sun Mar 06, 2005 9:10 pm

Of course linux has API sockets, but this is a Basic language. API involvement should be kept to a minimum.

Gansta93 · Post by **Gansta93** » Sun Mar 06, 2005 10:36 pm

I think that function is possible to add in Windows and Linux because for example, Apash on Windows and Linux can log IP addresses. And I think it would be good to add this function to PB... Fred, what do you think ? Is my remark stupid like ReceiveNetworkString() ?

olejr · Post by **olejr** » Mon Mar 07, 2005 9:48 am

Until it's added, or someone create a little userlib.
This one work with windows & linux:

Code: Select all

Procedure.s GetClientIP(ClientID)
  Structure IPType
   Reserved.w
   Port.w
   StructureUnion
    IPLong.l
    IP.b[4]
   EndStructureUnion
   Zeros.l[2]
  EndStructure
  
  s = SizeOf(IPType)
  
  res = getpeername_(ClientID, @IP.IPType, @s)
  If res = 0
   remotip$ = StrU(IP\IP[0], #Byte)+"."+StrU(IP\IP[1],#Byte)+"."+StrU(IP\IP[2], #Byte)+"."+StrU(IP\IP[3], #Byte)
  Else
   remotip$ = ""
  EndIf

  ProcedureReturn remotip$

EndProcedure

Use it like this:

Code: Select all

If InitNetwork()
  If CreateNetworkServer(8181) = 0 
    MessageRequester("Error", "Can't Create Server", 0)
    End
  EndIf

  Repeat

   event = NetworkServerEvent()
   
   If event = 1 ; Someone connected
    Debug GetClientIP(NetworkClientID()); Here you go
   EndIf
  ForEver
EndIf

Post by **Fred** » Mon Mar 07, 2005 1:27 pm

Ok, it will be added.

olejr · Post by **olejr** » Mon Mar 07, 2005 2:46 pm

And then Fred came and saved the day..

Just as I had the libs ready..
So if someone want's them until Fred adds it..

Windows->getclientip.zip
Linux->getclientip.tar.gz

Just copy into purelibraries(linux)/userlibraries(windows)
Works like the Procedure I posted earlier:

Code: Select all

ip$=GetClientIP(ClienID)

The source is there, but it ain't pretty..
Just a quick hack..

Oh.. And don't forget to remove the lib when Fred add the same command..

Gansta93 · Post by **Gansta93** » Mon Mar 07, 2005 6:12 pm

Fred wrote:Ok, it will be added.

Thank you Fred !

oliv · Post by **oliv** » Wed Mar 09, 2005 5:17 pm

Good Idea

DoubleDutch · Post by **DoubleDutch** » Wed Mar 09, 2005 5:26 pm

At the same time can you add client event #4???

-Anthony