creaktive

package Convos::Plugin::Pushsafer;
use Mojo::Base 'Convos::Plugin', -signatures;

sub register($self, $app, $config = {}) {
    my $ua      = $app->ua;
    my $key     = ...;
    my $dev     = ...;
    my $prio    = 0;
    my $icon    = 33;

creaktive

#!/usr/bin/env bash
set -euo pipefail

# --- Config ---
DYSON_DEVICE=NN2-EU-XXXXXXXX
DYSON_TOKEN=XXXXXXXXXXXXXXXX

INFLUX_HOST=http://127.0.0.1:8086
INFLUX_ORG=home
INFLUX_BUCKET=climate

creaktive

<?php
$PUBLIC_FACILITY_GROUP = ...;
$AUTH_TOKEN = ...;

// get QR code data
$ch = curl_init('https://my.trainmore.nl/nox/v1/customerqrcode/');
curl_setopt_array($ch, [
    CURLOPT_RETURNTRANSFER => true,
    CURLOPT_ENCODING       => '',
    CURLOPT_HTTPHEADER     => [

creaktive

const BASE32_ALPHABET = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ234567';

function encodeBase32(input) {
    const buffer = Buffer.from(input);
    let bits = 0;
    let value = 0;
    let output = '';

    for (let i = 0; i < buffer.length; i++) {
        value = (value << 8) | buffer[i];

creaktive

#EXTM3U

#EXTINF: 0, Psyndora Trance
https://cast.magicstreams.gr/sc/psyndora/stream

#EXTINF: 0, Psyndora Chill
https://cast.magicstreams.gr/sc/psychill/stream

#EXTINF: 0, RadiOzora Trance
https://trance.out.airtime.pro/trance_a

creaktive

alias sfjq='jq '\''if .status==0 then .result.records[]|[paths(scalars) as $p|{"key":$p|join("."),"value":getpath($p)}|select(.key|test("\\battributes\\b")|not)]|from_entries else .message|halt_error(1) end'\'

creaktive

#!/usr/bin/env perl
use strict;
use warnings qw(all);

use constant IP_RANGES_JSON => 'https://ip-ranges.amazonaws.com/ip-ranges.json';

use JSON::PP qw();
use LWP::Simple qw();
use NetAddr::IP qw();

creaktive

# try to guess the words for the given letters based on the scrapped dictionary
perl -ane '$_=lc;/^[acznito]{4,}$/&&/o/&&print' "$HOME/spelling-bee.txt" | sort -u

creaktive

#!/usr/bin/env perl
use 5.036;

local $/ = undef;
$_ = <>;

while (
    m{
        (?(DEFINE)
            (?<float> \d+\.\d+)

creaktive

#!/usr/bin/env perl
use 5.036;

my $ch = 0;
my $division = 960;
my $note_off = 0x80;
my $note_on = 0x90;

my $track = '';
$track .= pack('wC3', 23, $note_on + $ch, 69, 126);