<system.webServer>
    <tracing>
        <traceFailedRequests>
            <add path="*">
                <traceAreas>
                    <add provider="ASP" verbosity="Verbose" />
                    <add provider="ASPNET" 
                         areas="Infrastructure,
                         Module,
                         Page,
                         AppServices" verbosity="Verbose" />
                    <add provider="ISAPI Extension" verbosity="Verbose" />
                    <add provider="WWW Server" 
                         areas="Authentication,
                         Security,
                         Filter,
                         StaticFile,
                         CGI,
                         Compression,
                         Cache,
                         RequestNotifications,
                         Module,
                         FastCGI" 
                         verbosity="Verbose" />
                </traceAreas>
                <failureDefinitions timeTaken="00:00:00" statusCodes="100-999" />
            </add>
        </traceFailedRequests>
    </tracing>
</system.webServer>

Det er faktisk meget simpelt. Her specificere vi hvilke providers vi gerne vil trace på, og hvilke areas vi ønsker at få information om. I vores failuredefinitions element fortæller vi, at vi gerne vil logge de requests som løber imellem statuskode 100 til 999 (alt).Husk at vi her kun fejlede requests, ikke requests der er “korrekt” gennemført.

 

Ens failed request log filer bliver pr. default gemt under inetpub (C:\inetpub\logs\FailedReqLogFiles\XXX\) folderen på webserveren. De er rene XML filer og sammen med dem ligger der et XSLT stylesheet der benyttes når man ser disse XML log filer i ens browser.

 

private void CreateDays()
{
    HtmlGenericControl days = new HtmlGenericControl("div");
    days.Attributes.Add("class", "days");

    /* Tilføj tomme dage så det passer :0) */
    DateTime date = SelectedDate.AddDays(-SelectedDate.Day);
    date = date.AddDays(
        (int)CultureInfo.CurrentUICulture.DateTimeFormat.FirstDayOfWeek - (int)date.DayOfWeek);

    while (date.Month < SelectedDate.Month || date.Year < SelectedDate.Year)
    {
        HtmlGenericControl day = new HtmlGenericControl("div");
        day.Attributes.Add("class", "day");
        days.Controls.Add(day);

        date = date.AddDays(1);
    }

    /* Tilføj egentlige dage */
    while (date.Month == SelectedDate.Month)
    {
        HtmlGenericControl day = new HtmlGenericControl("a");
        day.Attributes.Add("href", 
            Page.ClientScript.GetPostBackClientHyperlink(this, "select|" + date.Day));
        if (date == SelectedDate)
            day.Attributes.Add("class", "day day-selected");
        else
            day.Attributes.Add("class", "day");

        day.InnerText = date.Day.ToString();
        days.Controls.Add(day);

        date = date.AddDays(1);
    }

    HtmlGenericControl clear = new HtmlGenericControl("div");
    clear.Attributes.Add("class", "clear");
    days.Controls.Add(clear);

    Controls.Add(days);
}

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.IO.Compression;
using System.IO;
using System.Text.RegularExpressions;

public class CompressionModule : IHttpModule
{
    private IList<string> acceptedContentTypes;

    public CompressionModule()
    {
        acceptedContentTypes = new List<string> 
        { "text/html", "text/ccs", "text/javascript", "image/gif", "image/jpeg", "image/png" };
    }

    private void OnReleaseRequestState(object sender, EventArgs e)
    {
        HttpContext context = ((HttpApplication)sender).Context;
        string acceptEncoding = context.Request.Headers["Accept-Encoding"];
        string contentType = context.Response.ContentType.ToLower();

        /* Skal denne Content Type komprimeres og accepterer klienten komprimering? */
        if (acceptEncoding != null && acceptedContentTypes.Any
        (x => x.StartsWith(contentType, StringComparison.InvariantCultureIgnoreCase)))
        {
            acceptEncoding = acceptEncoding.ToLower();

            if (acceptEncoding.Contains("deflate") || acceptEncoding.Equals("*"))
            {
                context.Response.AppendHeader("Content-Encoding", "deflate");
                context.Response.Filter = new DeflateStream
                (context.Response.Filter, CompressionMode.Compress);
            }
            else if (acceptEncoding.Contains("gzip"))
            {
                context.Response.AppendHeader("Content-Encoding", "gzip");
                context.Response.Filter = new GZipStream
                (context.Response.Filter, CompressionMode.Compress);
            }
        }
    }

    public void Init(HttpApplication context)
    {
        context.ReleaseRequestState += new EventHandler(OnReleaseRequestState);
    }

    public void Dispose() { }
}

