unit console_out;

{
    This file is part of AMIProxyPal.

    AMIProxyPal 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.

    Foobar 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 Foobar.  If not, see <http://www.gnu.org/licenses/>.

}

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

  {: Write out intial content when program starts. }
  procedure   WriteInitOut;
  {: Write out list of commands. }
  procedure   WriteHelp;
  {: Shows information about the program, copyright, etc. }
  procedure WriteAbout;
  
implementation

procedure WriteInitOut;
begin
  WriteLn(LineEnding + LineEnding);
  WriteLn('+----------------------------------------------------------+');
  WriteLn('| ProxyPal for AMI. (c) Lee Jenkins                        |');
  WriteLn('| Type "help" for commands                                 |');
  WriteLn('+----------------------------------------------------------+');
  WriteLn('');
  WriteLn('');
end;

procedure WriteAbout;
begin
  WriteLn(LineEnding + LineEnding);
  WriteLn('------------------------------------------------------------');
  WriteLn('| AMI ProxyPal. (c) R. Lee Jenkins                         |');
  WriteLn('| Released Under GPL License.                              |');
  WriteLn('|                                                          |');
  WriteLn('| Written with Lazarus/Freepascal                          |');
  WriteLn('| www.lazarus.freepascal.com                               |');
  WriteLn('|                                                          |');
  WriteLn('|                                                          |');
  WriteLn('| Type "help" to get commands                              |');
  WriteLn('------------------------------------------------------------');
  WriteLn('');
  WriteLn('');
end;

procedure WriteHelp;
begin
  WriteLn(LineEnding + LineEnding);
  WriteLn('                     Help - Commands');
  WriteLn('------------------------------------------------------------');
  WriteLn('Command                  Description');
  WriteLn('------------------------------------------------------------');
  WriteLn('connect ami..............Connect to Asterisk(r) AMI Server.');
  WriteLn('disconnect ami...........Discconect from AMI Server.');
  WriteLn('disconnect all...........Disconnect from AMI and Clients.');
  WriteLn('terminate client server..Kills thread listening for client ');
  WriteLn('                         connections.');
  WriteLn('start client server......Starts the Client server to accept');
  WriteLn('                         incoming connections for services.');
  WriteLn('about....................Information about this program.');
  WriteLn('');
  WriteLn('');
end;

end.