typo 5.0.3.98.1 → 5.1

data/CHANGES-5.0.4

@@ -1,33 +0,0 @@
-Typo 5.0.3 "Don Mc Cullin" released on February 2008 the 24th is mostly a bugfix and refactoring release, going along with some improvements, everything leading slowly but surely to 5.1. 
-
-*** Less bugs, more speed ***
-
-Honnestly, Typo has never been so fast and so bugless as well. We've rewriten most of the caching engine, and it's now running flawlessly. Our effort to speed up the code has also been pursued and we can be proud of what we're releasing.
-
-*** Brand new editor ***
-
-The blog editor has been rewriten too, to be more functionnal and user friendly. We've also switched the rich text editor from TinyMCE to FCKEditor for 4 important features :
-– Fullscreen edition (kicks ass baby)
-– Spellchecking
-– Safari compatibility
-– Impressive localization
-
-*** More localisation ***
-
-We're continuing the localization effort to port Typo in your language. Default themes has been localized, and we now provide up to 8 languages :
-– English (default)
-– French
-– German
-– Italian
-– Japanese
-– Mexican Spanish
-– Polish
-– Romanian
-
-Many thanks to all the translators. Currently, only French translation is really complete.
-
-*** No gem? ***
-
-We won't provide you the habitual gem we used to. Rails app installer – formerly known as Typo installer – is brocken with Rails 2.0.2 and Typo instances installed this way just don't work. 
-
-We hope you'll enjoy Typo 5.0.3 as much as we enjoyed bringing it to you.

data/SIDEBARS

@@ -1,39 +0,0 @@
-***THIS DOCUMENT IS OUT OF DATE***
-==================================
-
-How to add a new sidebar plugin
-===============================
-
-1.  Decide on a name.  I'll refer to it as <name> below.
-
-2.  Next, create the plugin's controller in
-    components/plugins/sidebars/<name>_controller.rb.  Look at
-    flickr_controller.rb for an example.  At a minimum, you need to
-    define two methods: 
-
-    * self.display_name.  This is the short name that shows up in
-      title blocks in the sidebar admin UI.
-
-    * self.description.  This is the description that shows up in the
-      UI.
-
-    If your plugin needs to save configuration options, then you'll
-    need to add a 'configure' method as well, and possible a
-    self.default_config method.  Follow the examples.
-
-3.  Next, create the configuration page.  If your sidebar plugin
-    doesn't need any configuration data, then you can skip this step.
-    Otherwise create a file called 
-    components/plugins/sidebars/<name>/configure.rhtml and
-    put the form for configuring your plugin into the file.  See the
-    existing examples for inspiration.  You'll need to include
-    observe_form to get rails to save your data for you.
-
-4.  Finally, create the plugin's content.  This is what is displayed
-    when the sidebar is displayed in the blog.  Create a file called
-    components/plugins/sidebars/<name>/content.rhtml and fill it up.
-    Don't forget to include a <h3> header block.  Configuration data
-    (if any) is available in @sb_config[<config name>]
-
-That's it.  New components should be picked up automatically.  To
-enable them, you'll need to use the sidebar tool in the admin page.

data/app/views/admin/content/_quick_post.html.erb

@@ -1,20 +0,0 @@
-  <% form_tag :action=>"new" do %>
-<p>
-  <label for="articles_title"><%= _("Title")%>:</label><br />
-  <%= text_field 'article', 'title'  %>
-</p>
-<p>
-<p>
-  <label for="categories[]"><%= _("Categories")%>:</label><br />
-  <select name="categories[]" multiple="multiple" size="3" style="width:250px;">
-  <%= options_from_collection_for_select(@categories, "id", "name", @selected) %>
-  </select>
-</p>
-<p>
-  <label for="articles_body"><%= _("Article")%>:</label><br />
-  <%= text_area 'article', 'body', :rows => 10  %>
-</p>
-<div id="operations">
-  <%= save(_("Save Post")) %> or <a href="#" onclick="new Effect.BlindUp('quick-post', {duration: 0.4}); return false;" >Cancel</a>
-</div>
-<% end %>

data/db/schema.rb

