From 67505d7c37d38c37e0ee31f513b2a4c3e624da9e Mon Sep 17 00:00:00 2001
From: short <>
Date: Thu, 25 Aug 2005 01:02:15 +0000
Subject: [PATCH] +Support for XHTML "Accept" negotiations: -x

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

diff --git a/bin/httpgetdumb b/bin/httpgetdumb
index 9c6d83c..3a78236 100755
--- a/bin/httpgetdumb
+++ b/bin/httpgetdumb
@@ -13,7 +13,7 @@ use constant DEFAULT_PORT=>80;
 use constant BUFFER_LENGTH=>0x1000;
 
 my %opts;
-getopts "hH",\%opts or die "getopts()";
+getopts "xhH",\%opts or die "getopts()";
 @ARGV==1 && $ARGV[0]=~m#^http://(([^/:]+)(?::(\d+))?)(/.*)$#
 		or die "Syntax: $0 [-hH] http://hostname/pathname";
 my($hostport,$host,$port,$path)=($1,$2,$3,$4);
@@ -30,6 +30,7 @@ my %header=(
 	"Host"=>$hostport,
 	"X-httpgetdumb"=>'$Id$',
 	);
+$header{"Accept"}="application/xhtml+xml" if $opts{"x"};
 while (my($key,$val)=each(%header)) {
 	print SOCK "$key: $val\r\n";
 	}
-- 
1.8.3.1