0 X 2 B Arial P n S eZLAND win on disableScript(adrSite)
dlSuite.disable(adrSite)
return(true)
@ Arial P p R 3LAND win on enableScript(adrSite)
dlSuite.enable(adrSite)
return(true)
V K ^
4
B N
[ g ~ descriptionUrl !http://q.queso.com/deepLeapPlugIn
disableScript X enableScript 0flAddToEditorsOnlyMenu flEditors flEnabled relativePath dl/ . P"( ) 1 Fversion 1.0b3xmlSubmissionFormMethod POSTxmlSubmissionFormUrl .http://www.deepleap.com/metainfo/importinfo.pl Arial P Vǵ V 3LAND win return(dlSuite.generateXml())
Arial P W W 3LAND win return(dlSuite.defaultPage())
{ w . V ^
% 1
9 #pluginName DeepLeap deepleap.xml default x { ~ z . A Ut
,
<
initialConfig prefs websiteFragment ~ Us Us @ Arial P Wr"# R 4 LAND win on defaultPage()
Changes:
4/18/2000 JEL
Added the check to make sure that a person was logged in as a managing editor before it would allow them to set the DeepLeap preferences
local
htmlText = ""
pta = html.getPageTableAddress()
adrDlPrefs = manilaSuite.plugins.getStorageAddress("DeepLeap")
url = string.popTrailing(pta^.ftpSite^.url, '/')
on add(s)
htmlText = htmlText + s + cr
pta^.title = "Set DeepLeap Preferences"
if manilaSuite.editors.managingEditorTest(pta) == false
add("I'm sorry... you have to be a managing editor of this site in order to set up the DeepLeap preferences.")
return(htmlText)
if defined(pta^.postArgs)
adrDlPrefs^.sitename = pta^.postArgs.sitename
adrDlPrefs^.contactinfo = pta^.postArgs.contactinfo
adrDlPrefs^.sitemap = pta^.postArgs.sitemap
adrDlPrefs^.whatsnew = pta^.postArgs.whatsnew
adrDlPrefs^.engine = pta^.postArgs.engine
adrDlPrefs^.parameter = pta^.postArgs.parameter
adrDlPrefs^.type = pta^.postArgs.type
add("Successfully set the DeepLeap preferences for this site. Next, scroll down to the bottom and submit the XML file to DeepLeap.")
bundle // add top instructions and whatnot
add("This sets up the XML file that DeepLeap parses to generate the links in their MetaInfo tab, and allows you to submit the XML file to DeepLeap for parsing.
")
add("Below, enter the addresses for each of the different pages. Don't put leading slashes in the URLs (in other words, \"http\://yoursite.com/sitemap.html\" should be entered as sitemap.html). You'll note that the home page URL is automatically generated for you; this comes out of the #ftpSite table at the root level of your website database. If you don't have one of the pages as part of your site, just leave that entry blank; DeepLeap just omits that option on the MetaInfo tab.")
bundle // build preferences form
local
sitename, contactinfo, sitemap, whatsnew, engine, type, parameter
bundle // set up variables, if they exist
if defined(adrDlPrefs^.sitename)
sitename = adrDlPrefs^.sitename
if defined(adrDlPrefs^.contactinfo)
contactinfo = adrDlPrefs^.contactinfo
if defined(adrDlPrefs^.sitemap)
sitemap = adrDlPrefs^.sitemap
if defined(adrDlPrefs^.whatsnew)
whatsnew = adrDlPrefs^.whatsnew
if defined(adrDlPrefs^.engine)
engine = adrDlPrefs^.engine
if defined(adrDlPrefs^.type)
type = adrDlPrefs^.type
if defined(adrDlPrefs^.parameter)
parameter = adrDlPrefs^.parameter
add("
")
bundle // build submission form
local
formUrl = dlData.prefs.xmlSubmissionFormUrl
formMethod = dlData.prefs.xmlSubmissionFormMethod
add("
")
return(htmlText)
0 Arial P v h7 ; 4 LAND win on disable(adrSite)
local
adrSiteFrag = manilaSuite.plugins.getSiteFragmentAddress("DeepLeap", adrSite)
if defined(adrSiteFrag^)
delete(adrSiteFrag)
if defined(adrSite^.["deepleap.xml"])
delete(@adrSite^.["deepleap.xml"])
return(true)
$ Arial P r h>
G #LAND win on enable(adrSite)
local
adrSiteFrag = manilaSuite.plugins.getSiteFragmentAddress("DeepLeap", adrSite)
adrSiteFrag^ = dlData.websiteFragment
adrSite^.["deepleap.xml"] = dlData.websiteFragment.["deepleap.xml"]
return(true)
M 2 Arial P VC gT LAND win on generateXml()
local
xmlText = ""
pta = html.getPageTableAddress()
url = string.popTrailing(pta^.ftpSite^.url, '/')
sitename = "", contactinfo = "", sitemap = "", whatsnew = "", engine = "", parameter = "", type = ""
adrDlPrefs = manilaSuite.plugins.getStorageAddress("DeepLeap")
indent = 0
on add(s)
xmlText = xmlText + string.filledString ("\t", indent) + s + "\r\n"
bundle // build the pagetable
pta^.responseHeaders.["Content-Type"] = "text/xml"
pta^.autoParagraphs = false
pta^.clayCompatibility = false
pta^.activeUrls = false
wp.newTextObject("{bodytext}", @pta^.template)
bundle // fill the variables
if defined(adrDlPrefs^.sitename)
sitename = adrDlPrefs^.sitename
if defined(adrDlPrefs^.contactinfo)
contactinfo = adrDlPrefs^.contactinfo
if defined(adrDlPrefs^.sitemap)
sitemap = adrDlPrefs^.sitemap
if defined(adrDlPrefs^.whatsnew)
whatsnew = adrDlPrefs^.whatsnew
if defined(adrDlPrefs^.engine)
engine = adrDlPrefs^.engine
if defined(adrDlPrefs^.parameter)
parameter = adrDlPrefs^.parameter
if defined(adrDlPrefs^.type)
type = adrDlPrefs^.type
bundle // build the XML
add("")
add("")
indent++
add("" + sitename + "")
add("" + url + "")
add("" + contactinfo + "")
add("" + sitemap + "")
add("" + whatsnew + "")
add("")
indent++
add("" + engine + "")
add("" + type + "")
add("" + parameter + "")
indent--
add("")
add("1.0")
indent--
add("")
return(xmlText)
M ? Arial P d"(
cv LAND win local
adrMacros = @dlMacros
adrVirginConfig = @dlData.initialConfig
dlSuite.setUpSubscriptionPrefs()
return(manilaSuite.plugins.register("DeepLeap", adrVirginConfig))
? ~ Arial P ܦ"( ,3LAND win local (adrPrefs = @user.rootUpdates.servers.DeepLeap)
if not defined (adrPrefs^)
new (tableType, adrPrefs)
if not defined (adrPrefs^.autobackup)
adrPrefs^.autobackup = true
if not defined (adrPrefs^.dbname)
adrPrefs^.dbname = "deepLeap.root"
if not defined (adrPrefs^.dialogs)
adrPrefs^.dialogs = true
if not defined (adrPrefs^.lastUpdate)
adrPrefs^.lastUpdate = "Thu, 01 Apr 2000 00:00:01 GMT"
if not defined (adrPrefs^.method)
adrPrefs^.method = "mainResponder.subscriptions.update"
if not defined (adrPrefs^.port)
adrPrefs^.port = 80
if not defined (adrPrefs^.serialNum)
adrPrefs^.serialNum = 0
if not defined (adrPrefs^.server)
adrPrefs^.server = "manilaupdates.queso.com"
if not defined (adrPrefs^.url)
adrPrefs^.url = "http://q.queso.com/deepLeapPlugIn"
L ;"'/
,
3 ?
K W
_ k
defaultPage ]disable :enable generateXml !oinstall )setUpSubscriptionPrefs + n . $"(
(
0dlData dlMacros 1dlSuite / VArial 5 " A; 0 +Arial
u w Times New Roman 0kArial
!\Arial