jamescrowley

module Fake.NDepend

open Fake
open System
open System.IO
open System.Text

let getWorkingDir workingDir =
    Seq.find isNotNullOrEmpty [workingDir; environVar("teamcity.build.workingDir"); "."]
    |> Path.GetFullPath

jamescrowley

  public class AntiForgeryTokenFilter : IAuthorizationFilter
  {
      private readonly AcceptVerbsAttribute _verbs;
      public AntiForgeryTokenFilter(HttpVerbs verbs)
      {
          _verbs = new AcceptVerbsAttribute(verbs);
      }
      public void OnAuthorization(AuthorizationContext filterContext)
      {
          if (_verbs.IsValidForRequest(filterContext, null))

jamescrowley

    public class JsonValidatingModelBinder : DefaultModelBinder
    {
        public override object BindModel(ControllerContext controllerContext, ModelBindingContext bindingContext)
        {
            var result = base.BindModel(controllerContext, bindingContext);
            if (!IsJsonRequest(controllerContext))
            {
                return result;
            }
            if (!bindingContext.ModelMetadata.RequestValidationEnabled)

jamescrowley

using System.Security.Claims;
using Microsoft.Owin;

namespace Owin.StatelessAuth
{
    using System;
    using System.Collections.Generic;
    using System.Threading.Tasks;

    public class StatelessAuth : OwinMiddleware

jamescrowley

// Imported from Lokad.Shared, 2011-02-08

using System;

namespace Lokad.Cloud.Storage
{
    /// <summary>
    /// Helper class that indicates nullable value in a good-citizenship code
    /// </summary>
    /// <typeparam name="T">underlying type</typeparam>

jamescrowley

public class Startup
{
    public void Configuration(IAppBuilder app)
    {
        app
            .Use<StatusCodeFromExceptionMiddleware>()
            .UseNancy();
    }
}

jamescrowley

public class GlobalExceptionHandlingMiddleware : OwinMiddleware
    {
        private static readonly Logger Logger = LogManager.GetCurrentClassLogger();
        public GlobalExceptionHandlingMiddleware(OwinMiddleware next) : base(next)
        {
        }

        public override async Task Invoke(IOwinContext context)
        {
            try

jamescrowley

namespace FundApps.DocumentGenerator.FeatureTests.OwinMiddleware
{
    using System;
    using System.IO;
    using System.Net;
    using System.Net.Http;
    using System.Threading.Tasks;

    using FundApps.DocumentGenerator.Web.Infrastructure.Owin;

jamescrowley

<?xml version="1.0" encoding="utf-8"?>
<configuration>
  <appSettings>
    <add key="owin:HandleAllRequests" value="true" />
  </appSettings>
  <system.web>
    <compilation debug="true" targetFramework="4.5.1" />
    <httpRuntime targetFramework="4.5" />
  </system.web>
</configuration>

jamescrowley

Target "PowerShell" (fun _ ->
  let result = ExecProcess (fun info -> 
                info.FileName <- "powershell.exe"
                info.WorkingDirectory <- (currentDirectory @@ "deploy")
                info.Arguments <- "-ExecutionPolicy RemoteSigned -Command \"Import-Module Carbon\"") System.TimeSpan.MaxValue
  if result <> 0 then failwithf "Error deploying local"
)