glasserc

// monitor.vala: why Vala is not my favorite programming language.
//
// A program to walk the filesystem tree and install FileMonitors on
// every directory found, in order to test a limit on notifications.
// This will do a TON of I/O.  On my machine it takes almost an hour
// to chew through my hard drive.  The good news is that it doesn't
// hit a limit.
//
// FileMonitor is implemented I think using inotify, so if you're
// running Linux, the easier way to discover these limits is:

glasserc

#! /usr/bin/python
"""Program to fix my screwed up camera date/time settings.

At some point, some children adjusted the date on my camera as well as
the locale settings. Photos were henceforth marked as being one day
earlier than they should have been (i.e. the 28th instead of the 29th).

Later, I noticed that the camera date was wrong, but because the
equivalent of LC_DATE was different, I thought it was one MONTH early
instead of one DAY. I "fixed" it by putting the date on the camera

glasserc

#! /usr/bin/python
# Quick hack to find and rearrange files from a broken git-annex.
#
# One of my drives with a git annex suffered major filesystem
# corruption, and pretty much all the files got dumped into
# lost+found. Fortunately git-annex symlinks contain all the
# information you need to find your files and see if they're still OK
# -- to wit, the filesize and a SHA.

import os

glasserc

All times are in NYC time.

Time	Amount	New hrs	New $	Est $/hr	Hrs left	Est total
<2013-07-25 Thu 13:00>	5936196	nan	nan	nan	658.99999	nan
<2013-07-25 Thu 16:10>	6069593	3.166656	133397	42125.510	655.83334	33696907.
<2013-07-25 Thu 17:16>	6112629	1.099992	43036	39123.921	654.73334	31728364.
<2013-07-25 Thu 19:52>	6191035	2.600016	78406	30155.968	652.13333	25856747.
<2013-07-25 Thu 20:43>	6209245	0.849984	18210	21423.933	651.28334	20162296.
<2013-07-25 Thu 23:03>	6245207	2.333352	35962	15412.162	648.94999	16246929.

glasserc

    public String generateKey(String id) {
        // this should be unique: userId + currentTime + 5 digit random number
        return Base62Converter.encodeString(id + "-" +
                                            String.valueOf(System.currentTimeMillis()) + "-" +
                                            RandomStringUtils.randomAlphanumeric(5));
    }

glasserc

ethan@thunder:~/Jobs/SumAll/haskell-twitter-worker:upgrade-aes$ openssl s_client -msg -connect kinesis.us-east-1.amazonaws.com:443
CONNECTED(00000003)
>>> TLS 1.2 Handshake [length 012c], ClientHello
    01 00 01 28 03 03 e7 19 0d 06 97 c4 cb bb 7e f0
    d7 ed c8 ed 59 ea 28 db f9 4a 4e bd 35 7d 0b 62
    fc b7 d1 a9 b7 bc 00 00 92 c0 30 c0 2c c0 28 c0
    24 c0 14 c0 0a 00 a3 00 9f 00 6b 00 6a 00 39 00
    38 00 88 00 87 c0 32 c0 2e c0 2a c0 26 c0 0f c0
    05 00 9d 00 3d 00 35 00 84 c0 12 c0 08 00 16 00
    13 c0 0d c0 03 00 0a c0 2f c0 2b c0 27 c0 23 c0

glasserc

 370,542,843,752 bytes allocated in the heap
 148,840,615,752 bytes copied during GC
     846,536,984 bytes maximum residency (2404 sample(s))
     109,145,520 bytes maximum slop
            2159 MB total memory in use (1109 MB lost due to fragmentation)

                                    Tot time (elapsed)  Avg pause  Max pause
  Gen  0     502428 colls,     0 par   72.80s   73.09s     0.0001s    0.0261s
  Gen  1      2404 colls,     0 par   281.63s   282.21s     0.1174s    0.1935s

glasserc

import Control.Concurrent
import Control.Concurrent.STM
import Control.Monad
import Network.HTTP.Client
import Network.HTTP.Client.TLS

numThreads = 250

main = do
    manager <- newManager tlsManagerSettings {managerConnCount=1000}

glasserc

{-# LANGUAGE OverloadedStrings, ExtendedDefaultRules #-}
import Database.MongoDB
import Control.Exception
import Control.Monad.Trans (liftIO)

main = do
   pipe <- connect (host "127.0.0.1")
   e1 <- access pipe master "baseball" badQuery `catch` recover
   e2 <- access pipe master "baseball" goodQuery
   close pipe

glasserc

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
module SumAll.Eureka.Types (
    EitherStyleListeners(..),
    ) where

import Canteven.Listen.HTTP (ListenerConfig,
    ListenHTTPConfig(ListenHTTPConfig), otherthing, moyonthetnh)
import qualified Canteven.Listen.HTTP as CLH (ListenHTTPConfig(listeners))