In mythtv-setup under ‘Input connections’ (or something) type /home/mythtv/.mythtv/sendkeys.sh Then create this sendkeys.sh script in the directory mentioned above. #!/bin/sh for digit in $(echo $1 | sed -e ‘s/./& /g’); do red_eye /dev/ttyS0 $digit 2 sleep 0.4 done Decided this works better… #!/bin/csh echo “changing to $1″ /usr/local/bin/red_eye /dev/ttyS0 $1 2 & Place the red_eye [...]
This first script will list the perl modules you have installed and the version number. #!/usr/bin/perl # use ExtUtils::Installed; my $instmod = ExtUtils::Installed->new(); foreach my $module ($instmod->modules()) { my $version = $instmod->version($module) || “???”; print “$module — $version\n”; } This 2nd will uninstall a perl module by passing it the module name. i.e. ./filename.pl Mail::Bulkmail [...]
This chunk of code will show you a nice list of ports on which you have something listening. #!/bin/sh # listen – parse netstat -an output for listeners netstat -an | awk ‘ BEGIN { printf(“%12s\t%5s\t%5s\n”, “ADDRESS”, “PROT”, “PORT#”) printf(“%12s\t%5s\t%5s\n”, “——-”, “—-”, “—–”) } / LISTEN / { split($4,ip,”:”) printf(“%12s\t%5s\t%5s\n”, ip[1], $1, ip[2]) } ‘ [...]
This blog comes highly recommended, and this article in particular struck home with most aspects of my business life. There are others out there! Full-time freelancing: 10 things learned in 180 days ~ Authentic Boredom Tweet
If you enjoyed the post, make sure you subscribe to the RSS feed.
© 2012
Powered by WordPress. Design by 
