drakx - Mageia Installer and base platform for many utilities

	Commit message (Expand)	Author	Age	Files	Lines
*	Removed use of "parport_probe", we do not need to support kernel 2.2.x	Till Kamppeter	2003-08-25	1	-3/+2
*	Adapted to scli 0.2.12.	Till Kamppeter	2003-08-22	1	-1/+1
*	perl_checker fixes	Thierry Vignaud	2003-05-20	1	-9/+9
*	perl_checker fixes	Thierry Vignaud	2003-05-19	1	-5/+5
*	Made sure that all IP addresses of the local machine are in 'Allow	Till Kamppeter	2003-03-11	1	-0/+42
*	Fixed bug of USB printers which do not report back an IEEE-1284 ID string after	Till Kamppeter	2003-03-03	1	-1/+3
*	Read device ID string for a USB printer up to three times when it does not co...	Till Kamppeter	2003-03-02	1	-67/+80
*	- Restructured function "main()"	Till Kamppeter	2003-02-17	1	-1/+2
*	Corrected call for "tryWrite" function.	Till Kamppeter	2003-02-06	1	-1/+2
*	move whatParport() to printer::detect	Pascal Rigaux	2003-02-02	1	-0/+21
*	move whatPrinter(), whatUsbport() and whatPrinterPort() out of detect_devices...	Pascal Rigaux	2003-02-02	1	-2/+105
*	New CUPS printer sharing configuration dialog.	Till Kamppeter	2003-01-13	1	-0/+27
*	(detect): don't use net_smb_detect() and net_detect(), call	Pascal Rigaux	2003-01-07	1	-1/+1
*	remove unused variables or rename them with an underscore (eg: $o becomes $_o)	Pascal Rigaux	2002-12-04	1	-2/+2
*	perl_checker adaptations	Pascal Rigaux	2002-11-28	1	-3/+3
*	perl_checker adaptations	Pascal Rigaux	2002-11-27	1	-1/+1
*	perl_checker fixes	Thierry Vignaud	2002-11-26	1	-1/+1
*	make perl_checker happy	Pascal Rigaux	2002-11-18	1	-1/+1
*	- add/remove spaces to make perl_checker happy	Pascal Rigaux	2002-11-14	1	-8/+8
*	add/remove some spaces to make perl_checker happy	Pascal Rigaux	2002-11-12	1	-1/+1
*	printer related modules cleaning :	Thierry Vignaud	2002-11-12	1	-0/+306

