Scripting News: on main (flIncludeHistory=true, flBoxVisible=true, adrTemplate=@radio2Suite.data.homePageEditBox, flWaitForPublish=true, flFeedMenuScript=true, flHistoryEditInPopup=true)

Home > Archive > 2010 > September > 14

on main (flIncludeHistory=true, flBoxVisible=true, adrTemplate=@radio2Suite.data.homePageEditBox, flWaitForPublish=true, flFeedMenuScript=true, flHistoryEditInPopup=true)

By Dave Winer on Tuesday, September 14, 2010 at 9:31 AM.

t.titleLinkEnclosurePrompt = t.titleLinkEnclosurePrompt + ", " + string.lower (elementname)

t.titleLinkEnclosurePrompt = t.titleLinkEnclosurePrompt + "."

bundle //add the tweetbox

local (s)

t.lastTweetByThisUser = ""

t.initialText = ""

t.ctChars = sizeof (t.storyDescription) + sizeof (t.storyUrlShortened) //8/19/11 by DW

t.prompt = "Post to \"" + adrfeed^.prefs.title + ":\""

bundle //xmlicon

t.xmlIcon = ""

t.twitterFeedIcon = ""

if defined (adrfeed^.stats.feedUrl)

if sizeof (adrfeed^.stats.feedUrl) > 0

local (url = radio2Suite.data.strings.xmlviewerUrl + adrfeed^.stats.feedUrl)

t.xmlIcon = "" + imgXmlMini + ""

url = "pingTwitterFeed?url=" + string.urlencode (url)

local (myurl = "http://" + pta^.host + pta^.path) //3/28/11 by DW

url = "http://" + adrdata^.prefs.domainRadioReallySimpleApp + "/dancewithtwitter?feed=" + string.urlencode (adrfeed^.stats.feedUrl) + "&returnto;=" + string.urlencode (myurl)

url = radio2Suite.utilities.getTwitterUrl (adruser, adrfeed) //4/20/11 by DW

local (confirmation = "Would you like to connect this feed to your Twitter account?")

t.twitterFeedIcon = "" + imgTwitter + ""

bundle //t.linkIcon, 3/11/11 by DW

if sizeof (t.storyUrl) > 0

t.linkIcon = radio2Suite.utilities.getFavIconHtml (t.storyUrl)

else

t.linkIcon = ""

bundle //t.podcastIcon, 3/11/11 by DW

t.podcastIcon = ""

if adrpost != nil

if defined (adrpost^.enclosure)

if sizeof (adrpost^.enclosure) > 0

t.podcastIcon = "" + string (radio2Suite.data.html.podcastIcon) + ""

bundle //determine if the title/link boxes are visible initially, 3/11/11 by DW

if sizeof (t.storytitle) > 0 //title/link boxes are visible initially, so the user can see the title

t.titleLinkExpansionState = ""

t.initialWedgeUrl = "http://scripting.com/images/2011/11/11/wedgeDown.gif"

else

t.titleLinkExpansionState = "none"

t.initialWedgeUrl = "http://scripting.com/images/2011/11/11/wedgeRight.gif"

t.historyText = historytext //12/24/10 by DW

if t.storyUrlShortened == "" //2/18/11 by DW

t.storyUrlShortened = t.storyUrl

bundle //t.editBoxExpansionState, 3/22/11 by DW

if flBoxVisible or (sizeof (t.storyDescription) > 0) or (sizeof (t.message) > 0) //or (pta^.method == "POST")

t.editBoxExpansionState = ""

else

t.editBoxExpansionState = "none"

s = string.multiplereplaceall (string (adrTemplate^), @t, false, "<%", "%>")

add (s)

return (htmltext)

