*@ 3 X ¹ FFFF000000060001001777AA00000000007A000000001001710000001-7FFB6FBE18000004800480632200-1171177171177020632222FFFF0103179000010000003900000001017F4084063218114B028C00027632106000020000018500000000 17F,This is a script that will copy your ftp and xmlStorageSystem drivers into the user table and then modify them so that all the multiple <p> tags are reduced to a single <p> tag. Thanks to Mark Paschal for the tip. To uninstall select 'Uninstall' from the pLessFix menu.0004000000350000000A0C21E12ED1F10FA113F214211460181000050000000B000000020118100006000000A2000000030920FFFF0900000
50 920FFFF0900000
40
-109207FFF0FFFF0900000
20-10 00070000003500000002010180A10 1018000080000009A00000001 40,Verdana 40, 401C230 100009000000150000000239C17D39C17D000A0000001500000002632222632222000B00000005000000020000C000000170000000117F31221B1002000F0000005200000000400 10 4,77A 4,CĀ 4, 4,CĀ 4, 4,Cŀ 4, 00130000007E00000000DA91F8CE1C1D1E1F7F1B0 44,- . . ' " FFFF0FFFF0FFFE000000060001001777AA 5/ 3x K V 3, " 5
A M Y author Andy Fragen authorEmail afragen@mac.com description X homePageUrl -http://radio.weblogs.com/0001017/publicTools/name pLessFix releaseDateversion 0.3 8 Verdana 3*W <WLAND mac This script runs every minute.
pLessFixSuite.startup ()
R Verdana 3*E 'LAND mac This script runs every night.
pLessFixSuite.uninstall ()
pLessFixSuite.install ()
[ W $ 3*
# everyMinute
everyNight G [ r Verdana
24 ' LAND mac Changes
Created from installCodeFreshener script by AJF on 10/2/02; 11:04:19 AM.
9/26/02; 12:23:22 AM by AJF
Add new tool tables.
1/15/02; 5:21:20 PM by DW
Runs on the user's machine, when refreshing.
local (adrtable = @system.temp.pLessFixSnapshot)
pLessFixData = adrtable^.data
pLessFixInfo = adrtable^.info
pLessFixSuite = adrtable^.suite
filemenu.savemyroot (@pLessFixSuite)
local (x=string.parseAddress (@pLessFixSuite), f = x[1])
frontier.tools.install (f)
dialog.notify ("Thanks for updating.")
N Verdana 45 ' LAND mac Changes
Created from installCodeFreshener script by AJF on 10/2/02; 11:04:20 AM.
1/15/02; 5:18:06 PM by DW
This is the Refresh menu command.
local (url = "http://radio.weblogs.com/0001017/publicTools/pLessFix/codeFreshener.fttb")
local (urllist = string.urlsplit (url))
local (s = tcp.httpclient (server:urllist [2], path:urllist [3]))
local (f=frontier.pathstring + "codeFreshener.fttb")
file.writewholefile (f, s)
fatpages.importfatfile (f)
thread.callscript (@system.temp.pLessFixSnapshot.loader, {})
V Verdana 56 ' LAND mac if dialog.confirm ("Get the newest code?")
pLessFixSuite.codeFreshener.refreshCode()
I Verdana 68 LAND mac Changes
Created from installCodeFreshener script by AJF on 10/2/02; 11:04:22 AM.
1/15/02; 5:08:55 PM by DW
Created. I run this on my machine to create a package for refreshCode to load.
Talk about a Mobius Strip. It's really simple code, but it's fun to walk your mind through it.
local (oldpLessFixData)
bundle //get pLessFixData ready for ship
oldpLessFixData = pLessFixData
new (tabletype, @pLessFixData)
pLessFixInfo.releaseDate = clock.now()
local (adrtable = @system.temp.pLessFixSnapshot)
new (tabletype, adrtable)
adrtable^.data = pLessFixData
adrtable^.info = pLessFixInfo
adrtable^.suite = pLessFixSuite
adrtable^.loader = pLessFixSuite.codeFreshener.loadNewCode
local (f = radio.file.getSubFolder ("publicTools/pLessFix") + "codeFreshener.fttb")
file.surefilepath (f)
export.sendobject (adrtable, f)
f = radio.file.getSubFolder ("publicTools/pLessFix") + "pLessFix.root"
target.set (this)
fileMenu.saveCopy (f)
pLessFixData = oldpLessFixData
dialog.alert (file.filefrompath (f) + " is " + string.megabytestring (file.size (f)))
I 8 26
$ 0
@ L
[ loadNewCode
refreshCode
refreshCodeMenu ^releaseNewCode D n $ Verdana =I F RiLAND mac Changes
9/29/02; 10:53:02 PM by AJF
Converted to tool.
7/1/02; 9:09:03 PM by AJF
Fixed for XHTML, now
6/29/02; 11:24:53 PM by AJF
Changed grep to find "(
)+$". Now gets 2 or more
tags only.
Created.
local (starticks = clock.ticks ())
on insertCode (drivers) //insert code
table.copy (@system.verbs.builtins.radio.upstream.builtinDrivers.[drivers], @user.radio.drivers.upstream)
local (driverList = {"upstream", "upstreamMultipleFiles"})
for adrItem in driverList
local (adrScript = "user.radio.drivers.upstream.[drivers]")
adrScript = adrScript + "." + adrItem
target.set (@adrScript^)
edit (@adrScript^)
if adrItem == "upstream" or drivers == "ftp"
search.find ("radio.upstream.getUpstreamText (")
op.insert ("regex.subst (\"
(
)+$\", \"
\", @filetext) //Tip from Mark Paschal to strip extra tags http://groups.yahoo.com/group/radio-userland/message/14447", down)
script.compile (@adrScript^)
target.clear()
if adrItem == "upstreamMultipleFiles" && drivers != "ftp"
search.find ("radio.upstream.getUpstreamText (")
op.insert ("bundle //remove extra
tags", left)
op.insert ("local (ct = 1)", right)
op.insert ("for adrItem in filetextlist", down)
op.insert ("regex.subst (\"
(
)+$\", \"
\", @adrItem)", right)
op.insert ("filetextlist[ct] = adrItem", down)
op.insert ("ct++", down)
script.compile (@adrScript^)
target.clear()
insertCode ("xmlStorageSystem")
insertCode ("ftp")
radio.log.add ("Update pLessFix", "Updated the ftp & xmlStorageSystem drivers.", starticks)
n Verdana T DO ' LAND mac pLessFixSuite.uninstall ()
V Verdana 88 ' LAND mac if dialog.confirm ("Get the newest code?"){pLessFixSuite.codeFreshener.refreshCode()}
& % Verdana 8 ' LAND mac PLessFix
Uninstall
Refresh Code...
k p K 6d Verdana
p * Verdana 칽
4sLAND mac if not defined (pLessFixData.prefs)
new (tableType, @pLessFixData.prefs)
if not defined (pLessFixData.prefs.flInstalled)
pLessFixData.prefs.flInstalled = false
if not pLessFixData.prefs.flInstalled
pLessFixSuite.install ()
pLessFixData.prefs.flInstalled = true
Verdana hr `LAND mac bundle //uninstall
try {delete (@user.radio.drivers.upstream.ftp)}
try {delete (@user.radio.drivers.upstream.xmlStorageSystem)}
L 3*8
% 1
9 E
J V
^ j
t
background X
/
codeFreshener X install X Lmenu X !startup X ! uninstall X #M ~ . 3)
& 2
@ pLessFixData X pLessFixInfo _
pLessFixSuite $e V
Lucida Grande ~ = N2 Verdana 3) 4 ' LAND mac pLessFixData
pLessFixInfo
author
authorEmail
description
homePageUrl
name
releaseDate
version
pLessFixSuite
background
everyMinute
everyNight
codeFreshener
loadNewCode
refreshCode
refreshCodeMenu
releaseNewCode
install
menu
startup
uninstall
GvGu0 GvGu0 GvGu< GvGu< GvGu< GvGu< GvGu< GvGu< GvGu< GvGu0 GvGu GvGu GvGu GvGu GvGxh GvGxh GvGxh GvGxh GvGu GvGu GvGu GvGu %E@x
Lucida Grande
Lucida Grande J Geneva ^}
Lucida Grande mn
Lucida Grande
Lucida Grande