coloredCode? ----- Original Message ----- From: "Tony Weeg" <[EMAIL PROTECTED]> To: "CF-Talk" <[EMAIL PROTECTED]> Sent: Thursday, July 03, 2003 9:58 AM Subject: RE: can someone validate this bug? (repost)
> ok its up there now... > > I went to that site and dl'ed the new version of coloredCode > > anyway > here it is.. > > http://tony.navtrak.net/cfmxBug.cfm > > ideas? anyone? > > > tony weeg > uncertified advanced cold fusion developer > tony at navtrak dot net > www.navtrak.net > office 410.548.2337 > fax 410.860.2337 > > > -----Original Message----- > From: webguy [mailto:[EMAIL PROTECTED] > Sent: Thursday, July 03, 2003 9:40 AM > To: CF-Talk > Subject: RE: can someone validate this bug? (repost) > > > Any chance you could add the following. > Show the code used. Display the server details to see timezone etc that > the server is using > > Here is a nice way to show the code.... > > Save the two sections below as > showcode.cfm > coloredcode.cfm > and the stick <cf_showcode> in to your template > > > <!--- save this as showcode.cfm ---> > <br clear=all /> > <br clear=all /> > <br clear=all /> > <cfoutput> > Code in :<b>#GetBaseTemplatePath()#</b><br /> > </cfoutput> > <cf_coloredcode file="#GetBaseTemplatePath()#"> > > > <!--- save this as coloredcode.cfm ---> > <!--- ============================================================= > Utility: ColdFusion ColoredCode v3.2 > Author: Dain Anderson > Email: [EMAIL PROTECTED] > Revised: June 7, 2001 > Download: http://www.cfcomet.com/cfcomet/utilities/ > ============================================================= > ---> > > <!--- Initialize attribute values ---> > <CFPARAM NAME="Attributes.File" DEFAULT=""> > <CFPARAM NAME="Attributes.Data" DEFAULT=""> > <CFPARAM NAME="Attributes.URL" DEFAULT=""> > > <!--- Was a file sent? ---> > <CFIF LEN(Attributes.File)> > <!--- Lock the file while reading ---> > <CFLOCK NAME="#Attributes.File#" TYPE="READONLY" > THROWONTIMEOUT="Yes" TIMEOUT="10"> > <CFFILE ACTION="READ" FILE="#Attributes.File#" > VARIABLE="Data"> > </CFLOCK> > <!--- Was a URL was sent? ---> > <CFELSEIF LEN(Attributes.URL)> > <!--- Use a TRY/CATCH block for HTTP connection failures. ---> > <CFTRY> > <CFLOCK TYPE="EXCLUSIVE" NAME="GetExternalURL" > TIMEOUT="10" THROWONTIMEOUT="Yes"> > <CFHTTP METHOD="GET" URL="#Attributes.URL#" > RESOLVEURL="No" TIMEOUT="10" THROWONERROR="Yes"> > </CFLOCK> > <!--- Catch connection failures. ---> > <CFCATCH TYPE="COM.ALLAIRE.COLDFUSION.HTTPFAILURE"> > <!--- An exception has occurred, so throw an error. ---> > <CFTHROW MESSAGE="The URL is not obtainable at > this time."> > </CFCATCH> > <CFCATCH TYPE="Any"> > <CFTHROW MESSAGE="Error getting the URL. Make > sure it is entered correctly."> > </CFCATCH> > </CFTRY> > <CFSET Data = CFHTTP.FileContent> > <CFELSE> > <CFSET Data = Attributes.Data> > </CFIF> > > <!--- Abort if no data was sent ---> > <CFIF NOT LEN(DATA)> > <CFTHROW MESSAGE="<CODE><B><FONT COLOR=NAVY>ColoredCode</FONT> > <FONT COLOR=FF0000>Error</FONT>:</B> No data to parse.</CODE>" > DETAIL="CF_ColoredCode takes one of three > attributes: FILE, URL, or DATA."> </CFIF> > > <CFSCRIPT> > /* Pointer to Attributes.Data */ > this = Data; > > /* Convert special characters so they do not get interpreted > literally; italicize and boldface */ > this = REReplaceNoCase(this, "&([[:alpha:]]{2,});", > "<B><I>&\1;</I></B>", "ALL"); > > /* Convert many standalone (not within quotes) numbers to blue, > ie. myValue = 0 */ > this = REReplaceNoCase(this, > "(gt|lt|eq|is|,|\(|\))([[:space:]]?[0-9]{1,})", "\1<FONT > COLOR=BLUE>\2</FONT>", "ALL"); > > /* Convert normal tags to navy blue */ > this = REReplaceNoCase(this, > "<(/?)((!d|b|c(e|i|od|om)|d|e|f(r|o)|h|i|k|l|m|n|o|p|q|r|s|t(e|i|t)|u|v| > w|x) > [^>]*)>", "<FONT COLOR=NAVY><\1\2></FONT>", "ALL"); > > /* Convert all table-related tags to teal */ > this = REReplaceNoCase(this, > "<(/?)(t(a|r|d|b|f|h)([^>]*)|c(ap|ol)([^>]*))>", "<FONT > COLOR=TEAL><\1\2></FONT>", "ALL"); > > /* Convert all form-related tags to orange */ > this = REReplaceNoCase(this, > "<(/?)((bu|f(i|or)|i(n|s)|l(a|e)|se|op|te)([^>]*))>", "<FONT > COLOR=FF8000><\1\2></FONT>", "ALL"); > > /* Convert all tags starting with 'a' to green, since the others > aren't used much and we get a speed gain */ > this = REReplaceNoCase(this, "<(/?)(a[^>]*)>", "<FONT > COLOR=GREEN><\1\2></FONT>", "ALL"); > > /* Convert all image and style tags to purple */ > this = REReplaceNoCase(this, "<(/?)((im[^>]*)|(sty[^>]*))>", > "<FONT COLOR=PURPLE><\1\2></FONT>", "ALL"); > > /* Convert all ColdFusion, SCRIPT and WDDX tags to maroon */ > this = REReplaceNoCase(this, > "<(/?)((cf[^>]*)|(sc[^>]*)|(wddx[^>]*))>", > "<FONT COLOR=MAROON><\1\2></FONT>", "ALL"); > > /* Convert all inline "//" comments to gray (revised) */ > this = REReplaceNoCase(this, > "([^:/]\/{2,2})([^[:cntrl:]]+)($|[[:cntrl:]])", "<FONT > COLOR=GRAY><I>\1\2</I></FONT>", "ALL"); > > /* Convert all multi-line script comments to gray */ > this = REReplaceNoCase(this, "(\/\*[^\*]*\*\/)", "<FONT > COLOR=GRAY><I>\1</I></FONT>", "ALL"); > > /* Convert all HTML and ColdFusion comments to gray */ > /* The next 10 lines of code can be replaced with the > commented-out line following them, if you do care whether HTML and CFML > comments contain colored markup. */ > EOF = 0; BOF = 1; > while(NOT EOF) { > Match = REFindNoCase("<!---?([^-]*)-?-->", this, BOF, > True); > if (Match.pos[1]) { > Orig = Mid(this, Match.pos[1], Match.len[1]); > Chunk = REReplaceNoCase(Orig, "<(/?[^>]*)>", "", > "ALL"); > BOF = ((Match.pos[1] + Len(Chunk)) + 31); // 31 > is the length of the FONT tags in the next line > this = Replace(this, Orig, "<FONT > COLOR=GRAY><I>#Chunk#</I></FONT>"); > } else EOF = 1; > } > > // Use this next line of code instead of the last 10 lines if > you want > (faster) > // this = REReplaceNoCase(this, "(<!---?[^-]*-?-->)", "<FONT > COLOR=GRAY><I>\1</I></FONT>", "ALL"); > > /* Convert all quoted values to blue */ > this = REReplaceNoCase(this, """([^""]*)""", "<FONT > COLOR=BLUE>""\1""</FONT>", "ALL"); > > /* Convert left containers to their ASCII equivalent */ > this = REReplaceNoCase(this, "<", "<", "ALL"); > > /* Revert all pseudo-containers back to their real values to be > interpreted literally (revised) */ > this = REReplaceNoCase(this, "<([^>]*)>", "<\1>", "ALL"); > > /* ***New Feature*** Convert all FILE and UNC paths to active > links (i.e, file:///, \\server\, c:\myfile.cfm) */ > this = REReplaceNoCase(this, > "(((file:///)|([a-z]:\\)|(\\\\[[:alpha:]]))+(\.?[[:alnum:]\/[EMAIL PROTECTED]|:~`+$%? > _##& > -])+)", "<A TARGET=""_blank"" HREF=""\1"">\1</A>", "ALL"); > > /* Convert all URLs to active links (revised) */ > this = REReplaceNoCase(this, > "([[:alnum:]]*://[[:alnum:[EMAIL PROTECTED](\.[[:alnum:]][[:alnum:]-]*[[:alnum:]]\. > )?[[ > :alnum:]]{2,}(\.?[[:alnum:]\/[EMAIL PROTECTED]|:~`+$%?_##&-])+)", "<A > TARGET=""_blank"" HREF=""\1"">\1</A>", "ALL"); > > /* Convert all email addresses to active mailto's (revised) */ > this = REReplaceNoCase(this, > "(([[:alnum:]][[:alnum:]_.-]*)?[[:alnum:[EMAIL PROTECTED]:alnum:]][[:alnum:].-]*\.[[ > :alp > ha:]]{2,})", "<A HREF=""mailto:\1"";>\1</A>", "ALL"); </CFSCRIPT> > <!--- Output final result (reverted in this release to 3.0) ---> <DIV > STYLE="padding-left : > 10px;"><CFOUTPUT><PRE>#this#</PRE></CFOUTPUT></DIV> > > <!--- end color code ----> > > -----Original Message----- > From: Tony Weeg [mailto:[EMAIL PROTECTED] > Sent: 03 July 2003 14:10 > To: CF-Talk > Subject: can someone validate this bug? (repost) > > > ok...this may be hard to explain but ill try. > > 1. user inputs a date/time in a form field > > 2. I take that date/time and figure out the number > of seconds since jan 1 1970 at midnight to get the > epoch time. > > 3. this is all well and fine, unless the date falls inside daylight > savings time (any time after the 1st Sunday in April) whereby CFMX adds > 1 hour to I guess self correct for DST. > > 4. if I take the same date/time and perform a local to utc time > conversion, I get the correct utc time, regardless of timezone, or DST > adjustment. > > 5. if I take that utc converted date/time and dateDiff it to jan 1 1970 > getting seconds back, I get the number of seconds plus 3600 seconds (1 > hour more than im supps to get) > > someone please explain/help do something here, get me a > shot...something!!!!!!!!! I have built a test web page to show the > problem.... > > http://www.navtrak.net/cfmxBug.cfm > > tony weeg > uncertified advanced cold fusion developer > tony at navtrak dot net > www.navtrak.net > office 410.548.2337 > fax 410.860.2337 > > > > > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~| Archives: http://www.houseoffusion.com/cf_lists/index.cfm?forumid=4 Subscription: http://www.houseoffusion.com/cf_lists/index.cfm?method=subscribe&forumid=4 FAQ: http://www.thenetprofits.co.uk/coldfusion/faq This list and all House of Fusion resources hosted by CFHosting.com. The place for dependable ColdFusion Hosting. http://www.cfhosting.com Unsubscribe: http://www.houseoffusion.com/cf_lists/unsubscribe.cfm?user=89.70.4
