diff options
| author | Fumitoshi UKAI <ukai@debian.or.jp> | 2003-04-20 13:30:27 +0000 |
|---|---|---|
| committer | Fumitoshi UKAI <ukai@debian.or.jp> | 2003-04-20 13:30:27 +0000 |
| commit | 03eccddd6c9b9566f2b875d130f5fa0589e23626 (patch) | |
| tree | 816a75303c517555f8da1d37d3cc4108bd2716aa /Bonus | |
| parent | [w3m-dev 03882] Re: Bug#189460: w3m: <q> tag is not recognized (diff) | |
| download | w3m-03eccddd6c9b9566f2b875d130f5fa0589e23626.tar.gz w3m-03eccddd6c9b9566f2b875d130f5fa0589e23626.zip | |
[w3m-dev 03883] User-Agent for Bonus/2ch.cgi
* Bonus/2ch.cgi: User-Agent
From: qhwt@myrealbox.com
Diffstat (limited to 'Bonus')
| -rwxr-xr-x | Bonus/2ch.cgi | 3 |
1 files changed, 2 insertions, 1 deletions
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; |