basbloemsaat

[
  {
    "name": "alles samen",
    "switchMount": "cherry",
    "switchBrand": "cherry",
    "switchType": "MX1A-L1xx",
    "plate": true
  },
  [
    {

basbloemsaat

#!/bin/sh

# Converts a mysqldump file into a Sqlite 3 compatible file. It also extracts the MySQL `KEY xxxxx` from the
# CREATE block and create them in separate commands _after_ all the INSERTs.

# Awk is chosen because it's fast and portable. You can use gawk, original awk or even the lightning fast mawk.
# The mysqldump file is traversed only once.

# Usage: $ ./mysql2sqlite mysqldump-opts db-name | sqlite3 database.sqlite
# Example: $ ./mysql2sqlite --no-data -u root -pMySecretPassWord myDbase | sqlite3 database.sqlite

basbloemsaat

   q   q   e   e   e   e
e|-------------------------|
B|-------------------------|
G|-7-------7-----------6---|
D|-7---7---7---7---7---6---|
A|-5---7---5---7---7---4---|
E|-----5-------5---5-------|

   q   q   e   s   s   e   e
e|-----------------------------|

basbloemsaat

E|------------3--0------------------------------------------|
B|---3--3-----3--1--3--3-----3--1--0-0-1-3---3--5--0--------|
G|---4--0-----------4--0-----4--2------------0--2--0--------|   x 2
D|----------------------------------------------------------|
A|----------------------------------------------------------|
E|----------------------------------------------------------|

E|---2-----3-2-2-0-0-2-0------0------2-0-0-----0------------|
B|---3--0---------------------2------------3-3---3----------|
G|------1------------------------2--------------------------|

basbloemsaat

license: gpl-3.0

basbloemsaat

#!/usr/bin/env perl

use strict;
use Data::Printer;

use REST::Client;
use JSON::XS;
use URI::Escape;

my $req = 'https://api.datamarket.azure.com/opendata.rdw/VRTG.Open.Data/v1/KENT_VRTG_O_DAT?$filter=' . uri_escape("Kenteken eq '31PHP6'") ;

basbloemsaat

#!/usr/bin/env perl

use 5.014;

use constant STEPS => 50;
our $pins = {
    red => 17,
    green => 27,
    blue => 22,
};

basbloemsaat

#!/usr/bin/env perl

use 5.014;
my $pins = [ 17,27,22 ];    # red, green and blue leds 
use constant STEPS => 50;

initpins($pins);

foreach my $pin (@$pins) {
    glowon($pin);