[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[tyndur-devel] [PATCH 3/3] lpt: User-Agent senden



+ lpt: User-Agent mitsenden

Signed-off-by: Kevin Wolf <kevin@xxxxxxxxxx>
---
 src/modules/pas/lpt/helpers.pas |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/src/modules/pas/lpt/helpers.pas b/src/modules/pas/lpt/helpers.pas
index b4783b9..f143ead 100644
--- a/src/modules/pas/lpt/helpers.pas
+++ b/src/modules/pas/lpt/helpers.pas
@@ -78,6 +78,7 @@ begin
     httpc := HTTPRequest.create(url);
     httpc.setRequestHeader('Pragma', 'no-cache');
     httpc.setRequestHeader('Cache-Control', 'no-cache');
+    httpc.setRequestHeader('User-Agent', 'lpt');
     WriteLn(Format(rsDownloading, [url]));
     Write(rsConnecting);
     httpc.onReadTick := @DrawProgress;
-- 
1.6.0.2