* Added BasicAuth support

restemplate.lpr

@@ -151,6 +151,20 @@ begin
   {$endif}
 end;
 
+procedure CmdBasicAuth(AData: String);
+var
+  separator: Char;
+  i: Integer;
+begin
+  separator := AData[1];
+  i := 2;
+  while (i < Length(AData)) and (AData[i] <> separator) do
+    Inc(i);
+
+  http.UserName := Copy(AData, 2, i - 2);
+  http.Password := Copy(AData, i + 1, Length(AData));
+end;
+
 function ProcessCommand(ALine: String): Boolean;
 begin
   Result := False;
@@ -169,6 +183,14 @@ begin
     Result := True;
     method := Copy(ALine, 8, Length(ALine));
   end else
+  // We don't include the space here, since we also interpret this following
+  // char as separator for username and password! (In case the username itself
+  // contains a space.)
+  if AnsiStartsStr('BasicAuth', ALine) then
+  begin
+    Result := True;
+    CmdBasicAuth(Copy(ALine, 10, Length(ALine)));
+  end else
   if AnsiStartsStr('Call ', ALine) then
   begin
     Result := True;