antiharmonic

// ==UserScript==
// @name         ext.to magnet href fixer
// @namespace    http://tampermonkey.net/
// @version      1.3
// @match        https://ext.to/*
// @run-at       document-start
// @grant        none
// ==/UserScript==

(function () {

antiharmonic

#!/bin/bash

# usage: calc_b2_upload.sh <bucket-name> [optional parameters to pass to the b2 command]

if ! command -v mac2unix &> /dev/null
then
    echo "mac2unix (from dos2unix) could not be found, please install to continue."
    exit
fi

antiharmonic

#!/bin/env python3

# This has a lot of problems, e.g. I should have used os.path.join()
# and as such this has only been used in my own little WSL world.

# replace steam_libraries, ssdir, and extractdir with your values. Probably could just run
# with steam_libraries as empty and then the script would just pull everything from store.steampowered.com
# instead of locally

# this was just a quick hack because I wanted to backup my screenshots in a format that wasa  little more readable.

antiharmonic

encrypted backup to s3

init encfs

• first time mounting with
  • encfs --reverse /path/to/backup /tmp/encrypted-s3-backup
• i choose this settings:
  • x - expert mode
  • AES encryption - 256 bit keysize

antiharmonic

#!/usr/bin/perl

# written by antiharmonic
# 2017/08/07
# v0.0.1
# Probably poorly written and insecure.
# I just wanted a filtered feed for a podcast app

use strict;
use warnings;

antiharmonic

package main

import (
    "encoding/base64"
    "net/http"
    "strings"
)

type handler func(w http.ResponseWriter, r *http.Request)

antiharmonic

#!/usr/bin/perl

use warnings;
use strict;

use Foundation; # perlobjcbridge
use feature qw(say);

PerlObjCBridge->setTracing(1);
my $notification = NSUserNotification->alloc()->init();

antiharmonic

my $ct = CT->new(); # helper module
my $dbh;
my $max = 0;


do {
  eval {
    $dbh = DBI->connect("dbi:Oracle:host=" . $ct->db_host . ";sid=" . $ct->db_name .";port=1521", $ct->db_user, $ct->db_pass, {AutoCommit=>1}) or die "$DBI::errstr\n$instance";
  };
  if ($@) {  

antiharmonic

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $dbh = DBI->connect(...);
my $sth = $dbh->prepare("select name, id from example_table where col1 = ?");
my %id_hash;
while (my @row = $sth->fetchrow_array) {