|
@@ -26,7 +26,7 @@ use IO::Handle;
|
|
|
"dec3000s", "vp7041", "dibusb", "nxt2002", "nxt2004",
|
|
|
"or51211", "or51132_qam", "or51132_vsb", "bluebird",
|
|
|
"opera1", "cx231xx", "cx18", "cx23885", "pvrusb2", "mpc718",
|
|
|
- "af9015", "ngene");
|
|
|
+ "af9015", "ngene", "az6027");
|
|
|
|
|
|
# Check args
|
|
|
syntax() if (scalar(@ARGV) != 1);
|
|
@@ -567,6 +567,23 @@ sub ngene {
|
|
|
"$file1, $file2";
|
|
|
}
|
|
|
|
|
|
+sub az6027{
|
|
|
+ my $file = "AZ6027_Linux_Driver.tar.gz";
|
|
|
+ my $url = "http://linux.terratec.de/files/$file";
|
|
|
+ my $firmware = "dvb-usb-az6027-03.fw";
|
|
|
+
|
|
|
+ wgetfile($file, $url);
|
|
|
+
|
|
|
+ #untar
|
|
|
+ if( system("tar xzvf $file $firmware")){
|
|
|
+ die "failed to untar firmware";
|
|
|
+ }
|
|
|
+ if( system("rm $file")){
|
|
|
+ die ("unable to remove unnecessary files");
|
|
|
+ }
|
|
|
+
|
|
|
+ $firmware;
|
|
|
+}
|
|
|
# ---------------------------------------------------------------
|
|
|
# Utilities
|
|
|
|