#!/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`;
# }