Skip to content

Instantly share code, notes, and snippets.

View dpavlin's full-sized avatar

Dobrica Pavlinušić dpavlin

138 followers · 209 following
View GitHub Profile
@dpavlin
dpavlin / mysqldump-4-to-5-migration.pl
Created July 10, 2012 19:31
Migrate MySQL 4.0 dump to 5.5 format
#!/usr/bin/perl
use warnings;
use strict;
my $create_table = 0;
sub key {
my ($unique,$key,$name,$cols) = @_;
$name = "`$name`" if defined $name;
return " $unique$key $name (" . join(',', map {
@jbarrett
jbarrett / rssfs.pl
Created August 24, 2012 14:05
FUSE Module to read/mount a RSS feed
#!/usr/bin/env perl
# rssfs.pl
use strict;
use warnings;
use Date::Parse;
use Fuse;
use HTML::FormatText::WithLinks;
@ajstarks
ajstarks / hellovg.go
Created September 3, 2012 02:42
OpenVG + Go
//
// first OpenVG program
// Anthony Starks (ajstarks@gmail.com)
//
//
package main
import (
"fmt"
"github.com/ajstarks/openvg"
@chrox
chrox / github-upload.py
Created November 2, 2012 15:34
build and upload customupdate of kindlepdfviewer automatically
#!/usr/bin/python
import os
import sys
import time
from datetime import datetime,timedelta
import subprocess
from github import Github
PROXY = "http://192.168.1.101:7071"
USER_TOKEN = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
@afresh1
afresh1 / tcpbench_client.pl
Created December 14, 2012 04:23
This is a [Mojolicious](http://mojolicio.us) streaming http server that opens a [tcpbench](http://www.openbsd.org/cgi-bin/man.cgi?query=tcpbench) connection to back to you. For me this lets me put the page on my server on the net and connect back to my home system and see the results on anything with a web browser. Mostly based on the [EventSour…
#!/usr/bin/perl
# Start this on a server someplace with tcpbench
# Start tcpbench -s on a machine that is the remote IP you are connecting the the web from
# Browse to the page.
use Mojolicious::Lite;
use Mojo::IOLoop;
use Mojo::IOLoop::Stream;
# Template with browser-side code
get '/' => sub {
@windytan
windytan / oscillo.pl
Last active December 31, 2023 02:54
use warnings;
use Getopt::Std;
getopt('xytGgwsf',\%opts);
# pcm file = $opts{f}
# samples per pixel x
$xscale = $opts{x} // 1200;
@dpavlin
dpavlin / qr-wifi.sh
Created August 21, 2013 12:08
Generate #QR code for #WIFI network
#/bin/sh -xe
# Generate QR code for WIFI network
test -z "$1" && echo -n "ssid: " && read ssid || ssid=$1
test -z "$2" && echo -n "password: " && read pass || pass=$2
qrencode -o /tmp/qr-${ssid}.png "WIFI:S:$ssid;T:WPA;P:$pass;" ; qiv -m /tmp/qr-${ssid}.png
@warewolf
warewolf / gist:c185d17008dd1639138f
Created January 1, 2015 02:21
SMI USB flash drive controller identification page
# sg_raw -r 525 /dev/sg2 f0 04 00 00 00 00 00 00 00 00 00 01
>>> transport error: Host_status=0x03 [DID_TIME_OUT]
Driver_status=0x00 [DRIVER_OK, SUGGEST_OK]
SCSI Status: Good
Received 525 bytes of data:
00 02 00 43 30 4b 40 02 c0 17 22 22 30 4b 38 02 c0 ..C0K@...""0K8..
10 1a 22 22 30 4b 30 02 c0 1d 22 22 30 4b 29 02 c0 .""0K0...""0K)..
@EatMoreCode
EatMoreCode / mojo_and_mqtt.pl
Created August 28, 2015 02:59
WebApp consuming MQTT messages and providing data via HTTP
#!/usr/bin/env perl
# ./mojo_and_mqtt.pl daemon
use Mojolicious::Lite;
use EV;
use AnyEvent;
use AnyEvent::MQTT;
my $mqtt = AnyEvent::MQTT->new;
@ali1234
ali1234 / quintic.py
Created June 3, 2016 01:42
Reverse engineering of budget fitness band using quintic qn9021...
#!/usr/bin/env python
#Connecting to: 08:7C:BE:8F:3C:FB, address type: public
#Service <uuid=Generic Attribute handleStart=12 handleEnd=15> :
# Characteristic <Service Changed>, hnd=0xd, supports READ INDICATE
# -> '\x01\x00\xff\xff'
#Service <uuid=Generic Access handleStart=1 handleEnd=11> :
# Characteristic <Device Name>, hnd=0x2, supports READ WRITE
# -> 'Quintic BLE'
# Characteristic <Appearance>, hnd=0x4, supports READ