freepascal.ru

Код: Выделить всё

https://<имя сайта>/<имя страницы>?<имя поля>=<ваше значение>

Код: Выделить всё

program tasix_check;

{$mode objfpc}

uses
  {$ifndef windows}cthreads,{$endif}
  SysUtils // sleep
 ,Classes // tstringlist
 ,httpsend
 ,synacode // EncodeURLElement
 ,synautil // writestrtostream
 ,regexpr
;

const
  check_url  = 'example.uz:80/index.cgi';
  query_type = '1'; // the "show ip bgp" mode
  arg_value  = ''; // empty address filter 
  maxretries = 3;
 
type
  texitcode = (SUCCESS = 0, FAILED = 1, NO_DATA = 2);

var
  i: integer;
  resultdata, currdata : TStringList;
  http: thttpsend;
  httpresult: boolean;
  retriescnt: integer;
  exit_code: texitcode;

  function is_ipaddr(const avalue: string): boolean;
  begin
    result:= execregexpr('[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}',avalue);
  end;

begin

  http:= thttpsend.create;
  exit_code:= FAILED;
  retriescnt:= 1;  

  try
    resultdata:= TStringList.create;
    currdata:= TStringList.create;
    HTTP.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.4)'+
                   'Gecko/20100611 Firefox/3.6.4';
    HTTP.Protocol:= '1.1';
    HTTP.Timeout:= 45000; // 45 seconds
    HTTP.MimeType :='application/x-www-form-urlencoded';    
    writestrtostream(HTTP.Document,'query='+EncodeURLElement(query_type)+'&'+'arg='+EncodeURLElement(arg_value)); // synauitil
    retriescnt:= 0;
    httpresult:= HTTP.HTTPMethod('POST', check_url);
    while (not httpresult) and (retriescnt < maxretries) do begin
      sleep(500*retriescnt);
      httpresult:= HTTP.HTTPMethod('POST', check_url);
      inc(retriescnt);
    end;

    case HTTP.Resultcode of
      100..299: exit_code:= SUCCESS; //informational, success
      300..399: exit_code:= FAILED; //redirection. Not implemented, but could be.
      400..499: exit_code:= FAILED; //client error; 404 not found etc
      500..599: exit_code:= FAILED; //internal server error
      else exit_code:= FAILED; //unknown code
    end;

    if exit_code = SUCCESS then begin
      ResultData.LoadFromStream(HTTP.Document);
      if resultdata.count = 0 then begin
        exit_code:= NO_DATA;
      end else begin
        for i:=0 to resultdata.count-1 do begin
          resultdata[i]:= replaceregexpr('^[*>i \t]+',resultdata[i],'',false);
          splitregexpr('[ \t]+',resultdata[i],currdata);
          if currdata.count >= 2 then begin
            if is_ipaddr(currdata[0]) and is_ipaddr(currdata[1]) then writeln(currdata[0]);
          end;
        end;
      end;
    end;
    
  finally
    HTTP.Free;
    currdata.free;
    resultdata.free;
  end;

  halt(integer(exit_code));
end.