Skip to content

Instantly share code, notes, and snippets.

:menu-install
menu Installers for ${initiator-iqn}
item fedora-21-install-local Install Fedora 21 to local drive
item fedora-21-install Install Fedora 21 to iSCSI
item fedora-21-rescue Rescue Fedora 21 to local drive
#...
item --gap --
item serial-console Enable serial console for installers
:serial-console
package Some::Thing;
use fields qw(
_private
public
);
sub new {
my Some::Thing $self = shift;
unless (ref $self) {
$self = fields::new($self)
@warewolf
warewolf / discid.pl
Created May 3, 2015 18:30
Perl discid script for CDDB ids
#!/usr/bin/perl -w
use strict;
use constant CDROMREADTOCHDR=>0x5305;
use constant CDROMREADTOCENTRY=>0x5306;
use constant CDROM_MSF=>0x02;
use IO::File;
use Data::Dumper;
@warewolf
warewolf / block_callers.md
Created May 11, 2015 14:51
How I block incoming calls in Asterisk

My incoming calls land in the context from-trunk

Config to block calls

/etc/asterisk/extensions.conf

[from-trunk]
...
 same =>    n,GotoIf($[${DB(blockcaller/${CALLERID(num)})} = 1 ]?blocked)
 same => n(blocked),Hangup
( for foo in sd{c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z}; do smartctl -A /dev/$foo | grep Power_On_Hours | sed -e "s/^/$foo\t/" | awk '{print $1,$11}';done ) | sort -n -k2
sdh 13
sdl 13
sdd 43
sdq 43
sdp 1858
sdt 6843
sds 10422
sdv 10422
sdx 10423
$ grep md12. /proc/mdstat
md126 : active raid6 sdu1[6](S) sdq1[7] sdi1[0] sde1[2] sdy1[5] sdm1[4]
md125 : active raid6 sdc[8](S) sdh1[10] sdl1[5] sdp1[9] sdx1[6] sdt1[7]
md124 : active raid6 sdd1[6](S) sdk1[1] sdg1[2] sdw1[4] sds1[5] sdo1[0]
md127 : active raid6 sdj1[1] sdf1[5] sdz1[6] sdv1[7] sdr1[8](S) sdn1[4]
# for foo in md12{4,5,6,7}; do mdadm --detail /dev/$foo | grep Array\ Size;done
Array Size : 5860146432 (5588.67 GiB 6000.79 GB)
Array Size : 5860147200 (5588.67 GiB 6000.79 GB)
Array Size : 2929889280 (2794.16 GiB 3000.21 GB)
Array Size : 5860134912 (5588.66 GiB 6000.78 GB)
> targets
TargetName Type Endian TapName State
-- ------------------ ---------- ------ ------------------ ------------
0* WD10EACS.cpu0 feroceon little WD10EACS.cpu0 halted
1 WD2500BS.cpu0 feroceon little WD2500BS.cpu0 halted
> targets WD10EACS.cpu0
> reg pc
pc (/32): 0x000001A8
> targets WD2500BS.cpu0
> reg pc
@warewolf
warewolf / openocd-make-ida-happy.diff
Created July 16, 2015 22:14
Hacks to make IDA Pro happy w/ OpenOCD's GDB stub - applies against against 79fdeb37f486f74658f1eaf658abac8efb3eba6a
diff --git a/src/server/gdb_server.c b/src/server/gdb_server.c
index 4a33a30..aa6ef53 100644
--- a/src/server/gdb_server.c
+++ b/src/server/gdb_server.c
@@ -2196,7 +2196,8 @@ static int gdb_get_target_description_chunk(struct target *target, struct target
else
transfer_type = 'l';
- *chunk = malloc(length + 2);
+ // *chunk = malloc(length + 2);
#!/bin/bash -x
# backup wrapper
EMAIL="you@yourdomain.com"
CONFIG=$1
CONFIG_DIR=/mnt/rdiffbackup/configs/
EMAIL_SUBJ="readynas backup: "
# I forget why this is here
@warewolf
warewolf / prank.pl
Created November 20, 2015 04:58
What I used to punk @da_667
#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;
use Data::Dumper;
use IO::Socket::SSL;
use Time::HiRes qw(usleep);