SubstitionCode = "iTunesHeader" "rssCategory¶rssTitle¶¶ rssContact¶ rssEditor¶¶rssAuthor¶rssCategory¶¶ rssEnclosureLink¶" SubstitionCode = "iTunes" "rssCategory¶rssCategory¶rssEnclosureLength¶rssCategory¶rssAuthor¶¶ rssEnclosureLink¶ rssEnclosureLength¶ rssEnclosureType¶¶" SubstitionCode = "Body" "rssTitle¶ rssLink¶ rssDescription¶ rssPubDate¶ rssAuthor¶ IDLink¶rssEnclosure rssPodcast¶" SubstitionCode = "Header" "¶¶¶rssTitle¶rssLink¶rssDescription¶en-us¶¶rssGenerator¶rssEditor¶rssPubDate¶rssLastPubDate¶rssWebmaster¶RSS¶rssTimeTillLive¶rssCopyright¶¶¶rssEnclosureLink¶rssTitle¶rssLink♡00¶¶" I use this function in any application that needs to report results to others.įnBuildRSSFeedLib // fnBuildRSSFeedLib ( SubstitionCode ) If the default values are referenced then fewer command line options are needed. I use CNS FTPiT to upload the feed to the web. when complete execute the funtion with no parameters to add the footer to the RSS Feed. then with a script loop add the information for each feed item, The first time the function is exicuted it creates the RSS Header, Enter the information and a valid RSS feed will be generated. There are many ways to publish RSS Feeds but this is the simple way. Could not find Text2HTM function on source site. Global Variables: $$Domain, $$RSSerrors by Roger Biel, 2Geckos Consulting, // Custom function Dependencies: fnText2HTM, fnRSS_DateCode, fnMimeType, fnJulian, fnXMLencode, fnValidURL, fnBuildRSSFeedLib, fnValidEmail (used by fnValidURL) $$RSSerrors = Case ( vLastRun $$RSSerrors not vFirstRun $$RSSerrors - Validate that RSS article is properly formatted
Header = Substitute ( fnBuildRSSFeedLib ( "Header" ) & rssPodcastHeader RssPodcastHeader = If ( not Podcast "" fnBuildRSSFeedLib ( "iTunesHeader" ) ) RssLastPubDate = fnRSS_DateCode ( rssLastPubDate rssLastPubDate ) RssPubDate = fnRSS_DateCode ( rssPubDate rssPubDate ) RssLink = fnXMLencode ( fnValidURL ( "URL" rssLink ) ) RssCategory = fnXMLencode ( rssCategory ) RssDescription = fnXMLencode ( fnText2HTM ( rssDescription ) ) RssPodcast = If ( not vPodcast "" fnBuildRSSFeedLib ( "iTunes" ) ) RssEnclosure = If ( IsEmpty ( rssEnclosureLink ) "" Substitute ( fnBuildRSSFeedLib ( "enclosure" ) RssEnclosureType = fnMimeType ( rssEnclosureLink "text" ) - Took recursion out of the IF statement to prevent the function from stopping short.įnBigDollar // fnBigDollar ( number, precision ) - Changed field name to strip off table off of the field name because the final log process does not have the table.
fnAuditLogLoad ( GetFieldName ( NameFirst ) &¶& GetFieldName ( NameLast ) "" ) Run this custom function to pre-populate an audit log field with existing values. If ( vNewValue ≠ "" vNewValue "" ) & ¶įnAuditLogLoad ( RightValues ( field_list ValueCount ( field_list ) - 1 ) acct_name ) ) GetAsTime ( Get ( CurrentHostTimestamp ) ) & Char(9) &
GetAsDate ( Get ( CurrentHostTimestamp ) ) & Char(9) & If ( IsValid ( GetField ( vFieldFullName ) ) VAcct = If ( acct_name ≠ "" acct_name "logstart" ) VFieldShortName = GetValue ( Substitute ( vFieldFullName "::" ¶ ) 2 ) VFieldFullName = GetValue ( field_list 1 ) FnAuditLogLoad // fnAuditLogLoad ( field_list acct_name )
0 kommentar(er)
