[mirror_ubuntu-zesty-kernel.git] / Documentation / dvb / get_dvb_firmware

#!/usr/bin/perl
#     DVB firmware extractor
#
#     (c) 2004 Andrew de Quincey
#
#     This program is free software; you can redistribute it and/or modify
#       it under the terms of the GNU General Public License as published by
#       the Free Software Foundation; either version 2 of the License, or
#       (at your option) any later version.
#
#     This program is distributed in the hope that it will be useful,
#       but WITHOUT ANY WARRANTY; without even the implied warranty of
#       MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#
#     GNU General Public License for more details.
#
#     You should have received a copy of the GNU General Public License
#       along with this program; if not, write to the Free Software
#       Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

use File::Temp qw/ tempdir /;
use IO::Handle;

@components = ( "sp8870", "sp887x", "tda10045", "tda10046",
		"tda10046lifeview", "av7110", "dec2000t", "dec2540t",
		"dec3000s", "vp7041", "dibusb", "nxt2002", "nxt2004",
		"or51211", "or51132_qam", "or51132_vsb", "bluebird");

# Check args
syntax() if (scalar(@ARGV) != 1);
$cid = $ARGV[0];

# Do it!
for ($i=0; $i < scalar(@components); $i++) {
    if ($cid eq $components[$i]) {
	$outfile = eval($cid);
	die $@ if $@;
Commit	Line	Data
1da177e4 LT	1	#!/usr/bin/perl
	2	# DVB firmware extractor
	3	#
	4	# (c) 2004 Andrew de Quincey
	5	#
	6	# This program is free software; you can redistribute it and/or modify
	7	# it under the terms of the GNU General Public License as published by
	8	# the Free Software Foundation; either version 2 of the License, or
	9	# (at your option) any later version.
	10	#
	11	# This program is distributed in the hope that it will be useful,
	12	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	#
	15	# GNU General Public License for more details.
	16	#
	17	# You should have received a copy of the GNU General Public License
	18	# along with this program; if not, write to the Free Software
	19	# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
	20
	21	use File::Temp qw/ tempdir /;
	22	use IO::Handle;
	23
3d8466ec GG	24	@components = ( "sp8870", "sp887x", "tda10045", "tda10046",
	25	"tda10046lifeview", "av7110", "dec2000t", "dec2540t",
	26	"dec3000s", "vp7041", "dibusb", "nxt2002", "nxt2004",
d8e6acf2	27	"or51211", "or51132_qam", "or51132_vsb", "bluebird");
1da177e4 LT	28
	29	# Check args
	30	syntax() if (scalar(@ARGV) != 1);
	31	$cid = $ARGV[0];
	32
	33	# Do it!
	34	for ($i=0; $i < scalar(@components); $i++) {
	35	if ($cid eq $components[$i]) {
	36	$outfile = eval($cid);
	37	die $@ if $@;