--[[
Skrypt obsługujący bramkę www->sms sieci EraGSM 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)
--- Zostawiamy w toNr tylko ostatnie 9 cyferek
SMS.to = preg_matchReturn("/\\d{9}$/" , SMS.to);

succ=0;
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  --- Sprawdzamy czy się udało
 hConnect = InternetConnect(hSession, "boa.era.pl", 80, "", "");
 if hConnect ~= 0 then    --- Sprawdzamy czy się udało
  setInfo("Wysyłam zapytanie");
 
  code = 0;
  hRequest = HttpOpenRequest(hConnect, "POST", "/sms/sendsms.asp" , "");
  if hRequest ~= 0 then   --- sprawdzamy czy się udało
   if HttpSendRequest(hRequest, "Content-Type: application/x-www-form-urlencoded", "sms=1") then
    txt = InternetReadFile(hRequest);
    tab = {};
    tab[1]="0";
    preg_match("/<input type=.hidden. name=.kod. value=\"(\\d+)\">/is" , txt , tab);
    code = tab[1];
    preg_match("/<input type=.hidden. name=.Kod(\\d+). value=\"(\\d+)\">/is" , txt , tab);
    code2 = tab[1];
   end
  end
  InternetCloseHandle(hRequest);

  --- Teraz już wysyłamy

  hRequest = HttpOpenRequest(hConnect, "POST", "/sms/sendsms.asp" , "");
  if hRequest ~= 0 then   --- sprawdzamy czy się udało
 
   --- Wysyłamy zapytanie do serwera i sprawdzamy czy się powiodło.
   --- HttpSendRequest(zapytanie , nagłówek , dane_dla_post)

   data = "numer=" .. SMS.to .. "&message=" .. urlEncode(SMS.msg)
       .. "&podpis=" .. urlEncode(SMS.from) .. "&kontakt="
       .. "&kod=" .. code .. "&Kod" .. code2 .."=" .. code .. "&Send=1&sms=1";
   
   if HttpSendRequest(hRequest, "Content-Type: application/x-www-form-urlencoded", data) then

    --- Wczytujemy wszystko co zwrócił nam serwer.
    --- InternetReadFile(zapytanie)
    --- alert(InternetReadFile(hRequest));

    txt = InternetReadFile(hRequest);
    txt , res = preg_matchReturn("|<font color=.#FF0000.>([^<]+)</font>|is" , txt);
    if not res then
     res = "Problem z bramką.";
    end;
    isok = preg_match("/.*Wiadomo.. +dla +numeru.*\\d{11} +została +wysłana.*/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;