diff options
author | diego <diego@b3059339-0415-0410-9bf9-f77b7e298cf2> | 2009-05-13 02:58:57 +0000 |
---|---|---|
committer | diego <diego@b3059339-0415-0410-9bf9-f77b7e298cf2> | 2009-05-13 02:58:57 +0000 |
commit | 6e9cbdc10448203e7c8b2de41447442fcc9f7bae (patch) | |
tree | 0ed465592509105fdbeab27fc12ddbb2e3590aa5 /TOOLS/w32codec_dl.pl | |
parent | eafe5b7517bbf408ae1ffc936a3abe2313c3b334 (diff) | |
download | mpv-6e9cbdc10448203e7c8b2de41447442fcc9f7bae.tar.bz2 mpv-6e9cbdc10448203e7c8b2de41447442fcc9f7bae.tar.xz |
whitespace cosmetics: Remove all trailing whitespace.
git-svn-id: svn://svn.mplayerhq.hu/mplayer/trunk@29305 b3059339-0415-0410-9bf9-f77b7e298cf2
Diffstat (limited to 'TOOLS/w32codec_dl.pl')
-rwxr-xr-x | TOOLS/w32codec_dl.pl | 16 |
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"; } |