source: trunk/URouterOS.pas

unit URouterOS;

{$mode delphi}

interface

uses
  Classes, SysUtils, UDevice, UContext;

type

  { TRouteOS }

  TRouterOS = class(TDevice)
    constructor Create; override;
  end;


implementation

uses
  UTerminal;

{ TRouterOS }

constructor TRouterOS.Create;
begin
  inherited;
  Identity := 'router';
  with Routerboard do begin
    Logo.Add('  MMM      MMM       KKK                          TTTTTTTTTTT      KKK');
    Logo.Add('  MMMM    MMMM       KKK                          TTTTTTTTTTT      KKK');
    Logo.Add('  MMM MMMM MMM  III  KKK  KKK  RRRRRR     OOOOOO      TTT     III  KKK  KKK');
    Logo.Add('  MMM  MM  MMM  III  KKKKK     RRR  RRR  OOO  OOO     TTT     III  KKKKK');
    Logo.Add('  MMM      MMM  III  KKK KKK   RRRRRR    OOO  OOO     TTT     III  KKK KKK');
    Logo.Add('  MMM      MMM  III  KKK  KKK  RRR  RRR   OOOOOO      TTT     III  KKK  KKK');
    Vendor := 'MikroTik';
    Model := '333';
    OS := 'RouterOS';
    Version := '6.46.2';
    Copyright := '1999-2020';
    Website := 'http://www.mikrotik.com/';
  end;

  RootContext.Free;
  RootContext := TContextRoot.Create;
  with RootContext do begin
    with Childs.AddNew('interface', '') do begin
      with Childs.AddList('pptp-server', 'PPTP server') do begin
        ValueDefs.AddString('name', '');
        ValueDefs.AddString('user', '');
      end;
      with Childs.AddList('bridge', 'Bridge interfaces') do begin
        ValueDefs.AddString('fast-forward', '');
        ValueDefs.AddInteger('mtu', 0);
        ValueDefs.AddString('name', '');
        ValueDefs.AddString('protocol-mode', '');
      end;
    end;
    with Childs.AddNew('ip', 'IP options') do begin
      with Childs.AddList('address', 'Address management') do begin
        ValueDefs.AddNew('address', vtString);
        ValueDefs.AddNew('network', vtString);
        ValueDefs.AddNew('interface', vtString);
      end;
      Childs.AddList('pool', 'IP address pool');
      Childs.AddFields('settings', '');
      Childs.AddNew('route', 'Route management');
      Childs.AddNew('dns', 'DNS settings');
    end;
    with Childs.AddNew('queue', 'Bandwidth management') do begin
      Childs.AddNew('interface', 'Queue type setting for interface');
      with Childs.AddList('tree', 'Sophisticated Bandwidth management') do begin
        ValueDefs.AddInteger('max-limit', 0);
        ValueDefs.AddInteger('limit-at', 0);
        ValueDefs.AddInteger('packet-mark', 0);
        ValueDefs.AddString('name', '');
        ValueDefs.AddString('parent', '');
      end;
      Childs.AddNew('simple', 'Simple Bandwidth management');
      Childs.AddNew('type', 'Queue type');
    end;
    with Childs.AddNew('system', 'System information and utilities') do begin
      with Childs.AddFields('identity', 'System identity') do begin
        ValueDefs.AddString('name', '');
        Values.Init(ValueDefs);
      end;
      with Childs.AddFields('routerboard', 'Routerboard options') do begin
        ValueDefs.AddBool('routerboard', False);
        ValueDefs.AddString('model', '');
        ValueDefs.AddString('serial-number', '');
        ValueDefs.AddString('firmware-type', '');
        Values.Init(ValueDefs);
        with Childs.AddFields('setting', '') do begin
          ValueDefs.AddBool('auto-upgrade', False);
          ValueDefs.AddInteger('baud-rate', 115200);
          ValueDefs.AddInteger('cpu-frequency', 0);
          Values.Init(ValueDefs);
        end;
      end;
    end;
    Childs.AddNew('tool', 'Diagnostics tools');
    Childs.AddCustom('file', 'Local router file storage', TContextFile);
  end;
end;

end.