@@ -1,224 +0,0 @@
-# This file is auto-generated from the current state of the database. Instead of editing this file, 
-# please use the migrations feature of ActiveRecord to incrementally modify your database, and
-# then regenerate this schema definition.
-#
-# Note that this schema.rb definition is the authoritative source for your database schema. If you need
-# to create the application database on another system, you should be using db:schema:load, not running
-# all the migrations from scratch. The latter is a flawed and unsustainable approach (the more migrations
-# you'll amass, the slower it'll run and the greater likelihood for issues).
-#
-# It's strongly recommended to check this file into your version control system.
-
-ActiveRecord::Schema.define(:version => 69) do
-
-  create_table "articles_tags", :id => false, :force => true do |t|
-    t.integer "article_id"
-    t.integer "tag_id"
-  end
-
-  create_table "blacklist_patterns", :force => true do |t|
-    t.string "type",    :limit => 15
-    t.string "pattern"
-  end
-
-  create_table "blogs", :force => true do |t|
-    t.text   "settings"
-    t.string "base_url"
-  end
-
-  create_table "categories", :force => true do |t|
-    t.string  "name"
-    t.integer "position",  :default => 0, :null => false
-    t.string  "permalink"
-  end
-
-  add_index "categories", ["permalink"], :name => "categories_permalink_index"
-
-  create_table "categorizations", :force => true do |t|
-    t.integer "article_id"
-    t.integer "category_id"
-    t.boolean "is_primary"
-  end
-
-  create_table "contents", :force => true do |t|
-    t.string   "type"
-    t.string   "title"
-    t.string   "author"
-    t.text     "body"
-    t.text     "extended"
-    t.text     "excerpt"
-    t.string   "keywords"
-    t.datetime "created_at"
-    t.datetime "updated_at"
-    t.integer  "user_id"
-    t.string   "permalink"
-    t.string   "guid"
-    t.integer  "text_filter_id"
-    t.text     "whiteboard"
-    t.string   "name"
-    t.boolean  "published",      :default => false
-    t.boolean  "allow_pings"
-    t.boolean  "allow_comments"
-    t.datetime "published_at"
-    t.string   "state"
-  end
-
-  add_index "contents", ["published"], :name => "contents_published_index"
-  add_index "contents", ["text_filter_id"], :name => "contents_text_filter_id_index"
-
-  create_table "feedback", :force => true do |t|
-    t.string   "type"
-    t.string   "title"
-    t.string   "author"
-    t.text     "body"
-    t.text     "excerpt"
-    t.datetime "created_at"
-    t.datetime "updated_at"
-    t.integer  "user_id"
-    t.string   "guid"
-    t.integer  "text_filter_id"
-    t.text     "whiteboard"
-    t.integer  "article_id"
-    t.string   "email"
-    t.string   "url"
-    t.string   "ip",               :limit => 40
-    t.string   "blog_name"
-    t.boolean  "published",                      :default => false
-    t.datetime "published_at"
-    t.string   "state"
-    t.boolean  "status_confirmed"
-  end
-
-  add_index "feedback", ["article_id"], :name => "feedback_article_id_index"
-  add_index "feedback", ["text_filter_id"], :name => "feedback_text_filter_id_index"
-
-  create_table "notifications", :force => true do |t|
-    t.integer  "content_id"
-    t.integer  "user_id"
-    t.datetime "created_at"
-    t.datetime "updated_at"
-  end
-
-  create_table "page_caches", :force => true do |t|
-    t.string "name", :null => false
-  end
-
-  add_index "page_caches", ["name"], :name => "name"
-
-  create_table "pings", :force => true do |t|
-    t.integer  "article_id"
-    t.string   "url"
-    t.datetime "created_at"
-  end
-
-  add_index "pings", ["article_id"], :name => "article_id"
-
-  create_table "profiles", :force => true do |t|
-    t.string "label"
-    t.string "nicename"
-    t.text   "modules"
-  end
-
-  create_table "profiles_rights", :force => true do |t|
-    t.integer "profile_id"
-    t.integer "right_id"
-  end
-
-  create_table "redirects", :force => true do |t|
-    t.string "from_path"
-    t.string "to_path"
-  end
-
-  create_table "resources", :force => true do |t|
-    t.integer  "size"
-    t.string   "filename"
-    t.string   "mime"
-    t.datetime "created_at"
-    t.datetime "updated_at"
-    t.integer  "article_id"
-    t.boolean  "itunes_metadata"
-    t.string   "itunes_author"
-    t.string   "itunes_subtitle"
-    t.integer  "itunes_duration"
-    t.text     "itunes_summary"
-    t.string   "itunes_keywords"
-    t.string   "itunes_category"
-    t.boolean  "itunes_explicit"
-  end
-
-  create_table "rights", :force => true do |t|
-    t.string "name"
-    t.string "description"
-  end
-
-  create_table "sessions", :force => true do |t|
-    t.string   "sessid",     :limit => 32
-    t.text     "data"
-    t.datetime "updated_at"
-  end
-
-  add_index "sessions", ["sessid"], :name => "sessid", :unique => true
-  add_index "sessions", ["sessid"], :name => "sessions_sessid_index"
-
-  create_table "sidebars", :force => true do |t|
-    t.integer  "active_position"
-    t.text     "config"
-    t.integer  "staged_position"
-    t.datetime "updated_at"
-    t.string   "type"
-  end
-
-  create_table "sitealizer", :force => true do |t|
-    t.string   "path"
-    t.string   "ip"
-    t.string   "referer"
-    t.string   "language"
-    t.string   "user_agent"
-    t.datetime "created_at"
-    t.date     "created_on"
-  end
-
-  create_table "tags", :force => true do |t|
-    t.string   "name"
-    t.datetime "created_at"
-    t.datetime "updated_at"
-    t.string   "display_name"
-  end
-
-  create_table "text_filters", :force => true do |t|
-    t.string "name"
-    t.string "description"
-    t.string "markup"
-    t.text   "filters"
-    t.text   "params"
-  end
-
-  create_table "text_link_ads_rss", :force => true do |t|
-    t.string  "html",    :limit => 1024
-    t.integer "post_id"
-  end
-
-  create_table "triggers", :force => true do |t|
-    t.integer  "pending_item_id"
-    t.string   "pending_item_type"
-    t.datetime "due_at"
-    t.string   "trigger_method"
-  end
-
-  create_table "users", :force => true do |t|
-    t.string  "login",                    :limit => 80
-    t.string  "password",                 :limit => 40
-    t.string  "name",                     :limit => 80
-    t.string  "email",                    :limit => 80
-    t.boolean "notify_via_email"
-    t.boolean "notify_on_new_articles"
-    t.boolean "notify_on_comments"
-    t.boolean "notify_watch_my_articles"
-    t.boolean "notify_via_jabber"
-    t.string  "jabber"
-    t.integer "profile_id"
-  end
-
-  add_index "users", ["login"], :name => "login", :unique => true
-
-end

