unit cddbupdate;

interface
uses idHttp,global,classes,sysutils;

function getfreedbserver : boolean;


implementation

function getfreedbserver : boolean;
var
cli : TidHttp;
res : Tmemorystream;
failed : boolean;
serv,cgi : array [0..512] of char;

begin
failed:=false;
res:=tmemorystream.create;
cli:=tidhttp.Create(nil);

try
cli.get('http://myjukebox.co.uk/kiosk/cddb.php?server=1',res);
except
failed:=true;
end;
fillchar(serv,sizeof(serv),0);
res.seek(0,soFromBeginning);
res.read(serv,res.size);
res.clear;

try
cli.get('http://myjukebox.co.uk/kiosk/cddb.php?cgi=1',res);
except
failed:=true;
end;

fillchar(cgi,sizeof(cgi),0);
res.seek(0,soFromBeginning);
res.read(cgi,res.size);

if (serv<>'') and (cgi<>'') then begin
  config.cddbserver:=trim(serv);
  config.cddbcgi:=trim(cgi);
end;


cli.free;
res.free;

result:=failed;
end;


end.