root/lang/csharp/Linqsxom/Linqsxom/Program.cs @ 2205

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
using System.Linq.Expressions;

namespace Linqsxom
{
    class Program
    {
        static void Main(string[] args)
        {
            Console.Write("Content-Type: text/html; charset=UTF-8\r\n\r\n" +
                            (from i in Enumerable.Range(0, 1)
                             let maxRecentCount = 5
                             let dir = @"Data" //@"..\..\Data"

                             let getString = (Func<String, String>)(s => String.IsNullOrEmpty(s) ? "" : s)

                             let serverName = Environment.GetEnvironmentVariable("SERVER_NAME")
                             let serverPort = Environment.GetEnvironmentVariable("SERVER_PORT")
                             let serverUrlPrefix = String.IsNullOrEmpty(serverName) ? "" : String.Format("http://{0}{1}", serverName, (serverPort == "80" ? "" : ":" + serverPort))
                             let scriptUrl = serverUrlPrefix + Environment.GetEnvironmentVariable("SCRIPT_NAME")

                             let pathInfoTmp = getString(Environment.GetEnvironmentVariable("PATH_INFO")) /* "/2007/11" */
                             let pathInfo = pathInfoTmp.EndsWith("/") ? pathInfoTmp : pathInfoTmp + "/"

                             let headTemplate = File.Exists("head.flavor") ? File.ReadAllText("head.flavor") : "<title>Linqsxom</title>\n<h1>Linqsxom</h1>\n"
                             let bodyTemplate = File.Exists("body.flavor") ? File.ReadAllText("body.flavor") : "<div class=\"entry\">\n<h2><a href=\"{ScriptUrl}{Path}\">{CreatedOn}</a></h2>\n<div class=\"body\">{Body}</div>\n</div>\n"
                             let footTemplate = File.Exists("foot.flavor") ? File.ReadAllText("foot.flavor") : "<p>Genetated by Linqsxom</p>"

                             let body = String.Join("\n", (from entry in
                                                               (from f in
                                                                    (from f in Directory.GetFiles(dir, "*.htm*", SearchOption.AllDirectories)
                                                                     orderby File.GetLastWriteTime(f) descending
                                                                     select f).Take(maxRecentCount)
                                                                let createdOn = File.GetLastWriteTime(f)
                                                                select new
                                                                {
                                                                    Path = String.Format("/{0}/{1:00}/{2:00}/{3}", createdOn.Year, createdOn.Month, createdOn.Day, Path.GetFileName(f)),
                                                                    FileName = f,
                                                                    CreatedOn = createdOn,
                                                                    Body = File.ReadAllText(f)
                                                                })
                                                           where entry.Path.StartsWith(pathInfo) || String.IsNullOrEmpty(pathInfo)
                                                           let block = bodyTemplate.Replace(CreatedOn => entry.CreatedOn.ToString(),
                                                                                            Body      => entry.Body,
                                                                                            ScriptUrl => scriptUrl,
                                                                                            Path      => entry.Path)
                                                           select block).ToArray<String>())
                             select headTemplate + body + footTemplate).First().ToString());
            //Console.Write("Content-Type: text/html; charset=UTF-8\r\n\r\n"+t.First().ToString());
        }
    }

    static class Extensions
    {
        /// <example>
        /// var s = "{Foo}/{Gaogao}".Replace(Foo => "ふう。", Gaogao => "がおがお。"); // => "ふう。/がおがお。"
        /// </example>
        public static String Replace(this String s, params Expression<Func<Object, String>>[] exprs)
        {
            return (from i in Enumerable.Range(0, 1)
                    let sb = ((Func<String, StringBuilder>)(x => new StringBuilder(x)))(s)
                    let body = (from expr in exprs
                                where sb.Replace("{" + expr.Parameters[0].Name + "}", expr.Compile().Invoke(s)) != null
                                select sb).Last()
                    select body).First().ToString();
        }
    }
}