--[[
Skrypt obsługujący bramkę www->sms sieci PlusGSM dla wtyczki SMS.dll do programu Konnekt
(C)2002 hao | stamina
http://konnekt.stamina.eu.org

Odpowiedzialność za wykorzystywanie skryptu ponosi użytkownik
--]]

function sendSMS(SMS)
SMS.to = preg_matchReturn("/\\d{9}$/" , SMS.to);
SMS.msg = hidePL(SMS.msg);
succ=0;
tab={};
setInfo("Łączę");

hSession = InternetOpen("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Q312461; MyIE2; .NET CLR 1.0.3705)");
if hSession ~= 0 then  

 hConnect = InternetConnect(hSession, "www.text.plusgsm.pl", 80, "", "");
 if hConnect ~= 0 then    
  setInfo("Wysyłam zapytanie");
 
  hRequest = HttpOpenRequest(hConnect, "POST", "/sms/sendsms.php" , "");
  if hRequest ~= 0 then  
   
   preg_match("/(.{3})(.{6})/" , SMS.to , tab);
   data = "tprefix=" .. tab[1] .. "&numer=" .. tab[2] .. "&tekst=" .. urlEncode(SMS.msg)
       .. "&odkogo=" .. urlEncode(SMS.from)
   ;
   if HttpSendRequest(hRequest, "Content-Type: application/x-www-form-urlencoded", data) then
    txt = InternetReadFile(hRequest);
    tab[1]="Problem z bramką";
    preg_match("|<title>Plus GSM - (.+?)</title>|si" , txt , tab);
    res = tab[1];
    res = preg_replace("/<[^>]+?>/s" , "" , res);
    isok = preg_match("/SMS zosta. wysłany!!!/is" , res);
    if isok <= 0 then
     setError(iso2cp(res));
    else
     setSuccess(iso2cp(res));
    end
    succ = 1;
   end
  end
 end
end
if succ == 0 then setError("Wystąpiły problemy z połączeniem");end;
if succ == -1 then setError("Wystąpiły problemy z bramką");end;
--- Zwalniamy uchwyty
InternetCloseHandle(hSession);
InternetCloseHandle(hConnect);
InternetCloseHandle(hRequest);
end;