Upgrade to ExtJS 3.0.0 - Released 07/06/2009

[extjs.git] / examples / feed-viewer / feed-proxy.ashx.vb

diff --git a/examples/feed-viewer/feed-proxy.ashx.vb b/examples/feed-viewer/feed-proxy.ashx.vb
deleted file mode 100644 (file)
index 66e0bae..0000000
--- a/examples/feed-viewer/feed-proxy.ashx.vb
+++ /dev/null
@@ -1,54 +0,0 @@
-Imports System.Web\r
-Imports System.Web.Services\r
-Imports System\r
-Imports System.IO\r
-Imports System.Net\r
-\r
-Public Class feedproxy1\r
-    Implements System.Web.IHttpHandler\r
-\r
-  Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest\r
-\r
-    'Address of URL\r
-    'Dim URL As String = "http://www.jackslocum.com/yui/feed/"\r
-    Dim URL As String = context.Request.Form("feed")\r
-    'Only allow http:// prefix\r
-    If IsNothing(URL) Then\r
-      Exit Sub\r
-    End If\r
-    If URL.Substring(0, 7) = "http://" Then\r
-      Try\r
-        'Dim enc As Encoding = Encoding.GetEncoding("UTF-8")\r
-        Dim enc As Encoding = Encoding.GetEncoding("ISO-8859-1")\r
-\r
-        Dim request As HttpWebRequest = WebRequest.Create(URL)\r
-        Dim response As HttpWebResponse = request.GetResponse()\r
-        Dim reader As StreamReader = New StreamReader(response.GetResponseStream(), enc)\r
-        Dim str As String '= reader.ReadLine()\r
-        Dim reply As String = ""\r
-        'Do While str.Length > 0 And Not reader.EndOfStream\r
-        Do While Not reader.EndOfStream\r
-          str = reader.ReadLine()\r
-          reply &= str & vbCrLf\r
-          'Console.WriteLine(str)\r
-        Loop\r
-        context.Response.ContentType = "text/xml"\r
-        context.Response.ContentEncoding = enc\r
-        context.Response.Cache.SetExpires(DateTime.Now.AddSeconds(60))\r
-        context.Response.Cache.SetCacheability(HttpCacheability.Public)\r
-\r
-        context.Response.Write(reply)\r
-      Catch ex As Exception\r
-      End Try\r
-\r
-    End If\r
-\r
-  End Sub\r
-\r
-    ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable\r
-        Get\r
-            Return False\r
-        End Get\r
-    End Property\r
-\r
-End Class
\ No newline at end of file