xidel.pas

{
Copyright (C) 2012 - 2017 Benito van der Zander (BeniBela)
                          benito@benibela.de
                          www.benibela.de

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program.  If not, see <http://www.gnu.org/licenses/>.

}


program xidel;

{$mode objfpc}{$H+}

{$if defined(windows) and not defined(USE_SYNAPSE_WRAPPER)}
{$define USE_WININET_WRAPPER}
{$else}
{$define USE_SYNAPSE_WRAPPER}
{$endif}

uses //heaptrc,
     {$ifdef linux}cwstring,{$endif}
     internetaccess, bbutils,
     xidelbase,
     rcmdline, //<< if you don't have this command line parser unit, you can download it from www.benibela.de
     xquery_module_file
     {$ifdef USE_WININET_WRAPPER},w32internetaccess{$endif}
     {$ifdef USE_SYNAPSE_WRAPPER},synapseinternetaccess, xidelcrt{$endif}
     ;


 { TTemplateReaderBreaker }



function retrieve(const method, url, post, headers: string): string;
var
  trimmed: String;
begin
  defaultInternet.additionalHeaders.Text := headers;
  if cgimode then result := url //disallow remote access in cgi mode
  else if (post = '') and ((method = '') or (method = 'GET')) then begin
    trimmed := strTrim(url);
    case guessType(trimmed) of
      rtEmpty: exit('');
      rtRemoteURL: exit(internetaccess.httpRequest(trimmed));
      rtFile: exit(strLoadFromFileUTF8(trimmed));
      else exit(url);
    end;
  end else result:=internetaccess.httpRequest(method, url, post);
end;

//{$R *.res}

begin
  {$ifdef USE_WININET_WRAPPER}defaultInternetAccessClass := TW32InternetAccess;{$endif}
  {$ifdef USE_SYNAPSE_WRAPPER}defaultInternetAccessClass := TSynapseInternetAccess;{$endif}
  registerModuleFile;

  if Paramcount = 0 then begin
    writeln(stderr, 'Xidel XQuery/XPath/CSS/JSONiq engine and webscraper');
    writeln(stderr, 'Use --help for a list of available command line parameters.');
    writeln(stderr, 'Or --usage for the usage information of the readme.');
    ExitCode:=1;
    exit;
  end;

  xidelbase.cgimode := false;
  xidelbase.allowInternetAccess := true;
  xidelbase.mycmdline := TCommandLineReader.create;
  xidelbase.onRetrieve := @retrieve;


  xidelbase.perform;
end.