git-svn-id: https://spexeah.com:8443/svn/Asuro@1035 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

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.

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.