data/public/javascripts/fckeditor/editor/filemanager/connectors/asp/basexml.asp

@@ -1,62 +0,0 @@
-<%
- ' FCKeditor - The text editor for Internet - http://www.fckeditor.net
- ' Copyright (C) 2003-2007 Frederico Caldeira Knabben
- '
- ' == BEGIN LICENSE ==
- '
- ' Licensed under the terms of any of the following licenses at your
- ' choice:
- '
- '  - GNU General Public License Version 2 or later (the "GPL")
- '    http://www.gnu.org/licenses/gpl.html
- '
- '  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
- '    http://www.gnu.org/licenses/lgpl.html
- '
- '  - Mozilla Public License Version 1.1 or later (the "MPL")
- '    http://www.mozilla.org/MPL/MPL-1.1.html
- '
- ' == END LICENSE ==
- '
- ' This file include the functions that create the base XML output.
-%>
-<%
-
-Sub SetXmlHeaders()
-	' Cleans the response buffer.
-	Response.Clear()
-
-	' Prevent the browser from caching the result.
-	Response.CacheControl = "no-cache"
-
-	' Set the response format.
-	Response.CharSet		= "UTF-8"
-	Response.ContentType	= "text/xml"
-End Sub
-
-Sub CreateXmlHeader( command, resourceType, currentFolder, url )
-	' Create the XML document header.
-	Response.Write "<?xml version=""1.0"" encoding=""utf-8"" ?>"
-
-	' Create the main "Connector" node.
-	Response.Write "<Connector command=""" & command & """ resourceType=""" & resourceType & """>"
-
-	' Add the current folder node.
-	Response.Write "<CurrentFolder path=""" & ConvertToXmlAttribute( currentFolder ) & """ url=""" & ConvertToXmlAttribute( url ) & """ />"
-End Sub
-
-Sub CreateXmlFooter()
-	Response.Write "</Connector>"
-End Sub
-
-Sub SendError( number, text )
-	SetXmlHeaders
-
-	' Create the XML document header.
-	Response.Write "<?xml version=""1.0"" encoding=""utf-8"" ?>"
-
-	Response.Write "<Connector><Error number=""" & number & """ text=""" & Server.HTMLEncode( text ) & """ /></Connector>"
-
-	Response.End
-End Sub
-%>

data/public/javascripts/fckeditor/editor/filemanager/connectors/asp/class_upload.asp

@@ -1,353 +0,0 @@
-<%
- ' FCKeditor - The text editor for Internet - http://www.fckeditor.net
- ' Copyright (C) 2003-2007 Frederico Caldeira Knabben
- '
- ' == BEGIN LICENSE ==
- '
- ' Licensed under the terms of any of the following licenses at your
- ' choice:
- '
- '  - GNU General Public License Version 2 or later (the "GPL")
- '    http://www.gnu.org/licenses/gpl.html
- '
- '  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
- '    http://www.gnu.org/licenses/lgpl.html
- '
- '  - Mozilla Public License Version 1.1 or later (the "MPL")
- '    http://www.mozilla.org/MPL/MPL-1.1.html
- '
- ' == END LICENSE ==
- '
- ' These are the classes used to handle ASP upload without using third
- ' part components (OCX/DLL).
-%>
-<%
-'**********************************************
-' File:		NetRube_Upload.asp
-' Version:	NetRube Upload Class Version 2.3 Build 20070528
-' Author:	NetRube
-' Email:	NetRube@126.com
-' Date:		05/28/2007
-' Comments:	The code for the Upload.
-'			This can free usage, but please
-'			not to delete this copyright information.
-'			If you have a modification version,
-'			Please send out a duplicate to me.
-'**********************************************
-' 文件名:	NetRube_Upload.asp
-' 版本:		NetRube Upload Class Version 2.3 Build 20070528
-' 作者:		NetRube(网络乡巴佬)
-' 电子邮件:	NetRube@126.com
-' 日期:		2007年05月28日
-' 声明:		文件上传类
-'			本上传类可以自由使用，但请保留此版权声明信息
-'			如果您对本上传类进行修改增强，
-'			请发送一份给俺。
-'**********************************************
-
-Class NetRube_Upload
-
-	Public	File, Form
-	Private oSourceData
-	Private nMaxSize, nErr, sAllowed, sDenied, sHtmlExtensions
-
-	Private Sub Class_Initialize
-		nErr		= 0
-		nMaxSize	= 1048576
-
-		Set File			= Server.CreateObject("Scripting.Dictionary")
-		File.CompareMode	= 1
-		Set Form			= Server.CreateObject("Scripting.Dictionary")
-		Form.CompareMode	= 1
-
-		Set oSourceData		= Server.CreateObject("ADODB.Stream")
-		oSourceData.Type	= 1
-		oSourceData.Mode	= 3
-		oSourceData.Open
-	End Sub
-
-	Private Sub Class_Terminate
-		Form.RemoveAll
-		Set Form = Nothing
-		File.RemoveAll
-		Set File = Nothing
-
-		oSourceData.Close
-		Set oSourceData = Nothing
-	End Sub
-
-	Public Property Get Version
-		Version = "NetRube Upload Class Version 2.3 Build 20070528"
-	End Property
-
-	Public Property Get ErrNum
-		ErrNum	= nErr
-	End Property
-
-	Public Property Let MaxSize(nSize)
-		nMaxSize	= nSize
-	End Property
-
-	Public Property Let Allowed(sExt)
-		sAllowed	= sExt
-	End Property
-
-	Public Property Let Denied(sExt)
-		sDenied	= sExt
-	End Property
-
-	Public Property Let HtmlExtensions(sExt)
-		sHtmlExtensions	= sExt
-	End Property
-
-	Public Sub GetData
-		Dim aCType
-		aCType = Split(Request.ServerVariables("HTTP_CONTENT_TYPE"), ";")
-		if ( uBound(aCType) < 0 ) then
-			nErr = 1
-			Exit Sub
-		end if
-		If aCType(0) <> "multipart/form-data" Then
-			nErr = 1
-			Exit Sub
-		End If
-
-		Dim nTotalSize
-		nTotalSize	= Request.TotalBytes
-		If nTotalSize < 1 Then
-			nErr = 2
-			Exit Sub
-		End If
-		If nMaxSize > 0 And nTotalSize > nMaxSize Then
-			nErr = 3
-			Exit Sub
-		End If
-
-		'Thankful long(yrl031715@163.com)
-		'Fix upload large file.
-		'**********************************************
-		' 修正作者：long
-		' 联系邮件: yrl031715@163.com
-		' 修正时间：2007年5月6日
-		' 修正说明：由于iis6的Content-Length 头信息中包含的请求长度超过了 AspMaxRequestEntityAllowed 的值（默认200K）, IIS 将返回一个 403 错误信息.
-		'          直接导致在iis6下调试FCKeditor上传功能时，一旦文件超过200K,上传文件时文件管理器失去响应，受此影响，文件的快速上传功能也存在在缺陷。
-		'          在参考 宝玉 的 Asp无组件上传带进度条 演示程序后作出如下修改，以修正在iis6下的错误。
-
-		Dim nTotalBytes, nPartBytes, ReadBytes
-		ReadBytes = 0
-		nTotalBytes = Request.TotalBytes
-		'循环分块读取
-		Do While ReadBytes < nTotalBytes
-			'分块读取
-			nPartBytes = 64 * 1024 '分成每块64k
-			If nPartBytes + ReadBytes > nTotalBytes Then
-				nPartBytes = nTotalBytes - ReadBytes
-			End If
-			oSourceData.Write Request.BinaryRead(nPartBytes)
-			ReadBytes = ReadBytes + nPartBytes
-		Loop
-		'**********************************************
-		oSourceData.Position = 0
-
-		Dim oTotalData, oFormStream, sFormHeader, sFormName, bCrLf, nBoundLen, nFormStart, nFormEnd, nPosStart, nPosEnd, sBoundary
-
-		oTotalData	= oSourceData.Read
-		bCrLf		= ChrB(13) & ChrB(10)
-		sBoundary	= MidB(oTotalData, 1, InStrB(1, oTotalData, bCrLf) - 1)
-		nBoundLen	= LenB(sBoundary) + 2
-		nFormStart	= nBoundLen
-
-		Set oFormStream = Server.CreateObject("ADODB.Stream")
-
-		Do While (nFormStart + 2) < nTotalSize
-			nFormEnd	= InStrB(nFormStart, oTotalData, bCrLf & bCrLf) + 3
-
-			With oFormStream
-				.Type	= 1
-				.Mode	= 3
-				.Open
-				oSourceData.Position = nFormStart
-				oSourceData.CopyTo oFormStream, nFormEnd - nFormStart
-				.Position	= 0
-				.Type		= 2
-				.CharSet	= "UTF-8"
-				sFormHeader	= .ReadText
-				.Close
-			End With
-
-			nFormStart	= InStrB(nFormEnd, oTotalData, sBoundary) - 1
-			nPosStart	= InStr(22, sFormHeader, " name=", 1) + 7
-			nPosEnd		= InStr(nPosStart, sFormHeader, """")
-			sFormName	= Mid(sFormHeader, nPosStart, nPosEnd - nPosStart)
-
-			If InStr(45, sFormHeader, " filename=", 1) > 0 Then
-				Set File(sFormName)			= New NetRube_FileInfo
-				File(sFormName).FormName	= sFormName
-				File(sFormName).Start		= nFormEnd
-				File(sFormName).Size		= nFormStart - nFormEnd - 2
-				nPosStart					= InStr(nPosEnd, sFormHeader, " filename=", 1) + 11
-				nPosEnd						= InStr(nPosStart, sFormHeader, """")
-				File(sFormName).ClientPath	= Mid(sFormHeader, nPosStart, nPosEnd - nPosStart)
-				File(sFormName).Name		= Mid(File(sFormName).ClientPath, InStrRev(File(sFormName).ClientPath, "\") + 1)
-				File(sFormName).Ext			= LCase(Mid(File(sFormName).Name, InStrRev(File(sFormName).Name, ".") + 1))
-				nPosStart					= InStr(nPosEnd, sFormHeader, "Content-Type: ", 1) + 14
-				nPosEnd						= InStr(nPosStart, sFormHeader, vbCr)
-				File(sFormName).MIME		= Mid(sFormHeader, nPosStart, nPosEnd - nPosStart)
-			Else
-				With oFormStream
-					.Type	= 1
-					.Mode	= 3
-					.Open
-					oSourceData.Position = nFormEnd
-					oSourceData.CopyTo oFormStream, nFormStart - nFormEnd - 2
-					.Position	= 0
-					.Type		= 2
-					.CharSet	= "UTF-8"
-					Form(sFormName)	= .ReadText
-					.Close
-				End With
-			End If
-
-			nFormStart	= nFormStart + nBoundLen
-		Loop
-
-		oTotalData = ""
-		Set oFormStream = Nothing
-	End Sub
-
-	Public Sub SaveAs(sItem, sFileName)
-		If File(sItem).Size < 1 Then
-			nErr = 2
-			Exit Sub
-		End If
-
-		If Not IsAllowed(File(sItem).Ext) Then
-			nErr = 4
-			Exit Sub
-		End If
-
-		If InStr( LCase( sFileName ), "::$data" ) > 0 Then
-			nErr = 4
-			Exit Sub
-		End If
-
-		Dim sFileExt, iFileSize
-		sFileExt	= File(sItem).Ext
-		iFileSize	= File(sItem).Size
-
-		' Check XSS.
-		If Not IsHtmlExtension( sFileExt ) Then
-			' Calculate the size of data to load (max 1Kb).
-			Dim iXSSSize
-			iXSSSize = iFileSize
-
-			If iXSSSize > 1024 Then
-				iXSSSize = 1024
-			End If
-
-			' Read the data.
-			Dim sData
-			oSourceData.Position = File(sItem).Start
-			sData = oSourceData.Read( iXSSSize )	' Byte Array
-			sData = ByteArray2Text( sData )			' String
-
-			' Sniff HTML data.
-			If SniffHtml( sData ) Then
-				nErr = 4
-				Exit Sub
-			End If
-		End If
-
-		Dim oFileStream
-		Set oFileStream = Server.CreateObject("ADODB.Stream")
-		With oFileStream
-			.Type		= 1
-			.Mode		= 3
-			.Open
-			oSourceData.Position = File(sItem).Start
-			oSourceData.CopyTo oFileStream, File(sItem).Size
-			.Position	= 0
-			.SaveToFile sFileName, 2
-			.Close
-		End With
-		Set oFileStream = Nothing
-	End Sub
-
-	Private Function IsAllowed(sExt)
-		Dim oRE
-		Set oRE	= New RegExp
-		oRE.IgnoreCase	= True
-		oRE.Global		= True
-
-		If sDenied = "" Then
-			oRE.Pattern	= sAllowed
-			IsAllowed	= (sAllowed = "") Or oRE.Test(sExt)
-		Else
-			oRE.Pattern	= sDenied
-			IsAllowed	= Not oRE.Test(sExt)
-		End If
-
-		Set oRE	= Nothing
-	End Function
-
-	Private Function IsHtmlExtension( sExt )
-		If sHtmlExtensions = "" Then
-			Exit Function
-		End If
-
-		Dim oRE
-		Set oRE = New RegExp
-		oRE.IgnoreCase	= True
-		oRE.Global		= True
-		oRE.Pattern		= sHtmlExtensions
-
-		IsHtmlExtension = oRE.Test(sExt)
-
-		Set oRE	= Nothing
-	End Function
-
-	Private Function SniffHtml( sData )
-
-		Dim oRE
-		Set oRE = New RegExp
-		oRE.IgnoreCase	= True
-		oRE.Global		= True
-
-		Dim aPatterns
-		aPatterns = Array( "<!DOCTYPE\W*X?HTML", "<(body|head|html|img|pre|script|table|title)", "type\s*=\s*[\'""]?\s*(?:\w*/)?(?:ecma|java)", "(?:href|src|data)\s*=\s*[\'""]?\s*(?:ecma|java)script:", "url\s*\(\s*[\'""]?\s*(?:ecma|java)script:" )
-
-		Dim i
-		For i = 0 to UBound( aPatterns )
-			oRE.Pattern = aPatterns( i )
-			If oRE.Test( sData ) Then
-				SniffHtml = True
-				Exit Function
-			End If
-		Next
-
-		SniffHtml = False
-
-	End Function
-
-	' Thanks to http://www.ericphelps.com/q193998/index.htm
-	Private Function ByteArray2Text(varByteArray)
-		Dim strData, strBuffer, lngCounter
-		strData = ""
-		strBuffer = ""
-		For lngCounter = 0 to UBound(varByteArray)
-			strBuffer = strBuffer & Chr(255 And Ascb(Midb(varByteArray,lngCounter + 1, 1)))
-			'Keep strBuffer at 1k bytes maximum
-			If lngCounter Mod 1024 = 0 Then
-				strData = strData & strBuffer
-				strBuffer = ""
-			End If
-		Next
-		ByteArray2Text = strData & strBuffer
-	End Function
-
-End Class
-
-Class NetRube_FileInfo
-	Dim FormName, ClientPath, Path, Name, Ext, Content, Size, MIME, Start
-End Class
-%>