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

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

# 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

naartjie

# CAUTION: deletes all files not under git
git clean -xfd

naartjie

Download a dependency

mvn dependency:get \
  -Dartifact=org.springframework.cloud.stream.app:mongodb-sink-kafka-10:1.3.1.RELEASE:jar \
  -Dtransitive=false \
  -Ddest=gfy.jar

This way you can "force" Nexus to download a dependency from upstream, for example.