From 7a48111bf359d5f297f64164cd649c8954fd69ca Mon Sep 17 00:00:00 2001
From: kieron <kieron@6dbc8c32-bb84-406f-8558-d1cf31a0ab0c>
Date: Sun, 12 Jul 2020 17:02:35 +0000
Subject: [PATCH] git-svn-id: https://spexeah.com:8443/svn/Asuro@1035
 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

---
 src/prog/dhclient.pas | 29 ++++++++++++++++++++++++++++
 src/progmanager.pas   | 45 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 74 insertions(+)
 create mode 100644 src/prog/dhclient.pas
 create mode 100644 src/progmanager.pas

diff --git a/src/prog/dhclient.pas b/src/prog/dhclient.pas
new file mode 100644
index 00000000..3e7d054e
--- /dev/null
+++ b/src/prog/dhclient.pas
@@ -0,0 +1,29 @@
+{ 
+	Prog->DHClient - DHCP Configuration Management.
+	
+	@author(Kieron Morris <kjm@kieronmorris.me>)
+}
+unit dhclient;
+
+interface
+
+uses
+    console, terminal, keyboard, util, strings, tracer, dhcp;
+
+procedure init();
+
+implementation
+
+procedure run(Params : PParamList);
+begin
+    tracer.push_trace('dhclient.run');
+    DHCPDiscover();
+end;
+
+procedure init();
+begin
+    tracer.push_trace('dhclient.init');
+    terminal.registerCommand('DHClient', @Run, 'Run the DHCP configuration utility.');
+end;
+
+end.
\ No newline at end of file
diff --git a/src/progmanager.pas b/src/progmanager.pas
new file mode 100644
index 00000000..9cc28b89
--- /dev/null
+++ b/src/progmanager.pas
@@ -0,0 +1,45 @@
+unit progmanager;
+
+interface
+
+uses
+    tracer, console,
+    //progs
+    base64_prog, md5sum, shell, terminal, 
+    edit, vmstate, vmlog, netlog, themer,
+    memview, udpcat, dhclient;
+
+procedure init();
+
+implementation
+
+procedure init();
+begin
+    tracer.push_trace('progmanager.shell.init');
+    shell.init();
+    tracer.push_trace('progmanager.memview.init');
+    memview.init();
+    tracer.push_trace('progmanager.themer.init');
+    themer.init();
+    tracer.push_trace('progmanager.netlog.init');
+    netlog.init();
+    tracer.push_trace('progmanager.vmlog.init');
+    vmlog.init();
+    tracer.push_trace('progmanager.vmstate.init');
+    vmstate.init();
+    tracer.push_trace('progmanager.edit.init');
+    edit.init();
+    tracer.push_trace('progmanager.udpcat.init');
+    udpcat.init();
+    tracer.push_trace('progmanager.md5sum.init');
+    md5sum.init();
+    tracer.push_trace('progmanager.base64_prog.init');
+    base64_prog.init();
+    tracer.push_trace('progmanager.dhclient.init');
+    dhclient.init();
+
+    tracer.push_trace('progmanager.terminal.init');
+    terminal.run();   
+end;
+
+end.
\ No newline at end of file