Time to update my %Patch.r and make it automatic - so I don't have to
keep doing it. This patch corrects the User-Agent in the http scheme so
as to work better with more web sites. It does the job of my earlier
enhancement request.
[
REBOL [
Title: "Patch"
Date: 1/December/1999
Name: 'Patch
Version: 1.0.0
File: %Patch.r
Home: http://members.xoom.com/AndrewMartin/
Author: "Andrew Martin"
Owner: "Andrew Martin"
Rights: "Copyright � 1999, Andrew Martin."
Needs: 2.2.0
Tabs: 4
Usage: {
Place:
do %Patch.r
in your %user.r file,
to have this done at each startup.
}
Purpose: {
Patches the http scheme open function
to provide a better choice for User-Agent.
}
Language: 'English
Email: [EMAIL PROTECTED]
Site: http://members.xoom.com/AndrewMartin/
Category: 'general
Charset: 'ANSI
Example: {}
]
use [Http_Open] [
Http_Open: mold get in system/schemes/http/handler 'open
insert Http_Open "system/schemes/http/handler/open:^/"
replace Http_Open
{User-Agent: reform ["REBOL" system/version]}
{User-Agent: rejoin ["Mozilla" "/" "4.0"
" (Compatible; REBOL " system/version ")"]}
do Http_Open
]
]
Andrew Martin
What time is it? REBOL time!
[EMAIL PROTECTED]
http://members.xoom.com/AndrewMartin/
Online @ 33,600 Baud!
-><-
