Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Britanski TV program

7 views
Skip to first unread message

Davorin Vlahovic

unread,
Nov 27, 2009, 8:02:51 AM11/27/09
to


#!/usr/bin/perl

# Britsh TV

use LWP::Simple qw(!head);
use CGI qw(:standard);

while(1) {

undef($station_filmon);

undef($station_gouk);
undef($station_raw);
system $^O eq 'MSWin32' ? 'cls' : 'clear';


print "1. BBC One 23. CBeebies\n";
print "2. BBC Two 24. CBBC\n";
print "3. ITV 1 25. CITV\n";
print "4. 4 26. Kix\n";
print "5. Five 27. Pop\n";
print "6. BBC Three 28. Pop Girl\n";
print "7. BBC Four 29. Tiny Pop\n";
print "8. ITV 2 30. BBC News\n";
print "9. ITV 3 31. Sky News\n";
print "10. ITV 4 32. Euronews\n";
print "11. E4 33. BBC Parliament\n";
print "12. More4 34. BBC Sport\n";
print "13. Fiver 35. Eurosport\n";
print "14. Five USA 36. Eurosport 2\n";
print "15. Zone Horror 37. Eurosport News\n";
print "16. Film4 38. Chart Show\n";
print "17. True Movies 39. Flava\n";
print "18. True Movies 2 40. Scuzz\n";
print "19. Movies4Men 41. NME TV\n";
print "20. Movies4Men 2 42. Flaunt\n";
print "21. Fashion TV 43. Bliss\n";
print "22. QVC 44. Clubland TV\n\n";


print "Which channel would you like to watch? ";
$chan = <>;


if ($chan == 1) {
$station_filmon = "35";
$params = "--crop=16:10 --aspect-ratio=16:9";
}

if ($chan == 2) {
$station_filmon = "55";
$params = "--crop=16:10 --aspect-ratio=16:9";
}

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 ($station_filmon) {
$content = get("http://www.filmon.com/tv/?u=hdi_p&p=Uio43-Iud345-&a=hdi_api_get_channel_info&id=$station_filmon");
die "Couldn't get the URL!" unless defined $content;


if($content =~ m/(CDATA)(.*)(]]><)/){

$station_raw = substr $2, 1;

}
}

if ($station_gouk) {
$content = get("http://admin.gdbtv.com/includes/playStreamClient.php?clientId=653");
die "Couldn't get the URL!" unless defined $content;


if($content =~ m/(http:)(.*)(bbc1)(.*)(")/){
$station_raw = "http:$2$station_gouk$4";

}
}

$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 '/Applications/VLC.app/Contents/MacOS/VLC') {
$vlcpath = "/Applications/VLC.app/Contents/MacOS/VLC";
}
die "VLC not found" unless defined $vlcpath;

die "Unknown failure" unless defined $station_raw;
@output = `$vlcpath -v0 --quiet $params $station_raw`;
}

--
Reality is why I can never have nice things.

Aleksandar Ivanisevic

unread,
Nov 27, 2009, 9:34:49 AM11/27/09
to
Davorin Vlahovic <nr...@ylf.krs.ref.rh> writes:

> #!/usr/bin/perl
>
> # Britsh TV

jos da si probao dal radi, di bi ti kraj bio.


[...]

--
Ivanisevicu, pokusaj se za promjenu drzati teme i replicirati na ono o
cemu sugovornik pise. Osim sto je tvoje pracenje "koji me vrag zapravo
muci" off-topic na Linux grupi, radi se i o zabadanju njuske u moje
privatne stvari. Vec si pokazao nedostatak dobrog odgoja no ovo granici
sa sociopatijom. -- Mladen Gogala, hr.comp.os.linux

Davorin Vlahovic

unread,
Nov 27, 2009, 10:08:51 AM11/27/09
to
[Fri, 27 Nov 2009 15:34:49 +0100] Aleksandar Ivanisevic je napisao/la:
> Davorin Vlahovic <nr...@ylf.krs.ref.rh> writes:
>
>> #!/usr/bin/perl
>>
>> # Britsh TV
>
> jos da si probao dal radi, di bi ti kraj bio.
>

Radilo je kada sam poslao post... valjda su zablokirali sve.

dr feelgood

unread,
Nov 27, 2009, 10:38:14 AM11/27/09
to
Davorin Vlahovic wrote:

> [Fri, 27 Nov 2009 15:34:49 +0100] Aleksandar Ivanisevic je napisao/la:
>> Davorin Vlahovic <nr...@ylf.krs.ref.rh> writes:
>>
>>> #!/usr/bin/perl
>>>
>>> # Britsh TV
>> jos da si probao dal radi, di bi ti kraj bio.
>>
>
> Radilo je kada sam poslao post... valjda su zablokirali sve.
>
>

www.myp2pforum.eu/live-tv/41045-british-tv.html

Vedran Furač

unread,
Nov 27, 2009, 10:53:35 AM11/27/09
to
dr feelgood wrote:

% /tmp/British\ TV