local (pta = html.getpagetableaddress (), adrdata = radio2suite.init (), t, historytext = "", adrpost = nil, adrfeed, args, adruser, username) scratchpad.radio2params = pta^ //debugging local (imgXmlMini, imgEdit, imgDelete, imgTwitterFeed, imgTwitter, now = clock.now (), flPromptEnabled = true, flTitleLinkBoxesVisible = true, idHistoryHIghlight = 0) pta^.title = "Home" //3/8/11 by DW new (tabletype, @pta^.radio2) //8/15/11 by DW bundle //set images html imgXmlMini = string (radio2Suite.data.html.xml) imgEdit = string (radio2Suite.data.html.editIcon) imgDelete = string (radio2Suite.data.html.deleteIcon) imgTwitterFeed = string (radio2Suite.data.html.twitterFeedIcon) imgTwitter = string (radio2Suite.data.html.twitterIcon) if not radio2Suite.securityChallenge (@adruser) return ("") bundle //set args, based on method, 1/4/11 by DW new (tabletype, @args) case pta^.method "GET" webserver.parseargs (pta^.searchargs, @args) if defined (args.title) //we came in through the bookmarklet if adruser^.prefs.flTitleCleanup args.title = string.trimwhitespace (args.title) //1/19/11 by DW args.title = string.multiplereplaceall (args.title, @radio2Suite.data.titleNoise) //2/21/11 by DW if args.title contains "\|" //2/23/11 by DW args.title = string.nthfield (args.title, "\|", 1) args.title = string.addPeriodToSentence (args.title) //2/23/11 by DW args.description = string.trimwhitespace (args.description) if sizeof (args.description) == 0 args.description = args.title args.title = "" "POST" if not defined (pta^.postArgs) //4/13/12 by DW if string.lower (pta^.requestHeaders.["Content-type"]) beginsWith "multipart/form-data" mainResponder.parseMultipart (pta) //parse multipart form into adrparamtable^.postArgs else new (tabletype, @pta^.postArgs) webserver.parseArgs (pta^.requestBody, @pta^.postArgs) args = pta^.postargs //3/1/11 by DW if args.storyUrl == "" //2/18/11 by DW if args.storyUrlShortened != "" args.storyUrl = args.storyUrlShortened args.storyUrlShortened = "" else scripterror ("Can't process the request because the method is not GET or POST.") bundle //set adrfeed to default value on setadrfeed () try if defined (args.feedMenu) adrfeed = @adruser^.feeds.[args.feedMenu] //1/13/11 by DW if defined (adrfeed^) adruser^.stats.lastFeedSelected = args.feedMenu return adrfeed = @adruser^.feeds.[adruser^.stats.lastFeedSelected] if defined (adrfeed^) return adrfeed = @adruser^.feeds [1] if sizeof (adruser^.feeds) == 0 scripterror ("Can't edit a feed because none have been defined.") setadrfeed () on decode (s) return (string.multiplereplaceall (s, @xml.rss.data.replaceTable, false)) on encode (s) return (string.urlencode (s, true)) on cleanupfilename (fname) local (i, ch) for i = sizeof (fname) downto 1 ch = fname [i] if (not string.isalpha (ch)) and (not string.isnumeric (ch)) and (ch != ' ') and (ch != '.') fname = string.delete (fname, i, 1) fname = string.innerCaseName (fname) return (fname) on getUploadType (fname, type) //7/5/11 by DW if string.lower (type) == "binary/octet-stream" local (extension = string.nthfield (fname, ".", string.countfields (fname, "."))) local (adrtype = @user.webserver.prefs.ext2MIME.[extension]) if defined (adrtype^) return (adrtype^) return (type) local (htmltext = "", indentlevel = 0) on add (s) htmltext = htmltext + string.filledstring ("\t", indentlevel) + s + "\r\n" bundle //init t new (tabletype, @t) t.storyTitle = "" t.storyUrl = "" t.storyUrlShortened = "" //2/18/11 by DW t.storyDescription = "" t.idPost = "" t.buttonTitle = "Post" t.username = username t.slogan = opmlEditor.viewSlogan (false) //11/15/11 by DW bundle //t.message if defined (args.message) t.message = args.message else t.message = "" bundle //t.newIcon, 3/11/11 by DW t.newIcon = "" + string (radio2Suite.data.html.newIcon) + "" bundle //handle post if pta^.method == "POST" local (adr, i) if defined (args.tweetButton) //12/29/09 by DW local (adrpost, urlEnclosure = "", extradata) new (tabletype, @extradata) if defined (args.storyEnclosure) //3/1/11 by DW if (sizeof (args.storyEnclosure.filename) > 0) and (sizeof (args.storyEnclosure.data) > 0) local (fname = cleanupfilename (args.storyEnclosure.filename)) local (relpath = file.getdatepath ("/", now) + fname) local (type = getUploadType (fname, args.storyEnclosure.["Content-Type"])) //7/5/11 by DW urlEnclosure = radio2Suite.writeStaticFile (adruser, relpath, @args.storyEnclosure.data, type) bundle //process extra items, 3/13/11 by DW local (adrarg) for adrarg in @args if string.lower (nameof (adrarg^)) beginswith "extra." local (name = string.delete (nameof (adrarg^), 1, 6)) if typeof (adrarg^) == tabletype //it's a file to be uploaded if sizeof (adrarg^.data) > 0 local (fname = cleanupfilename (adrarg^.filename)) local (relpath = file.getdatepath ("/", now) + fname) local (type = getUploadType (fname, adrarg^.["Content-Type"])) //7/5/11 by DW extradata.[name] = radio2Suite.writeStaticFile (adruser, relpath, adrarg^.data, type) else extradata.[name] = string (adrarg^) if radio2Suite.findPost (adrfeed, args.idPost, @adrpost) radio2Suite.editPost (adrpost, args.storyTitle, args.storyUrl, args.storyDescription, urlEnclosure, @extradata) bundle //this happens if the user adds a link after editing, 3/17/11 by DW local (flnotshortened) bundle //set flnotshortened, 7/12/12 by DW if defined (adrpost^.linkShortened) flnotshortened = sizeof (adrpost^.linkShortened) == 0 else flnotshortened = true if (sizeof (adrpost^.link) > 0) and flnotshortened //(sizeof (adrpost^.linkShortened) == 0) if radio2Suite.shortener.enabled (adruser) radio2Suite.shortenPostLink (adrpost, adruser) //3/9/12 by DW t.storyTitle = args.storyTitle t.storyUrl = args.storyUrl t.storyDescription = args.storyDescription t.idPost = args.idPost t.buttonTitle = "Save" idHistoryHIghlight = args.idPost //3/13/11 by DW else //2/22/11 by DW -- rewrite adrpost = radio2Suite.newPost (adrfeed, args.storyTitle, args.storyUrl, args.storyUrlShortened, args.storyDescription, urlEnclosure, @extradata) if adrpost != 0 if not defined (adrpost^.linkShortened) if radio2Suite.shortener.enabled (adruser) radio2Suite.shortenPostLink (adrpost, adruser) //3/9/12 by DW adrpost^.guid = adrpost^.linkShortened //3/16/11 by DW if adruser^.prefs.flPublishEnabled if flWaitForPublish //8/19/11 by DW radio2Suite.publish (adruser, adrfeed) else thread.callscript (@radio2Suite.publish, {adruser, adrfeed}) pta^.radio2.flSubmitButton = true //8/15/11 by DW if defined (args.goButton) //12/25/10 by DW local (adrnewfeed = @adruser^.feeds.[args.feedMenu]) if adrnewfeed != adrfeed webserver.redirect (pta, "?feed=" + args.feedMenu + "&title;=" + encode (args.storyTitle) + "&link;=" + encode (args.storyUrl) + "&description;=" + encode (args.storyDescription)) return bundle //get args if it's GET if pta^.method == "GET" local (adr, i) if defined (args.feed) adrfeed = @adruser^.feeds.[args.feed] if not defined (adrfeed^) scripterror ("There is no feed with the name \"" + args.feed + "\".") adruser^.stats.lastFeedSelected = args.feed if defined (args.idPost) //we're editing an existing post if radio2Suite.findPost (adrfeed, args.idPost, @adrpost) t.storyTitle = adrpost^.title t.storyUrl = adrpost^.link bundle //shortened urls, 2/18/11 by DW if defined (adrpost^.linkShortened) t.storyUrlShortened = adrpost^.linkShortened else if radio2Suite.shortener.enabled (adruser) t.storyUrlShortened = radio2suite.shortener.create (t.storyUrl, adruser) adrpost^.linkShortened = t.storyUrlShortened t.storyDescription = adrpost^.description t.idPost = args.idPost t.buttonTitle = "Save" idHistoryHIghlight = args.idPost //3/12/11 by DW else if defined (args.title) t.storyTitle = decode (args.title) if defined (args.link) t.storyUrl = decode (args.link) t.storyUrl = string.removeUrlGarbage (t.storyUrl) if radio2Suite.shortener.enabled (adruser) t.storyUrlShortened = radio2suite.shortener.create (t.storyUrl, adruser) if defined (args.description) t.storyDescription = decode (args.description) bundle //build history table if flIncludeHistory //3/21/11 by DW t.historyExpansionState = "" else t.historyExpansionState = "none" historytext = radio2Suite.viewHistory (adruser, adrfeed, idHistoryHIghlight, flHistoryEditInPopup) bundle //set t.homePagePrompt, 11/12/11 by DW if flPromptEnabled t.homePagePrompt = "" + adruser^.prefs.homePagePrompt + "" else t.homePagePrompt = "" bundle //build feeds menu t.feedsMenuOnly = "" //9/5/11 by DW if sizeof (adruser^.feeds) > 1 local (js) //2/25/11 by DW if flFeedMenuScript //10/6/11 by DW js = string (radio2Suite.data.feedMenuScript) else js = "" local (s = "" t.feedsMenuOnly = t.feedsMenu //9/5/11 by DW else if sizeof (adruser^.feeds) == 1 local (name = nameof (adruser^.feeds [1])) t.feedsMenu = "" t.feedsMenu = t.feedsMenu + t.homePagePrompt else t.feedsMenu = "" bundle //podcast button, 3/9/11 by DW if true //adruser^.prefs.flPodcastButtonOnHomePage -- wired on, 3/11/11 by DW t.podcastButton = "" else t.podcastButton = "" bundle //extra elements, via callbacks, 3/13/11 by DW local (adrscript, elementname, elementhtml) t.extraElements = "" t.titleLinkEnclosurePrompt = "Title, link, enclosure" for adrscript in @adrdata^.callbacks.extraHtml while typeof (adrscript^) == addresstype adrscript = adrscript^ try if adrscript^ (@elementname, @elementhtml) t.extraElements = t.extraElements + "
" + elementname + ":	" + elementhtml + "
Follow @davewiner

Previous / Next

Oct	APR	May
	25
2012	2013	2014