<%@ Page Language="C#" AutoEventWireup="true" CodeBehind="Default.aspx.cs" Inherits="MrFrost11.Default" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html401/strict.dtd">
<html>
<head>
<title>Mr. Frost </title>
<style type="text/css"> 
body        { font-family: calibri;  font-size: 10pt; }
h2          { font-size:11pt; }
.panel      { height: 200px; width: 300px; }
div.panel a { color:#105CB6; text-decoration:none; }
div.panel a:hover, a:focus { color:#000033; }
.panel-footer {          font-size: 10pt; text-align:right; font-weight:bold;}
div.panel ol  { padding-left:20px; }
div.panel li  { padding-bottom:5px;}
</style>
</head>
<body>
<div class="hslice" id="mrfrost" style="width: 320px">
 <h2 class="entry-title">Mr. Frost - le Grand Bleu</h2>
  <div class="entry-content">
    <div class="panel">
      <ol>
      <%
   1:  foreach (var item in RssItems) { 
%>
        <li><a href="<%= item.Url %>"><%
   1: = item.Title 
%></a></li>
      <%
   1:   } 
%>
      </ol>
      <div class="panel-footer"><a href="http://danielfrost.dk/">&raquo; more</a></div>
    </div>
  </div>
</div>
</body>
</html>

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web.UI;
using System.Xml.Linq;

namespace MrFrost11
{
    public class RssItem
    {
        public string Title { get; set; }
        public string Url { get; set; }
    }

    public partial class Default : Page
    {
        public IEnumerable<RssItem> RssItems { get; private set; }

        protected void Page_Load(object sender, EventArgs e)
        {
            var feed = XDocument.Load("http://danielfrost.dk/syndication.axd");

            RssItems = (from item in feed.Descendants("item") select new RssItem 
            { Title = item.Element("title").Value, Url = item.Element("link").Value }).Take(5);
        }
    }
}

#light

open System
open Microsoft.FSharp.Text.Lexing
open MrFrost10

Console.Write "Input: "
let line = Console.ReadLine()

let lexbuf = Lexing.from_string line
let e = Parser.start Lexer.token lexbuf

let rec factorial = function
    | 0 -> 1
    | n -> n * factorial(n - 1)
    
let rec eval = function
    Plus(e1, e2)   -> eval e1 + eval e2
  | Minus(e1, e2)  -> eval e1 - eval e2
  | Times(e1, e2)  -> eval e1 * eval e2
  | Divide(e1, e2) -> eval e1 / eval e2
  | Modulo(e1, e2) -> eval e1 % eval e2
  | Sin e          -> Math.Sin (eval e)
  | Cos e          -> Math.Cos (eval e)
  | Tan e          -> Math.Tan (eval e)
  | Sinh e         -> Math.Sinh (eval e)
  | Cosh e         -> Math.Cosh (eval e)
  | Tanh e         -> Math.Tanh (eval e)
  | Asin e         -> Math.Asin (eval e)
  | Acos e         -> Math.Acos (eval e)
  | Atan e         -> Math.Atan (eval e)
  | Atan2(e1, e2)  -> Math.Atan2(eval e1, eval e2)
  | Abs e          -> Math.Abs (eval e)
  | Ceiling e      -> Math.Ceiling (eval e)
  | Floor e        -> Math.Floor (eval e)
  | Exp e          -> Math.Exp (eval e)
  | Log e          -> Math.Log (eval e)
  | Log10 e        -> Math.Log10 (eval e)
  | Min(e1, e2)    -> Math.Min(eval e1, eval e2)
  | Max(e1, e2)    -> Math.Max(eval e1, eval e2)
  | Pow(e1, e2)    -> Math.Pow(eval e1, eval e2)
  | Sqrt e         -> Math.Sqrt (eval e)
  | Round e        -> Math.Round (eval e)
  | Sign e         -> Float.of_int (Math.Sign (eval e))
  | Truncate e     -> Math.Truncate (eval e)
  | Factorial e    -> Float.of_int (factorial (Int32.of_float (eval e)))
  | Float f        -> f
  | Pi             -> Math.PI
  | E              -> Math.E

Console.WriteLine (eval e)

using System;
using System.Linq;
using Microsoft.Scripting;
using Microsoft.Scripting.Hosting;
using IronPython.Hosting;
using System.Dynamic;

namespace MrFrost08
{
    class PythonBuiltins : DynamicObject
    {
        private ScriptEngine Engine { get; set; }
        private ScriptScope Scope { get; set; }

        public PythonBuiltins()
        {
            Engine = Python.CreateEngine();

            Scope = Engine.GetBuiltinModule();
        }
        
        public override bool TryGetMember(GetMemberBinder binder, out object result)
        {
            return Scope.TryGetVariable(binder.Name, out result);
        }
    }

    class Program
    {
        static void Main(string[] args)
        {
            dynamic pythonBuildins = new PythonBuiltins();

            var pow = pythonBuildins.pow;
            var result = pow(5, 5);
            Console.WriteLine("5^5 = " + result);

            var e = Enumerable.Range(0, 5);
            var zip = pythonBuildins.zip;
            var zipped = zip(e, e);
            Console.WriteLine("Zipped:");
            foreach (var item in zipped)
            {
                Console.WriteLine(item);
            }
        }
    }
}

Module Module1
    Sub Main()
        ' BigInteger sample
        Dim A = New SortedSet(Of System.Numerics.BigInteger)()
        A.Add(System.Numerics.BigInteger.One)
        A.Add(System.Numerics.BigInteger.Zero)
        A.Add(System.Numerics.BigInteger.MinusOne)
        A.Add(CType(Int64.MaxValue, System.Numerics.BigInteger) + 1)
        A.Add(CType(Int64.MinValue, System.Numerics.BigInteger) - 1)
        Console.WriteLine(A.ToXmlString())

        ' Silly Parallel sample
        Dim List = New List(Of System.Numerics.BigInteger)()
        For i = 0 To 10
            List.Add(i * 10)
        Next

        Console.WriteLine(List.AddOne().ToDelimitedString())

        ' My hopes
        Console.WriteLine(String.Format("Will I Win The LEGO Clone Wars box? {0}", Boolean.TrueString.WillIWin()))

        Console.ReadKey()
    End Sub
End Module

Module ExtensionMethods
    <System.Runtime.CompilerServices.Extension()>
    Public Function ToXElement(Of T)(ByVal sortedSet As SortedSet(Of T)) As System.Xml.Linq.XElement
        Dim Result = <SortedSet created=<%= Now().ToUniversalTime().ToString() %> datatype=<%= GetType(T).ToString() %>>
                     </SortedSet>

        For Each Element In sortedSet
            Result.Add(<Element><%= Element.ToString() %></Element>)
        Next

        Return Result
    End Function

    <System.Runtime.CompilerServices.Extension()>
    Public Function ToXmlString(Of T)(ByVal sortedSet As SortedSet(Of T)) As String
        Return sortedSet.ToXElement().ToString()
    End Function

    <System.Runtime.CompilerServices.Extension()>
    Public Function WillIWin(Of T)(ByVal anything As T) As String
        Return "Yes!"
    End Function

    <System.Runtime.CompilerServices.Extension()>
    Public Function AddOne(ByVal list As List(Of System.Numerics.BigInteger)) As List(Of System.Numerics.BigInteger)
        Dim Result = New List(Of System.Numerics.BigInteger)()

        For Each item In list.AsParallel()
            Result.Add(item.AddOne())
        Next

        Return Result
    End Function

    <System.Runtime.CompilerServices.Extension()>
    Public Function AddOne(ByVal value As System.Numerics.BigInteger) As System.Numerics.BigInteger
        Return value + 1
    End Function

    <System.Runtime.CompilerServices.Extension()>
    Public Function ToDelimitedString(ByVal list As List(Of System.Numerics.BigInteger)) As String
        Dim BobTheStringBuilder = New System.Text.StringBuilder()

        For Each item In list
            If BobTheStringBuilder.Length > 0 Then
                BobTheStringBuilder.AppendFormat(", {0}", item.ToString())
            Else
                BobTheStringBuilder.Append(item.ToString())
            End If
        Next

        Return BobTheStringBuilder.ToString()
    End Function
End Module

public class PriorityQueue<T>
{
    private struct Data { public T t; public int priority; }
    private readonly List<Data> list = new List<Data>();

    public void InsertWithPriority(T element, int priority)
    {
        list.Insert(list.
                        Where(x => x.priority >= priority).Count(), 
                        new Data { t = element, priority = priority });
    }

    public T GetNext()
    {
        if (list.Count > 0)
        {
            T t = list[0].t;
            list.RemoveAt(0);
            return t;
        }
        return default(T);
    }

    public T PeekAtNext()
    {
        return list.Count > 0 ? list[0].t : default(T);
    }
}

Jeg synes ovenstående er elegant kode, let læseligt og overskueligt. Det eneste minus i denne kode er at priorteten skal være en integer.

public class PriorityQueue<TItem, TPriority> : SortedList<TPriority, Queue<TItem>>
{
    public TItem PeekAtNext()
    {
        return this.Last().Value.Peek();
    }

    public TItem GetNext()
    {
        var queue = this.Last().Value;
        var item = queue.Dequeue();
        if (queue.Count() == 0)
        {
            Remove(this.Last().Key);
        }
        return item;
    }

    public void InsertWithPriority(TItem item, TPriority priority)
    {
        if (ContainsKey(priority))
        {
            this[priority].Enqueue(item);
        }
        else
        {
            Add(priority, new Queue<TItem>(new[] { item }));
        }
    }
}