nosing tar

__ __ _____ _ _____ _ _____ _ ___ __________ | \/ | ___ _ __ | ___|__| |__ |___ | / |___ |/ |( _ )_|___ /___ / | |\/| |/ _ \| '_ \ | |_ / _ \ '_ \ / / | | / (_) |/ _ (_) |_ \ |_ \ | | | | (_) | | | | | _| __/ |_) | / / | | / / _| | (_) | ___) |__) | |_| |_|\___/|_| |_| |_| \___|_.__/ /_/ |_|/_/ (_)_|\___(_)____/____/ ____ __ __ _____ ____ ___ ___ ___ / ___| \/ |_ _| |___ \ / _ \ / _ \ / _ \ | | _| |\/| | | | __) | | | | | | | | | | | |_| | | | | | | / __/| |_| | |_| | |_| | \____|_| |_| |_| |_____|\___/ \___/ \___/

Channel: 1
Now:
BLUE PETER 1710-1735
Next:
NEIGHBOURS 1735-1800

Channel: 2
Now:
SNOOKER: BENSON AND HEDGE 1310-1800
Next:
THE SIMPSONS 1800-1820

Channel: 3
Now:
HOME AND AWAY 1705-1730
Next:
WHEEL OF FORTUNE 1730-1800

Channel: 4
Now:
THE MONTEL WILLIAMS SHOW 1655-1730
Next:
PET RESCUE 1730-1800

Channel: 5
Now:
FILM: NOT WITH MY WIFE, Y 1530-1730
Next:
ONE TO WIN 1730-1800

Useful things
and some not so useful , such is life

Jump To / PPP

Some Tools

Calls & RAS

random stupid sentence
Launch Everything
random server stats

Domain information gatherer

Acronym guessing system

Wednesday 2 February - 12:20
apache logs
remote access tools

Denied Packets

Feb  6 16:08:00 - 212.159.74.214 was denied on port 20034
Feb  6 16:08:12 - 212.159.74.214 was denied on port 12345
Feb  6 16:08:12 - 212.159.74.214 was denied on port 31337
Feb  6 16:08:14 - 212.159.74.214 was denied on port 20034
Feb  6 21:32:00 - 195.172.240.105 was denied on port 21
Feb  6 21:32:03 - 195.172.240.105 was denied on port 21
Feb  6 21:32:09 - 195.172.240.105 was denied on port 21
Feb  6 21:32:21 - 195.172.240.105 was denied on port 21
Feb  6 21:32:45 - 195.172.240.105 was denied on port 21
Feb  6 21:33:33 - 195.172.240.105 was denied on port 21

main headlines

Heres the source...

#!/usr/bin/perl
use CGI qw(:standard);
open (SLURP,"ttext-606.txt")||die "its all gone wrong, sorry $!";
print header;
$page=join("",<SLURP>);
close (SLURP);
$page=~s/(.+)On Now and Next//gs;
$page=~s/\n(.+)$//;
$_ = $page;
print "<table cellspacing=\"5\" cellpadding=\"5\" border=\"0\"><tr>";
@bits = /\s{3}\d\s(.+?)\n/gs;
@bobs = /\n\s{5}(.+?)\n/gs;
for ($i=0;$i<=$#bobs;$i++){
  print "<td bgcolor=\"#999966\"><font size=\"1\" face=\"tahoma\"><img src=\"/images/tv".($i+1);
  print ".jpg\" border=\"0\" width=\"160\" height=\"120\" alt=\"Now on ".($i+1)."\"><br>";
  print "Channel: ".($i+1)."<br>Now:<br>$bits[$i]<br>Next:<br>$bobs[$i]";
  print "</font></td>";
}
print "</tr></table>";

Also this ugly cron job which got bigger as I added stuff...

/usr/local/bin/set-tv BBC1
/usr/local/bin/alevt-cap -oldbttv -timeout 20 -format png 101 160
/usr/local/bin/alevt-cap -oldbttv -timeout 20 101 606 555
/usr/local/bin/streamer -s 160x120 -o tv1.jpg
/usr/local/bin/set-tv BBC2
/usr/local/bin/streamer -s 160x120 -o tv2.jpg
/usr/local/bin/set-tv ITV
/usr/local/bin/streamer -s 160x120 -o tv3.jpg
/usr/local/bin/set-tv CH4
/usr/local/bin/streamer -s 160x120 -o tv4.jpg
/usr/local/bin/set-tv CH5
/usr/local/bin/streamer -s 160x120 -o tv5.jpg
mv ttext-101.png /home/httpd/htdocs/ttext-101.png
mv ttext-160.png /home/httpd/htdocs/ttext-160.png
mv tv1.jpg /home/httpd/htdocs/images/tv1.jpg
mv tv2.jpg /home/httpd/htdocs/images/tv2.jpg
mv tv3.jpg /home/httpd/htdocs/images/tv3.jpg
mv tv4.jpg /home/httpd/htdocs/images/tv4.jpg
mv tv5.jpg /home/httpd/htdocs/images/tv5.jpg
mv ttext-606.txt /home/httpd/cgi-bin