IO object version 1.25 does not match bootstrap parameter 1.23_01 at
/usr/lib/perl/5.10/DynaLoader.pm line 219.
Compilation failed in require at /usr/lib/perl/5.10/IO/Handle.pm line 9.
BEGIN failed--compilation aborted at /usr/lib/perl/5.10/IO/Handle.pm line 9.
Compilation failed in require at /usr/lib/perl/5.10/IO/Seekable.pm line 9.
BEGIN failed--compilation aborted at /usr/lib/perl/5.10/IO/Seekable.pm
line 9.
Compilation failed in require at /usr/lib/perl/5.10/IO/File.pm line 11.
BEGIN failed--compilation aborted at /usr/lib/perl/5.10/IO/File.pm line 11.
Compilation failed in require at -e line 352.


Šteta što ne znam perl.


--
http://vedranf.net | a8e7a7783ca0d460fee090cc584adc12

ace

unread,
Nov 27, 2009, 12:00:03 PM11/27/09
to
Vedran Furaďż˝ wrote:

> Compilation failed in require at /usr/lib/perl/5.10/IO/File.pm line 11.
> BEGIN failed--compilation aborted at /usr/lib/perl/5.10/IO/File.pm line 11.
> Compilation failed in require at -e line 352.
>
>

> �teta �to ne znam perl.

Probaj obicnu verziju a ne kompajliranu.

Vedran Furač

unread,
Nov 27, 2009, 2:34:05 PM11/27/09
to
ace wrote:

> Vedran Furač wrote:
>
>> Compilation failed in require at /usr/lib/perl/5.10/IO/File.pm line 11.
>> BEGIN failed--compilation aborted at /usr/lib/perl/5.10/IO/File.pm line 11.
>> Compilation failed in require at -e line 352.
>>
>>

>> Šteta što ne znam perl.


>
> Probaj obicnu verziju a ne kompajliranu.

VLC errors:

Your input can't be opened:
VLC is unable to open the MRL
'mms://195.90.118.11:80/bbc4_1?TID=bc635cded22047819c05a4955d7f88ad&MSWMExt=.asf'.
Check the log for details.

VLC messages:

access_mms error: no data received
access_mms error: no data received
access_mms error: no data received
access_mms error: no data received
access_mms error: no data received
access_mms error: no data received
access_mms error: no data received
access_mms error: no data received
access_mms error: cannot connect to server
access_mms error: cannot read data 2
access_mms error: error: HTTP/1.0 401 Unauthorized
access_mms error: cannot start stream
main error: open of
`mms://195.90.118.11:80/bbc4_1?TID=bc635cded22047819c05a4955d7f88ad&MSWMExt=.asf'
failed: (null)


--
http://vedranf.net | a8e7a7783ca0d460fee090cc584adc12

Davorin Vlahovic

unread,
Nov 27, 2009, 11:14:33 PM11/27/09
to
[Fri, 27 Nov 2009 20:34:05 +0100] Vedran Furač je napisao/la:
> ace wrote:
>> Vedran Furač wrote:
>>> Compilation failed in require at /usr/lib/perl/5.10/IO/File.pm line 11.
>>> BEGIN failed--compilation aborted at /usr/lib/perl/5.10/IO/File.pm line 11.
>>> Compilation failed in require at -e line 352.
<...>

> VLC messages:
>
> access_mms error: no data received
> access_mms error: no data received
> access_mms error: no data received
> access_mms error: no data received
> access_mms error: no data received
> access_mms error: no data received
> access_mms error: no data received
> access_mms error: no data received
> access_mms error: cannot connect to server
> access_mms error: cannot read data 2
> access_mms error: error: HTTP/1.0 401 Unauthorized
> access_mms error: cannot start stream
> main error: open of
> `mms://195.90.118.11:80/bbc4_1?TID=bc635cded22047819c05a4955d7f88ad&MSWMExt=.asf'
> failed: (null)


Pa rekao sam da su ukinuli pristup. Program sam za sebe radi ali nema vise
onog drugog dijela na koji se zakvaci.

Vedran Furač

unread,
Nov 28, 2009, 7:04:31 AM11/28/09
to
Davorin Vlahovic wrote:

Jasno, nakon što si postao, nepregledna masa s hcola navalila je na
server pa su morali ograničiti pristup.


--
http://vedranf.net | a8e7a7783ca0d460fee090cc584adc12

Davorin Vlahovic

unread,
Nov 28, 2009, 8:18:08 AM11/28/09
to
[Sat, 28 Nov 2009 13:04:31 +0100] Vedran Furač je napisao/la:
> Davorin Vlahovic wrote:
>
>> [Fri, 27 Nov 2009 20:34:05 +0100] Vedran Furač je napisao/la:
>>> main error: open of
>>> `mms://195.90.118.11:80/bbc4_1?TID=bc635cded22047819c05a4955d7f88ad&MSWMExt=.asf'
>>> failed: (null)
>>
>>
>> Pa rekao sam da su ukinuli pristup. Program sam za sebe radi ali nema vise
>> onog drugog dijela na koji se zakvaci.
>
> Jasno, nakon što si postao, nepregledna masa s hcola navalila je na
> server pa su morali ograničiti pristup.


Zapravo, program sam nasao na redditu gdje ipak ima vise ljudi nego na
hcol-u ;)

Vedran Furač

unread,
Nov 28, 2009, 8:46:48 AM11/28/09
to
Davorin Vlahovic wrote:

Ahaaaaaaaaa...

--
http://vedranf.net | a8e7a7783ca0d460fee090cc584adc12

0 new messages