rendered paste bodymythtv@woop:~$ cat streamlive.pl
#!/usr/bin/perl
$CHANNEL = $ARGV[0] || die "I need a channel shmuck!";
$TVBITRATE = 5000000;
$TVBITRATEMAX = 500000;
%FREQ = (
"1", 73250,
"2", 55250,
"3", 61250,
"4", 67250,
"5", 77250,
"6", 83250,
"7", 175250,
"8", 181250,
"9", 187250,
"10", 193250,
"11", 199250,
"12", 205250,
"13", 211250,
"14", 121250,
"15", 127250,
"16", 133250,
"17", 139250,
"18", 145250,
"19", 151250,
"20", 157250,
"21", 163250,
"22", 169250,
"23", 217250,
"24", 223250,
"25", 229250,
"26", 235250,
"27", 241250,
"28", 247250,
"29", 253250,
"30", 259250,
"31", 265250,
"32", 271250,
"33", 277250,
"34", 283250,
"35", 289250,
"36", 295250,
"37", 301250,
"38", 307250,
"39", 313250,
"40", 319250,
"41", 325250,
"42", 331250,
"43", 337250,
"44", 343250,
"45", 349250,
"46", 355250,
"47", 361250,
"48", 367250,
"49", 373250,
"50", 379250,
"51", 385250,
"52", 391250,
"53", 397250,
"54", 403250,
"55", 409250,
"56", 415250,
"57", 421250,
"58", 427250,
"59", 433250,
"60", 439250,
"61", 445250,
"62", 451250,
"63", 457250,
"64", 463250,
"65", 469250,
"66", 475250,
"67", 481250,
"68", 487250,
"69", 493250,
"70", 499250,
"71", 505250,
"72", 511250,
"73", 517250,
"74", 523250,
"75", 529250,
"76", 535250,
"77", 541250,
"78", 547250,
"79", 553250,
"80", 559250,
"81", 565250,
"82", 571250,
"83", 577250,
"84", 583250,
"85", 589250,
"86", 595250,
"87", 601250,
"88", 607250,
"89", 613250,
"90", 619250,
"91", 625250,
"92", 631250,
"93", 637250,
"94", 643250,
"95", 91250,
"96", 97250,
"97", 103250,
"98", 109250,
"99", 115250,
"100", 649250,
"101", 655250,
"102", 661250,
"103", 667250,
"104", 673250,
"105", 679250,
"106", 685250,
"107", 691250,
"108", 697250,
"109", 703250,
"110", 709250,
"111", 715250,
"112", 721250,
"113", 727250,
"114", 733250,
"115", 739250,
"116", 745250,
"117", 751250,
"118", 757250,
"119", 763250,
"120", 769250,
"121", 775250,
"122", 781250,
"123", 787250,
"124", 793250,
"125", 799250,
"0", 0
);
$COMMAND = "/usr/local/bin/vlc -vvv --color pvr:/dev/video0:norm=ntsc:size=720x4
80:frequency=" . $FREQ{$CHANNEL} . ":bitrate=$TVBITRATE:maxbitrate=$TVBITRATEMAX
-I http --http-host=:8002 --sout-transcode-fps=25 \":sout=#transcode{vcodec=WM
V2,acodec=mp3,vb=256,ab=64,scale=.5}:std{access=http{user=,pwd=,mime=video/x-ms-
asf},mux=asf,url=:8001}\" ";
print "streamlive.pl called for Channel :",$CHANNEL,":\n";
print $COMMAND,"\n";