storm/w3m
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[w3m-dev 03883] User-Agent for Bonus/2ch.cgi

Browse Source 
* Bonus/2ch.cgi: User-Agent
From: qhwt@myrealbox.com
This commit is contained in:
Fumitoshi UKAI
2003-04-20 13:30:27 +00:00
parent a5404c266c
commit 03eccddd6c
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Bonus/2ch.cgi
View File

@@ -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;

7
ChangeLog
View File

@@ -1,3 +1,8 @@
2003-04-20 qhwt@myrealbox.com
* [w3m-dev 03883] User-Agent for Bonus/2ch.cgi
* Bonus/2ch.cgi: User-Agent
2003-04-19 Fumitoshi UKAI <ukai@debian.or.jp>
* [w3m-dev 03882] Re: Bug#189460: w3m: <q> tag is not recognized
@@ -7765,4 +7770,4 @@ a * [w3m-dev 03276] compile error on EWS4800
* release-0-2-1
* import w3m-0.2.1
$Id: ChangeLog,v 1.827 2003/04/18 16:47:16 ukai Exp $
$Id: ChangeLog,v 1.828 2003/04/20 13:30:27 ukai Exp $