naartjie

#r "nuget: FsHttp, 9.1.2"

open FsHttp
open System

let getSize url =
    async {
        let! r =
            http {
                HEAD url

naartjie

(* lang = F# *)

seq { 1 .. 100 }
|> Seq.map (function
    | x when x % 3 = 0 && x % 5 = 0 -> "CracklePop"
    | x when x % 3 = 0 -> "Crackle"
    | x when x % 5 = 0 -> "Pop"
    | x -> x.ToString())
|> Seq.iter (printfn "%s")

naartjie

getters = (cls, getters) ->
  cls.__base.__index = (key) =>
    if getter = getters[key]
      getter @
    else
      cls.__base[key]

setters = (cls, setters) ->
  cls.__base.__newindex = (key, val) =>
    if setter = setters[key]

naartjie

open System
open System.Text.RegularExpressions

type Expr =
    | Int of int
    | Symbol of string
    | Exprs of Expr list

(* convert a string into a list of tokens (include parentheses, remove whitespace) *)
let tokenize (str: string) =

naartjie

(**
    Pushes data from MongoDB to Oracle Micros iCare

    Run it like so:
    $ MONGO_URL=xxx \
      MICROS_URL=xxx \
      MICROS_USERNAME=xxx \
      MICROS_PASSWORD=xxx \
      dotnet fsi ./push_to_micros.fsx
 *)

naartjie

With SNI:

$ openssl s_client -showcerts -servername www.example.com -connect www.example.com:443 </dev/null

No SNI:

$ openssl s_client -showcerts -connect www.example.com:443 

naartjie

# stretch

$ echo "deb http://deb.debian.org/debian stretch-backports main" >> /etc/apt/sources.list
$ apt install -t stretch-backports git

naartjie

# One liner
wget --recursive --page-requisites --adjust-extension --span-hosts --convert-links --restrict-file-names=windows --domains yoursite.com --no-parent yoursite.com

# Explained
wget \
     --recursive \ # Download the whole site.
     --page-requisites \ # Get all assets/elements (CSS/JS/images).
     --adjust-extension \ # Save files with .html on the end.
     --span-hosts \ # Include necessary assets from offsite as well.
     --convert-links \ # Update links to still work in the static version.

naartjie

open MongoDB.Driver
open MongoDB.Bson
open MongoDB.Driver.Linq

let doMongoStuff () =
    
    let client = MongoClient("mongodb://localhost:27017")
    let db = client.GetDatabase("rebujito-test")

    let collectionName = "users"

naartjie

nmap -v -sn 192.168.1.0/24