package harddrake::v4l; use strict; use common; use interactive; use detect_devices; use lang; use log; use modules; # please update me on bttv update : my $default = N("Auto-detect"); # TODO: split %tuners_lst in per driver perl source files that get transformed in Storable files my %tuners_lst = ( -1 => $default, 0 => "Temic|PAL (4002 FH5)", 1 => "Philips|PAL_I (FI1246 and compatibles)", 2 => "Philips|NTSC (FI1236, FM1236 and compatibles)", 3 => "Philips|(SECAM+PAL_BG) (FI1216MF, FM1216MF, FR1216MF)", 4 => "NoTuner", 5 => "Philips|PAL_BG (FI1216 and compatibles)", 6 => "Temic|NTSC (4032 FY5)", 7 => "Temic|PAL_I (4062 FY5)", 8 => "Temic|NTSC (4036 FY5)", 9 => "Alps|HSBH1", 10 => "Alps|TSBE1", 11 => "Alps|TSBB5", 12 => "Alps|TSBE5", 13 => "Alps|TSBC5", 14 => "Temic|PAL_BG (4006FH5)", 15 => "Alps|TSCH6", 16 => "Temic|PAL_DK (4016 FY5)", 17 => "Philips|NTSC_M (MK2)", 18 => "Temic|PAL_I (4066 FY5)", 19 => "Temic|PAL* auto (4006 FN5)", 20 => "Temic|PAL_BG (4009 FR5) or PAL_I (4069 FR5)", 21 => "Temic|NTSC (4039 FR5)", 22 => "Temic|PAL/SECAM multi (4046 FM5)", 23 => "Philips|PAL_DK (FI1256 and compatibles)", 24 => "Philips|PAL/SECAM multi (FQ1216ME)", 25 => "LG|PAL_I+FM (TAPC-I001D)", 26 => "LG|PAL_I (TAPC-I701D)", 27 => "LG|NTSC+FM (TPI8NSR01F)", 28 => "LG|PAL_BG+FM (TPI8PSB01D)", 29 => "LG|PAL_BG (TPI8PSB11D)", 30 => "Temic|PAL* auto + FM (4009 FN5)", 31 => "SHARP|NTSC_JP (2U5JF5540)", 32 => "Samsung|PAL TCPM9091PD27", 33 => "MT20xx universal", 34 => "Temic|PAL_BG (4106 FH5)", 35 => "Temic|PAL_DK/SECAM_L (4012 FY5)", 36 => "Temic|NTSC (4136 FY5)", 37 => "LG|PAL (newer TAPC series)", 38 => "Philips|PAL/SECAM multi (FM1216ME)", 39 => "LG|NTSC (newer TAPC series)", 40 => "HITACHI V7-J180AT", 41 => "Philips|PAL_MK (FI1216 MK)", 42 => "Philips|1236D ATSC/NTSC daul in", 43 => "Philips|NTSC MK3 (FM1236MK3 or FM1236/F)", 44 => "Philips|4 in 1 (ATI TV Wonder Pro/Conexant)", 45 => "Microtune|4049 FM5", ); # Tweaked from Cardlist my $cards_lst = { 'bttv' => { $default => -1, N("Unknown|Generic") => 0, "M|Miro|PCTV" => 1, "H|Hauppauge|bt848" => 2, "S|STB|Hauppauge 878" => 3, "I|Intel|Create and Share PCI (bttv type 4)" => 4, "I|Intel|Smart Video Recorder III (bttv type 4)" => 4, "D|Diamond|DTV2000" => 5, "A|AVerMedia|TVPhone" => 6, "M|MATRIX-Vision|MV-Delta" => 7, "L|Lifeview|FlyVideo II (Bt848) LR26" => 8, "G|Guillemot|MAXI TV Video PCI2 LR26" => 27, "G|Genius/Kye|Video Wonder Pro II (848 or 878)" => 8, "I|IMS/IXmicro|TurboTV" => 9, "H|Hauppauge|bt878" => 10, "M|Miro|PCTV pro" => 11, "A|ADS Technologies|Channel Surfer TV (bt848)" => 12, "A|AVerMedia|TVCapture 98" => 13, "A|Aimslab|Video Highway Xtreme (VHX)" => 14, "Z|Zoltrix|TV-Max" => 15, "P|Prolink|Pixelview PlayTV (bt878)" => 16, "L|Leadtek|WinView 601" => 17, "A|AVEC|Intercapture" => 18, "L|Lifeview|FlyKit LR38 Bt848 (capture only)" => 19, "L|Lifeview|FlyVideo II EZ" => 19, "C|CEI|Raffles Card" => 20, "L|Lifeview|FlyVideo 98" => 21, "L|Lucky Star|Image World ConferenceTV LR50" => 21, "A|Askey|CPH050" => 22, "P|Phoebe Micro|Tv Master + FM" => 22, "M|Modular|Technology MM205 PCTV (bt878)" => 23, "A|Askey|CPH06X (bt878)" => 24, "G|Guillemot|Maxi TV Video 3" => 24, "A|Askey|CPH05X (bt878)" => 24, N("Unknown|CPH05X (bt878) [many vendors]") => 24, N("Unknown|CPH06X (bt878) [many vendors]") => 24, "T|Terratec|Terra TV+ Version 1.0 (Bt848)" => 25, "Vobis|TV-Boostar" => 25, "T|Terratec|TV-Boostar" => 25, "H|Hauppauge|WinCam newer (bt878)" => 26, "L|Lifeview|FlyVideo 98" => 27, "G|Guillemot|MAXI TV Video PCI2 LR50" => 27, "T|Terratec|TerraTV+" => 28, "I|Imagenation|PXC200" => 29, "L|Lifeview|FlyVideo 98 LR50" => 30, "Formac|iProTV" => 31, "Formac|iProTV I (bt848)" => 31, "I|Intel|Create and Share PCI (bttv type 32)" => 32, "I|Intel|Smart Video Recorder III (bttv type 32)" => 32, "T|Terratec|TerraTValue" => 33, "L|Leadtek|WinFast TV 2000" => 34, "L|Leadtek|WinFast VC 100" => 35, "L|Lifeview|FlyVideo 98 LR50" => 35, "C|Chronos|Video Shuttle II" => 35, "L|Lifeview|FlyVideo 98FM LR50" => 36, "T|Typhoon|TView TV/FM Tuner" => 36, "P|Prolink|PixelView PlayTV pro" => 37, "P|Prolink|PixelView PlayTV Theater" => 37, "A|Askey|CPH06X TView99" => 38, "P|Pinnacle|PCTV Studio/Rave" => 39, "S|STB|STB2 TV PCI FM, P/N 6000704" => 40, "A|AVerMedia|TVPhone 98" => 41, "P|ProVideo|PV951" => 42, "L|Little|OnAir TV" => 43, "S|Sigma|TVII-FM" => 44, "M|MATRIX-Vision|MV-Delta 2" => 45, "Z|Zoltrix|Genie TV/FM" => 46, "T|Terratec|TV/Radio+" => 47, "A|Askey|CPH03x" => 48, "D|Dynalink|Magic TView" => 48, "I|IODATA|GV-BCTV3/PCI" => 49, "P|Prolink|PixelView PlayTV PAK" => 50, "L|Lenco|MXTV-9578 CP" => 50, "P|Prolink|PV-BT878P+4E" => 50, "L|Lenco|MXTV-9578CP (Bt878)" => 50, "E|Eagle|Wireless Capricorn2 (bt878A)" => 51, "P|Pinnacle|PCTV Studio Pro" => 52, "T|Typhoon|KNC1 TV Station RDS" => 53, "T|Typhoon|TV Tuner RDS (black package)" => 53, "T|Typhoon|TView RDS + FM Stereo" => 53, "L|Lifeview|FlyVideo 2000" => 54, "L|Lifeview|FlyVideo A2" => 54, "L|Lifetec|LT 9415 TV [LR90]" => 54, "A|Askey|CPH031" => 55, "L|Lenco|MXR-9571 (Bt848)" => 55, "Bestbuy|Easy TV" => 55, "L|Lifeview|FlyVideo 98FM LR50" => 56, "G|GrandTec|Grand Video Capture (Bt848)" => 57, "A|Askey|CPH060" => 58, "P|Phoebe Micro|TV Master Only (No FM)" => 58, "A|Askey|CPH03x TV Capturer" => 59, "M|Modular|Technology MM100 PCTV" => 60, "A|AG|Electronics GMV1" => 61, "A|Askey|CPH061" => 62, "Bestbuy|Easy TV (bt878)" => 62, "L|Lifetec|LT9306" => 62, "M|Medion|MD9306" => 62, "A|ATI|TV-Wonder" => 63, "A|ATI|TV-Wonder VE" => 64, "L|Lifeview|FlyVideo 2000S LR90" => 65, "T|Terratec|TValueRadio" => 66, "I|IODATA|GV-BCTV4/PCI" => 67, "3Dfx|VoodooTV FM (Euro)" => 68, "3Dfx|VoodooTV 200 (USA)" => 68, "A|Active|Imaging AIMMS" => 69, "P|Prolink|Pixelview PV-BT878P+ (Rev.4C)" => 70, "L|Lifeview|FlyVideo 98EZ (capture only) LR51" => 71, # "G|Genius/Kye|Video Wonder/Genius Internet Video Kit" => 71, "P|Prolink|Pixelview PV-BT878P+ (Rev.9B) (PlayTV Pro rev.9B FM+NICAM)" => 72, "T|Typhoon|TV Tuner Pal BG (blue package)" => 72, "S|Sensoray|311" => 73, "RemoteVision|MX (RV605)" => 74, "P|Powercolor|MTV878" => 75, "P|Powercolor|MTV878R" => 75, "P|Powercolor|MTV878F" => 75, "C|Canopus|WinDVR PCI (COMPAQ Presario 3524JP, 5112JP)" => 76, "G|GrandTec|Multi Capture Card (Bt878)" => 77, "Jetway|TV/Capture JW-TV878-FBK" => 78, "Kworld|KW-TV878RF" => 78, "D|DSP Design|TCVIDEO" => 79, "H|Hauppauge|WinTV PVR" => 80, "G|GV-BCTV5/PCI" => 81, "O|Osprey|100/150 (878)" => 82, "O|Osprey|100/150 (848)" => 83, "O|Osprey|101 (848)" => 84, "O|Osprey|101/151" => 85, "O|Osprey|101/151 w/ svid" => 86, "O|Osprey|200/201/250/251" => 87, "O|Osprey|200/250" => 88, "O|Osprey|210/220" => 89, "O|Osprey|500" => 90, "O|Osprey|540" => 91, "O|Osprey|2000" => 92, "I|IDS|Eagle" => 93, "P|Pinnacle|PCTV Sat" => 94, "Formac|ProTV II (bt878)" => 95, "M|MachTV" => 96, "E|Euresys|Picolo" => 97, "P|ProVideo|PV150" => 98, "A|AD-TVK503" => 99, "H|Hercules|Smart TV Stereo" => 100, "P|Pace|TV & Radio Card" => 101, "I|IVC-200" => 102, "G|Grand X-Guard / Trust 814PCI" => 103, "N|Nebula Electronics|DigiTV" => 104, "P|ProVideo|PV143" => 105, "P|PHYTEC|VD-009-X1 MiniDIN (bt878)" => 106, "P|PHYTEC|VD-009-X1 Combi (bt878)" => 107, "P|PHYTEC|VD-009 MiniDIN (bt878)" => 108, "P|PHYTEC|VD-009 Combi (bt878)" => 109, "I|IVC-100" => 110, "I|IVC-120G" => 111, "P|pcHDTV HD-2000 TV" => 112, "T|Twinhan DST + clones" => 113, "L|Leadtek|Winfast VC100" => 114, "T|Teppro|TEV-560/InterVision IV-560" => 115, "S|SIMUS|GVC1100" => 116, "N|NGS|NGSTV+" => 117, "L|LMLBT4" => 118, "T|Tekram|M205 PRO" => 119, "C|Conceptronic|CONTVFMi" => 120, }, 'saa7134' => { N("Unknown|Generic") => 0, "Proteus|Pro [philips reference design]" => 1, "LifeView|FlyVIDEO3000" => 2, "LifeView|FlyVIDEO2000" => 3, "EMPRESS" => 4, "SKNet|Monster TV" => 5, "Tevion|MD 9717" => 6, "KNC|One TV-Station RDS" => 7, "Terratec|Cinergy 400 TV" => 8, "Medion|5044" => 9, "Kworld/KuroutoShikou SAA7130-TVPCI" => 10, "Terratec|Cinergy 600 TV" => 11, "Medion|7134" => 12, "ELSA|EX-VISION 300TV" => 13, "ELSA|EX-VISION 500TV" => 14, "ASUS|TV-FM 7134" => 15, "AOPEN|VA1000 POWER" => 16, "10MOONS PCI TV CAPTURE CARD" => 17, "BMK|MPEX No Tuner" => 18, "Compro VideoMate TV" => 19, "Matrox|CronosPlus" => 20, "Medion|2819" => 21, "BMK|MPEX Tuner" => 22, "Medion|2819 / AverMedia M156" => 23, "AVerMedia|M156" => 23, "BMK|MPEX Tuner alternative" => 24, "ASUS|TV-FM 7133" => 25, "Pinnacle|PCTV Stereo (saa7134)" => 26, "Manli|MuchTV M-TV002" => 27, "Manli|MuchTV M-TV001" => 28, "Nagase Sangyo TransGear 3000TV" => 29, "Elitegroup|ECS TVP3XP FM1216 Tuner Card(PAL-BG,FM)" => 30, "Elitegroup|ECS TVP3XP FM1236 Tuner Card (NTSC,FM)" => 31, "AVACS|SmartTV" => 32, "AVerMedia|DVD EZMaker" => 33, } }; my %pll_lst = ( -1 => N("Default"), 0 => "do not use pll", 1 => "28 Mhz Crystal (X)", 2 => "35 Mhz Crystal" ); sub config { my ($in, $modules_conf, $driver) = @_; my $min_gbuffers = 2; my $max_gbuffers = 32; my %conf = (gbuffers => 4, card => $default, tuner => -1, radio => 0, pll => -1); my %cards_list = %{$cards_lst->{$driver}}; my %rvs_cards_list = reverse %cards_list; # get the existing options (if there are any) my $current = $modules_conf->get_options($driver); foreach (split(/\s+/,$current)) { $conf{$1} = $2 if /^(gbuffers|tuner|radio|pll)=(.+)/; $conf{$1} = $rvs_cards_list{$2} if /^(card)=(.+)/; } #Sanity checks on defaults $conf{gbuffers} = max($min_gbuffers, $conf{gbuffers}); $conf{gbuffers} = min($max_gbuffers, $conf{gbuffers}); $conf{card} = $default if !defined $cards_list{$conf{card}}; $conf{tuner} = -1 if !defined $tuners_lst{$conf{tuner}}; $conf{pll} = -1 if !defined $pll_lst{$conf{tuner}}; $conf{radio} = 0 if $conf{radio} !~ /(0|1)/; if ($in->ask_from("BTTV configuration", N("For most modern TV cards, the bttv module of the GNU/Linux kernel just auto-detect the rights parameters. If your card is misdetected, you can force the right tuner and card types here. Just select your tv card parameters if needed."), [ { label => N("Card model:"), val => \$conf{card}, list => [ keys %cards_list ], type => 'combo', default => -1, sort =>1, separator => '|' }, { label => N("Tuner type:"), val => \$conf{tuner}, list => [keys %tuners_lst], format => sub { $tuners_lst{$_[0]} }, sort => 1, separator => '|' }, { label => N("Number of capture buffers:"), val => \$conf{gbuffers}, min => $min_gbuffers, max => $max_gbuffers, sort => 1, default => 0, type => 'range', advanced => 1, help => N("number of capture buffers for mmap'ed capture") }, if_($driver eq 'bttv', { label => N("PLL setting:"), val => \$conf{pll}, list => [keys %pll_lst], format => sub { $pll_lst{$_[0]} }, sort => 1, default => 0, advanced =>1 }, { label => N("Radio support:"), val => \$conf{radio}, type => "bool", text => N("enable radio support") }), ] )) { $conf{card} = $cards_list{$conf{card}}; my $options = 'radio=' . ($conf{radio} ? 1 : 0) . ' ' . join(' ', map { if_($conf{$_} ne -1, "$_=$conf{$_}") } qw(card pll tuner gbuffers)); if ($options) { log::l(qq([harddrake::v4l] set "$options" options for $driver)); # log::explanations("modified file /etc/modules.conf ($options)") if $::isStandalone; $modules_conf->set_options($driver, $options); } return 1; } return 0; } 1;