Skip to content

Instantly share code, notes, and snippets.

View patch.c
/* As the memmem() fuction is ripped off the GNU C Libary:
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
View scan.txt
scanning de-Muenchen
using '/dev/dvb/adapter0/frontend0' and '/dev/dvb/adapter0/demux0'
initial transponder 113000000 6900000 0 3
initial transponder 121000000 6900000 0 3
initial transponder 346000000 6900000 0 3
initial transponder 354000000 6900000 0 3
initial transponder 362000000 6900000 0 3
initial transponder 370000000 6900000 0 3
initial transponder 378000000 6900000 0 3
initial transponder 386000000 6900000 0 3
View stations.txt
scanning /usr/share/dvb/dvb-c/de-Muenchen
using '/dev/dvb/adapter0/frontend0' and '/dev/dvb/adapter0/demux0'
initial transponder 113000000 6900000 0 3
initial transponder 121000000 6900000 0 3
initial transponder 346000000 6900000 0 3
initial transponder 354000000 6900000 0 3
initial transponder 362000000 6900000 0 3
initial transponder 370000000 6900000 0 3
initial transponder 378000000 6900000 0 3
initial transponder 386000000 6900000 0 3
View keeweasel.pl
#!/usr/bin/perl
use strict;
use warnings;
sub WINDOWS() { $^O eq "MSWin32" }
use Inline C => "DATA",
CCFLAGS => "-W -Wall -Wno-unused-variable -Wno-unused-parameter -Wno-comment",
BUILD_NOISY => 1,
WINDOWS ?
View alp
#!/usr/bin/perl
use strict;
use warnings;
use 5.012.0;
my $dir;
my $file;
my %x;
while (<>) {
chomp;
View keeweasel.pl
#!/usr/bin/perl
use strict;
use warnings;
sub WINDOWS() { $^O eq "MSWin32" }
use Inline C => "DATA",
CCFLAGS => "-W -Wall -Wno-unused-variable -Wno-unused-parameter -Wno-comment",
BUILD_NOISY => 1,
WINDOWS ?
@yath
yath / check-kd-stations
Created Aug 28, 2011
Watch for changes in Kabel Deutschland's analog TV channel assignment
View check-kd-stations
#!/bin/sh
MYDIR="$(dirname "$(readlink -f "$0")")"
OUTFILE="$HOME/kd-stations.txt"
if [ -e "$OUTFILE.new" ]; then
echo "$OUTFILE.new already exists" >&2
exit 1
fi
"$MYDIR/kdinfo" > "$OUTFILE.new"
You can’t perform that action at this time.