rendered paste body#!/usr/bin/perl
# Britsh TV
# THE REVIVAL!
use LWP::Simple qw(!head);
# while(1) {
undef($progid);
undef($chanid);
undef($station_raw);
system $^O eq 'MSWin32' ? 'cls' : 'clear';
# print "CHANNEL NUMBERS ARE BROKEN! TYPE IN 'tangytest' INSTEAD!\n";
print "1. BBC One 23. Discovery Channel\n";
print "2. BBC Two 24. National Geographic\n";
print "3. ITV 1 25. Animal Planet\n";
print "4. Channel 4 26. Travel Channel\n";
print "5. Five 27. 4Music\n";
print "6. BBC Three / CBBC 28. Chart Show\n";
print "7. BBC Four / CBeebies 29. Scuzz\n";
print "8. ITV 2 30. Flava\n";
print "9. ITV 3 31. Dance Nation\n";
print "10. ITV 4 32. TMF Dance\n";
print "11. CITV 33. The Vault\n";
print "12. E4 34. Eurosport\n";
print "13. More4 35. Eurosport 2\n";
print "14. Film4 36. BBC News\n";
print "15. True Movies 37. BBC World News\n";
print "16. Movies4Men 38. BBC Parliament\n";
print "17. HBO 39. Euronews\n";
print "18. Horror Channel 40. Sky News\n";
print "19. Zone Reality 41. Bloomberg\n";
print "20. Sci Fi 42. France 24\n";
print "21. Universal Channel 43. Al Jazeera\n";
print "22. CBS Reality 44. QVC\n\n";
print "Which channel would you like to watch? ";
$chan = <>;
if (($chan eq 1) || ($chan eq "BBC1")) {
$chanid = 2627;
$progid = 19838;
}
if ($chan == 2) {
$chanid = 2628;
$progid = 19839;
}
if ($chan == 3) {
$station_filmon = "42";
$params = "--crop=16:10 --aspect-ratio=16:9";
}
if ($chan == 4) {
$station_filmon = "36";
$params = "--crop=16:10 --aspect-ratio=16:9";
}
if ($chan == 5) {
$station_filmon = "52";
$params = "--crop=16:10 --aspect-ratio=16:9";
}
if ($chan == 6) {
$station_gouk = "bbc3";
$params = "--crop=16:10 --aspect-ratio=16:9"
}
if ($chan == 7) {
$station_gouk = "bbc4";
$params = "--crop=16:10 --aspect-ratio=16:9"
}
if ($chan == 8) {
$station_gouk = "itv2";
$params = "--crop=16:10 --aspect-ratio=16:9"
}
if ($chan == 9) {
$station_gouk = "itv3";
$params = "--crop=16:10 --aspect-ratio=16:9"
}
if ($chan == 10) {
$station_gouk = "itv4";
$params = "--crop=16:10 --aspect-ratio=16:9"
}
if ($chan == 11) {
$station_gouk = "e4";
$params = "--crop=4:3 --aspect-ratio=4:3"
}
if ($chan == 12) {
$station_filmon = "98";
$params = "--crop=16:10 --aspect-ratio=16:9"
}
if ($chan == 13) {
$station_gouk = "fiver";
$params = "--crop=16:10 --aspect-ratio=4:3"
}
if ($chan == 14) {
$station_gouk = "fiveusa";
$params = "--crop=16:10 --aspect-ratio=4:3"
}
if ($chan == 15) {
$station_filmon = "49";
$params = "--crop=4:3 --aspect-ratio=4:3";
}
if ($chan == 16) {
$station_filmon = "44";
$params = "--crop=16:10 --aspect-ratio=4:3";
}
if ($chan == 17) {
$station_gouk = "truemovies";
$params = "--crop=16:10 --aspect-ratio=4:3"
}
if ($chan == 18) {
$station_gouk = "truemovies2";
$params = "--crop=16:10 --aspect-ratio=4:3"
}
if ($chan == 19) {
$station_gouk = "movies4men";
$params = "--crop=16:10 --aspect-ratio=4:3"
}
if ($chan == 20) {
$station_gouk = "movies4men2";
$params = "--crop=16:10 --aspect-ratio=4:3"
}
if ($chan == 21) {
$station_filmon = "54";
$params = "--crop=16:10 --aspect-ratio=4:3";
}
if ($chan == 22) {
$station_gouk = "qvc";
$params = "--crop=16:9 --aspect-ratio=4:3"
}
if ($chan == 23) {
$station_gouk = "cbeebies";
$params = "--crop=16:9 --aspect-ratio=4:3"
}
if ($chan == 24) {
$station_gouk = "cbbc";
$params = "--crop=4:3 --aspect-ratio=4:3"
}
if ($chan == 25) {
$station_gouk = "citv";
$params = "--crop=4:3 --aspect-ratio=4:3"
}
if ($chan == 26) {
$station_gouk = "kix";
$params = "--crop=4:3 --aspect-ratio=4:3"
}
if ($chan == 27) {
$station_gouk = "pop";
$params = "--crop=4:3 --aspect-ratio=4:3"
}
if ($chan == 28) {
$station_gouk = "popgirl";
$params = "--crop=4:3 --aspect-ratio=4:3"
}
if ($chan == 29) {
$station_gouk = "tinypop";
$params = "--crop=4:3 --aspect-ratio=4:3"
}
if ($chan == 30) {
$station_filmon = "31";
$params = "--crop=16:10 --aspect-ratio=16:9";
}
if ($chan == 31) {
$station_filmon = "100";
$params = "--crop=16:10 --aspect-ratio=16:9";
}
if ($chan == 32) {
$station_raw = "\"rtsp://213.128.132.107:554/events/282243.d848e617fa813c8f2c756cea8a57a4c4/euronews_en.rm\"";
$params = "--crop=16:9 --aspect-ratio=4:3"
}
if ($chan == 33) {
$station_gouk = "bbcparliament";
$params = "--crop=4:3 --aspect-ratio=4:3"
}
if ($chan == 34) {
$station_filmon = "56";
$params = "--crop=16:10 --aspect-ratio=16:9";
}
if ($chan == 35) {
$station_filmon = "39";
$params = "--crop=16:10 --aspect-ratio=16:9";
}
if ($chan == 36) {
$station_filmon = "90";
$params = "--crop=16:10 --aspect-ratio=16:9";
}
if ($chan == 37) {
$station_raw = "\"http://player.eurosport.fr/playlist.aspx?mode=live&id=6\"";
$params = "--crop=4:3 --aspect-ratio=4:3";
}
if ($chan == 38) {
$station_gouk = "chartshowtv";
$params = "--crop=4:3 --aspect-ratio=4:3"
}
if ($chan == 39) {
$station_gouk = "flava";
$params = "--crop=4:3 --aspect-ratio=4:3"
}
if ($chan == 40) {
$station_filmon = "61";
$params = "--crop=16:10 --aspect-ratio=16:9";
}
if ($chan == 41) {
$station_gouk = "nmetv";
$params = "--crop=4:3 --aspect-ratio=4:3"
}
if ($chan == 42) {
$station_filmon = "58";
$params = "--crop=16:10 --aspect-ratio=16:9";
}
if ($chan == 43) {
$station_gouk = "bliss";
$params = "--crop=4:3 --aspect-ratio=4:3"
}
if ($chan == 44) {
$station_gouk = "clublandtv";
$params = "--crop=4:3 --aspect-ratio=4:3"
}
if ($progid) {
$content = get("http://www.verytangytv.com/playerFiles/checkAuth.php?macAddr=1031600&serialNo=9511&swVersion=n/a&unitType=Windows%2095%20or%20above&epgVersion=2.11.00&epgType=live&userName=1031600&userPin=9511&userId=undefined&epgVer=2.11.00&tvRandom=35946978");
die "Couldn't get the auth code!" unless defined $content;
# if($content1 =~ m/(<split>5<split>)(.*)("<split>")/){
# $auth = "$2";
# }
#print "$content\n\n";
# if ($content =~ m/(login ok)(.*)(0)/){
# $xml = "$2";
# }
@array = split('<split>', $content);
$auth = $array[6];
# die;
$content2 = get("http://www.verytangytv.com/playerFiles/getSelection.php?type=ondemand&action=view&channelId=$chanid&programmeId=$progid&userPin=9511&langSet=0&subId=0&protocol=mms://&userId=13046&userMac=1031600&userSerial=9511&portal=5&userAuthToken=$auth&epgType=live&web&userId=13046&epgVer=2.11.00&tvRandom=66502370");
die "Couldn't get the URL!" unless defined $content2;
#print $content2;
#die;
# if($content2 =~ m/(<EPGLISTBREAK>)(.*)(<EPGLISTBREAK>)/){
# $station_raw = "$2";
# }
@array2 = split('<EPGLISTBREAK>', $content2);
$station_raw = $array2[1];
#print $station_raw;
#die;
}
$windrive = $ENV{'HOMEDRIVE'};
if (-e "$windrive\\progra~1\\videolan\\vlc\\vlc.exe") {
$vlcpath = "$windrive\\progra~1\\videolan\\vlc\\vlc.exe";
}
if (-e "$windrive\\progra~2\\videolan\\vlc\\vlc.exe") {
$vlcpath = "$windrive\\progra~2\\videolan\\vlc\\vlc.exe";
}
if (-e "$windrive\\archiv~1\\videolan\\vlc\\vlc.exe") {
$vlcpath = "$windrive\\archiv~1\\videolan\\vlc\\vlc.exe";
}
if (-e "$windrive\\archiv~2\\videolan\\vlc\\vlc.exe") {
$vlcpath = "$windrive\\archiv~2\\videolan\\vlc\\vlc.exe";
}
if (-e '/usr/bin/vlc') {
$vlcpath = "/usr/bin/vlc";
}
if (-e '/usr/local/bin/vlc') {
$vlcpath = "/usr/local/bin/vlc";
}
if (-e '/Applications/VLC.app/Contents/MacOS/VLC') {
$vlcpath = "/Applications/VLC.app/Contents/MacOS/VLC";
}
die "VLC not found" unless defined $vlcpath;
die "No URL to play!" unless defined $station_raw;
@output = `$vlcpath -v0 --quiet $params $station_raw`;
# }