help with hubinfo script

[Tjoepken]

i dowloaded the hubinfo script from hublist.org for ptokax but it wont work tryed to convert with th progam bu it won't work :(

here is the scirpt

--// HubINFO-BotINFO support script for PtokaX by Gadget

--// Optional hubowner's email address for editing hub info in www.hublist.org

OwnerEmail="tjoepken@gmail.com"

--// No need to edit other settings

MinSlots=0
MaxHubs=0
function Main()
   HubAddress=GetFromIni("HubAddress")..":"..GetFromIni("HubPort")
   if GetFromIni("MinSlotsChecker")=="1" then
      MinSlots=GetFromIni("MinSlots")
   end
   if GetFromIni("HubChecker")=="1" then
      MaxHubs=GetFromIni("MaxHubs")
   end
end

function DataArrival(curUser,data)
   if strsub(data,1,9)=="$BotINFO " then
      curUser:SendData("$HubINFO "..frmHub:GetHubName().."$"..HubAddress.."$"..frmHub:GetHubDescr().."$"..frmHub:GetMaxUsers().."$"..floor(frmHub:GetMinShare()*1048576).."$"..MinSlots.."$"..MaxHubs.."$PtokaX 0.3 ".._VERSION.." script$"..OwnerEmail)
   end
end

function GetFromIni(var)
   local result=""
   readfrom("../PtokaX.ini")
   while 1 do
      local line=read()
      if line==nil then
         break
      else
         if strsub(line,1,strlen(var)+1)==var.."=" then
            result=strsub(line,strlen(var)+2,strlen(line))
            break
         end
      end
   end
   readfrom()
   return result
end

[??????Hawk??????]

try Search  ..  or  the finished Scripts section

[Herodes]

[b][i]from the PtokaX Changelog[/i][/b]
--------------------------------0.3.3.0 build 16.09 28.Mar.2005----------------------------
Added: New pinger detection.
Added: BotINFO/HubINFO support.

Seeing this I imagine that there is no need for this script any more ..