linux-imx

#!/usr/bin/env 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", "vp7049", "dibusb", "nxt2002", "nxt2004",

        "or51211", "or51132_qam", "or51132_vsb", "bluebird",

        "opera1", "cx231xx", "cx18", "cx23885", "pvrusb2", "mpc718",

        "af9015", "ngene", "az6027", "lme2510_lg", "lme2510c_s7395",

        "lme2510c_s7395_old", "drxk", "drxk_terratec_h5",

        "drxk_hauppauge_hvr930c", "tda10071", "it9135", "drxk_pctv",

        "drxk_terratec_htc_stick", "sms1xxx_hcw", "si2165");

​

# 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 $@;

    print STDERR <<EOF;

Firmware(s) $outfile extracted successfully.

Now copy it(them) to either /usr/lib/hotplug/firmware or /lib/firmware

(depending on configuration of firmware hotplug).

EOF

    exit(0);

    }

}

​

# If we get here, it wasn't found

print STDERR "Unknown component \"$cid\"\n";

syntax();

​

​

​

​

# ---------------------------------------------------------------

# Firmware-specific extraction subroutines

​

sub sp8870 {

    my $sourcefile = "tt_Premium_217g.zip";

    my $url = "http://www.softwarepatch.pl/9999ccd06a4813cb827dbb0005071c71/$sourcefile";

    my $hash = "53970ec17a538945a6d8cb608a7b3899";

    my $outfile = "dvb-fe-sp8870.fw";

    my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);

​

    checkstandard();

​

    wgetfile($sourcefile, $url);

    unzip($sourcefile, $tmpdir);

    verify("$tmpdir/software/OEM/HE/App/boot/SC_MAIN.MC", $hash);

    copy("$tmpdir/software/OEM/HE/App/boot/SC_MAIN.MC", $outfile);

​

    $outfile;

}

​

sub sp887x {

    my $sourcefile = "Dvbt1.3.57.6.zip";

    my $url = "http://www.avermedia.com/software/$sourcefile";

    my $cabfile = "DVBT Net  Ver1.3.57.6/disk1/data1.cab";

    my $hash = "237938d53a7f834c05c42b894ca68ac3";

    my $outfile = "dvb-fe-sp887x.fw";

    my $tmpdir = tempdir(DIR => "/tmp", CLEANUP => 1);

​

    checkstandard();

    checkunshield();

​

    wgetfile($sourcefile, $url);

    unzip($sourcefile, $tmpdir);

    unshield("$tmpdir/$cabfile", $tmpdir);