From 03eccddd6c9b9566f2b875d130f5fa0589e23626 Mon Sep 17 00:00:00 2001
From: Fumitoshi UKAI <ukai@debian.or.jp>
Date: Sun, 20 Apr 2003 13:30:27 +0000
Subject: [w3m-dev 03883] User-Agent for Bonus/2ch.cgi * Bonus/2ch.cgi:
 User-Agent From: qhwt@myrealbox.com

---
 Bonus/2ch.cgi | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Bonus')

diff --git a/Bonus/2ch.cgi b/Bonus/2ch.cgi
index 392fb22..edb36b7 100755
--- a/Bonus/2ch.cgi
+++ b/Bonus/2ch.cgi
@@ -4,6 +4,7 @@ $WGET = "wget";
 $SCRIPT_NAME = $ENV{'SCRIPT_NAME'} || $0;
 $CGI = "file://$SCRIPT_NAME";
 $_ = $QUERY_STRING = $ENV{"QUERY_STRING"};
+$UserAgent = "Monazilla/1.00 (w3m/2ch.cgi)";
 
 if (/subback.html$/) {
 	&subback();
@@ -21,7 +22,7 @@ $tmp = $ENV{"HOME"} . "/.w3m2ch/$_";
 $dat =~ s/([^\w\/.\:\-])/\\$1/g;
 $tmp =~ s/([^\w\/.\:\-])/\\$1/g;
 ($dir = $tmp) =~ s@/[^/]+$@@;
-$cmd = "mkdir -p $dir; $WGET -c -O $tmp $dat >/dev/null 2>&1";
+$cmd = "mkdir -p $dir; $WGET -c -U \"$UserAgent\" -O $tmp $dat >/dev/null 2>&1";
 system $cmd;
 $lines = (split(" ", `wc $tmp`))[0];
 $lines || exit;
-- 
cgit v1.2.3