From 61be319422723299c2965a83eea6b1acb1647357 Mon Sep 17 00:00:00 2001
From: Tomas Brod <tomasbrod@azet.sk>
Date: Tue, 25 Aug 2015 15:24:51 +0200
Subject: [PATCH] Actually removed WebBoot becouse it will be separate.

---
 BootWeb2.pas | 72 ------------------------------------------------------------
 brodnetd.pas |  1 -
 2 files changed, 73 deletions(-)
 delete mode 100644 BootWeb2.pas

diff --git a/BootWeb2.pas b/BootWeb2.pas
deleted file mode 100644
index ed2335f..0000000
--- a/BootWeb2.pas
+++ /dev/null
@@ -1,72 +0,0 @@
-UNIT BootWeb2;
-INTERFACE
-
-procedure BootWeb(url:AnsiString);
-
-IMPLEMENTATION
-USES ServerLoop,AsyncProcess,MemStream,sysutils;
-
-type
- tWBS=object
- async:tAPX;
- procedure EventAsync;
- procedure EventTimeout;
- procedure Init(url:ansistring);
- procedure DoneFreeSelf;
- end;
-
-procedure tWBS.Init(url:ansistring);
- var args:array [0..2] of pchar;
- var buffer:pointer;
- var stream:^tMemoryStream;
- begin
- {todo: create buffer and stream, create arg list, set callback, run}
- args[0]:='httpfetch';
- args[1]:=pchar(url);
- args[2]:=nil;
- GetMem(buffer,1024);
- new(stream);
- stream^.Init(buffer,0,1024);
- async.Init(@args,stream^);
- async.event:=@EventAsync;
- Shedule(10000,@EventTimeout); {10s timeout}
-end;
-
-procedure tWBS.EventAsync;
- begin
- UnShedule(@EventTimeout);
- try
- if (async.exitsignal=0)and(async.exitcode=0) then begin
-  writeln('async success');
-  {parse output}
- end else raise eXception.createfmt('async failed, signal=%U code=%U',[async.exitsignal,async.exitcode]);
- finally
-  DoneFreeSelf;
- end;
-end;
-
-procedure tWBS.EventTimeout;
- begin
- {timeout is automatically unsheduled}
- async.Kill;
- DoneFreeSelf;
- raise eXception.create('async timeout');
-end;
-
-procedure tWBS.DoneFreeSelf;
- begin
- FreeMem(async.output^.base,async.output^.size);
- Dispose(async.output);
- FreeMem(@self,sizeof(self));
-end;
-
-procedure BootWeb(url:AnsiString);
- var o:^tWBS;
- begin
- New(O);
- o^.Init(url);
-end;
-
-BEGIN
- BootWeb('http://localhost/');
-END.
\ No newline at end of file
diff --git a/brodnetd.pas b/brodnetd.pas
index 5b044a7..dbc3d4a 100644
--- a/brodnetd.pas
+++ b/brodnetd.pas
@@ -3,7 +3,6 @@ PROGRAM brodnetd;
 { Poll loop. Read message, get handler, exec handler. }
 uses ServerLoop
     ,TestWatch
-    ,BootWeb2
     ;
 
 BEGIN
-- 
2.11.4.GIT