slogsdon

# Basic setup to copy Wordpress files,
# expected to be at '.', into the image
FROM orchardup/php5
ADD . /code

slogsdon

<?php
/**
 * Ranking Library
 * contains alogrithms for story ranking
 * Basically a PHP Implementation of reddits algorithms
 *
 * @author      Lucas Nolte <lnolte@i.biz>
 * @since       0.1
 * @package     Polska Wiadomosc
 * @subpackage  Libraries

slogsdon

#!/bin/bash

SERVICE_PLAN_NAME="Default1"
SERVICE_PLAN_RESOURCE_GROUP_NAME="Default-Web-EastUS"
SERVICE_PLAN_ID=$(az appservice plan show --name $SERVICE_PLAN_NAME --resource-group $SERVICE_PLAN_RESOURCE_GROUP_NAME --query id --output tsv)
RESOURCE_GROUP_NAME=$(basename `pwd`)
RESOURCE_GROUP_LOCATION=$(az appservice plan show --name $SERVICE_PLAN_NAME --resource-group $SERVICE_PLAN_RESOURCE_GROUP_NAME --query location --output tsv)
APP_NAME="${RESOURCE_GROUP_NAME}-${RANDOM}"

# Create a resource group.

slogsdon

# useful imports
from securesubmit.services import HpsServicesConfig
from securesubmit.services.gateway import (
        HpsCreditService,
        HpsTrackData,
        HpsEncryptionData,
        HpsException
        )
from time import sleep

slogsdon

implementing user authentication with bcrypt in ChicagoBoss.

see http://shanelogsdon.com/erlang/implementing-user-authentication-with-bcrypt-in-chicagoboss

slogsdon

{-# LANGUAGE OverloadedStrings #-}
module Main where

import           Control.Concurrent      (forkIO)
import           Control.Monad           (forever)
import           Data.ByteString.Builder (Builder, hPutBuilder, lazyByteString)
import qualified Data.ByteString.Lazy    as BS
import           Data.Monoid             ((<>))
import           GHC.IO.Handle           (BufferMode (..), hClose,
                                          hSetBinaryMode, hSetBuffering)

slogsdon

{-# LANGUAGE OverloadedStrings #-}
module Main where

import           Control.Concurrent        (forkIO)
import           Control.Monad             (forever)
-- import qualified Data.ByteString.Char8 as S
import           Network.Socket            hiding (recv)
import           Network.Socket.ByteString (sendAll)

main :: IO ()

slogsdon

Magento Snippets

Download extension manually using pear/mage

Pear for 1.4, mage for 1.5. File downloaded into /downloader/.cache/community/

./pear download magento-community/Shipping_Agent
./mage download community Shipping_Agent

Clear cache/reindex

slogsdon

# @spec Control.Applicative.apply(Control.Applicative.t, Control.Functor.t) :: Control.Applicative.t
# @spec Control.Monad.bind(Control.Monad.t, (term -> Control.Monad.t)) :: Control.Monad.t

import Data.Maybe
alias Control.Applicative, as: A
import Control.Monad

(&(&1 + 2))
|> just
|> A.apply(just(5))

slogsdon

{-#LANGUAGE OverloadedStrings #-}
module Main where

import Data.Monoid
import Data.Text (Text, pack)
import Web.Spock.Safe

main :: IO ()
main =
  runSpock 3000 $ spockT id $