summaryrefslogtreecommitdiffstats
path: root/TOOLS/w32codec_dl.pl
diff options
context:
space:
mode:
Diffstat (limited to 'TOOLS/w32codec_dl.pl')
-rwxr-xr-xTOOLS/w32codec_dl.pl16
1 files changed, 8 insertions, 8 deletions
diff --git a/TOOLS/w32codec_dl.pl b/TOOLS/w32codec_dl.pl
index 2dfe46df23..41f4f9feca 100755
--- a/TOOLS/w32codec_dl.pl
+++ b/TOOLS/w32codec_dl.pl
@@ -33,7 +33,7 @@ CC: while (<CCONF>)
next CC if (m/^[ \t]*\;/);
s/\;.*//g;
s/#.*//g;
-
+
if (m/^videocodec (.*)/)
{
$codec = $1;
@@ -105,17 +105,17 @@ close CODEC_CABS;
sub find_codec
{
my ($fourcc) = @_;
-
+
my $guid = sprintf ("%08X", unpack ("V", $fourcc))."-0000-0010-8000-00AA00389B71";
-
+
my $req = HTTP::Request->new (POST => "http://activex.microsoft.com/objects/ocget.dll");
$req->header ('Accept', '*/*');
$req->content_type ('application/x-www-form-urlencoded');
$req->content ("CLSID=%7B${guid}%7D\n");
#$req->content ('CLSID={'.${guid}.'}');
-
+
my $res = $ua->request ($req);
-
+
if ($res->is_success) {
print "Lookup returned success... weird!\n";
return 1;
@@ -147,17 +147,17 @@ sub find_codec
sub get_codec
{
my ($url) = @_;
-
+
my $req = HTTP::Request->new (GET => $url);
$req->header ("Accept", "*/*");
my $res = $ua->request ($req);
-
+
if ($res->is_success)
{
open TMP, ">tmp.cab" or die "Unable to open tmp.cab";
print TMP $res->content;
close TMP;
-
+
system "cabextract tmp.cab";
unlink "tmp.cab";
}