unit cmis;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, ValEdit, fphttpclient, RegexPr, DOM, XMLRead;



type
CMISHelper =  Class
public
       constructor Create(URL: string);
       procedure Authenticate( username: string; password: string);
       function getChildren(path: string): TStringList;
       function getAuthToken(): string;
private
       auth_token: string;
       alf_path: string;
end;

implementation

constructor CMISHelper.Create(URL: string);
begin
     alf_path := URL;
end;

procedure CMISHelper.Authenticate(username: string; password: string);
var
  HTTPClient: TFPHTTPClient;
  IPRegex: TRegExpr;
  RawData: string;
  Doc: TXMLDocument;
  Child: TDOMNode;
  b: TStringStream;
  composed_url: string;


begin
    HTTPClient:=TFPHTTPClient.Create(nil);

    composed_url := alf_path + '/service/api/login?u=' + username + '&pw=' + password;

    RawData:=HTTPClient.Get(composed_url);
    b := TStringStream.Create(RawData);
    ReadXMLFile(Doc, b);
    Child := Doc.DocumentElement.FirstChild;

    if assigned(Child)
    then
        begin
        auth_token := Child.TextContent;
        end
    else
        auth_token := '';
end;