From 09043f089f77c12a1f68626217ba7c95b3903eb7 Mon Sep 17 00:00:00 2001
From: short <>
Date: Sun, 19 Jun 2005 13:51:39 +0000
Subject: [PATCH] +Provide header: X-httpgetdumb: $Id$

---
 bin/httpgetdumb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/httpgetdumb b/bin/httpgetdumb
index 6ea04e0..5ab7c5e 100755
--- a/bin/httpgetdumb
+++ b/bin/httpgetdumb
@@ -25,7 +25,7 @@ my $hostaddr=gethostbyname $host or die "hostname \"$host\": $!";
 my $sockaddr=sockaddr_in $port,$hostaddr or die "sockaddr_in(".inet_ntoa($hostaddr).":$port): $!";
 connect SOCK,$sockaddr or die "connect \"$host\"(".inet_ntoa($hostaddr).":$port): $!";
 
-print SOCK ($opts{"h"} ? "HEAD" : "GET")." $path HTTP/1.0\r\nHost: $host\r\n\r\n";
+print SOCK ($opts{"h"} ? "HEAD" : "GET")." $path HTTP/1.0\r\nHost: $host\r\nX-httpgetdumb: $Id$\r\n\r\n";
 if ($opts{"H"}) {
 	while (<STDIN>) {
 		chomp;
-- 
1.8.3.1