From 6dc124962527556512b6b18fbf23f9b6af9f331c Mon Sep 17 00:00:00 2001
From: wm4 <wm4@mplayer2.org>
Date: Sat, 28 Jul 2012 18:00:33 +0200
Subject: TOOLS: remove useless crap

Most of the scripts in TOOLS seem entirely useless. Remove them.
There were about 3 types of scripts:
- apparent developer tools (like file format dumpers, benchmarks)
  => I doubt any mplayer developer still alive even uses these
- helpers for encoding or ripping stuff
  => mencoder is gone, at least from this version of mplayer
- helpers meant for users (launching mplayer in weird ways, etc.)
  => just no, it will cause you more pain than gain
So no, there is nothing useful.

Under the scripts not deleted, these are needed for building mplayer:
  file2string.py
  matroska.py
  vdpau_functions.py
These might have _some_ use (but still questionable):
  binary_codecs.sh
  checktree.sh
---
 TOOLS/w32codec_dl.pl | 168 ---------------------------------------------------
 1 file changed, 168 deletions(-)
 delete mode 100755 TOOLS/w32codec_dl.pl

(limited to 'TOOLS/w32codec_dl.pl')

diff --git a/TOOLS/w32codec_dl.pl b/TOOLS/w32codec_dl.pl
deleted file mode 100755
index c4a16b6b58..0000000000
--- a/TOOLS/w32codec_dl.pl
+++ /dev/null
@@ -1,168 +0,0 @@
-#!/usr/bin/perl
-
-## usage: w32codec_dl.pl (codec.conf location)
-
-# this script will use MS's codec dl interface as used by MS Media Player
-# to attempt to locate the codecs listed in codecs.conf. It will download
-# them to a directory "codecs/" below the current dir.
-# you will need the libwww-perl stuff and the utility "cabextract"
-# which may be found at http://www.kyz.uklinux.net/cabextract.php3
-
-# By Tom Lees, 2002. I hereby place this script into the public domain.
-
-#use LWP::Debug qw(+);
-use LWP::UserAgent;
-
-$ua = LWP::UserAgent->new;
-$ua->agent ("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
-
-# Parse the etc/codecs.conf file
-my $cconf = $ARGV[0];
-open CCONF, "<$cconf";
-
-my $codec = "(none)";
-my $mscodec = 0;
-
-my $cc, @ccl;
-
-mkdir "codecs";
-chdir "codecs";
-
-CC: while (<CCONF>)
-{
-	next CC if (m/^[ \t]*\;/);
-	s/\;.*//g;
-	s/#.*//g;
-
-	if (m/^videocodec (.*)/)
-	{
-		$codec = $1;
-	}
-	elsif (m/^[ \t]+driver (.*)/)
-	{
-		if ($1 eq "dshow" || $1 eq "vfw")
-		{
-			$mscodec = 1;
-		}
-		else
-		{
-			$mscodec = 0;
-		}
-	}
-	elsif (m/^[ \t]+fourcc (.*)/ && $mscodec == 1)
-	{
-		$cclist = $1;
-		chomp $cclist;
-		#@ccl = ();
-		do
-		{
-			if ($cclist =~ m/\"(....)\"[, ]*(.*)/)
-			{
-				$cc = $1;
-				$cclist = $2;
-			}
-			elsif ($cclist =~ m/[, ]*(....)[, ]*(.*)/)
-			{
-				$cc = $1;
-				$cclist = $2;
-			}
-			else
-			{
-				$cc = $cclist;
-				$cclist = "";
-			}
-			if (!($cc =~ m/^[ \t]+/))
-			{
-				push @ccl, ($cc);
-			}
-		} while (length ($cclist) > 0);
-	}
-}
-close CCONF;
-
-# Find the codecs
-open CODEC_CABS, ">codecs.locations.info";
-%fcc_try = ();
-while ($#ccl > 0)
-{
-	$cc = pop (@ccl);
-	if (!$fcc_try{"$cc"})
-	{
-		$fcc_try{"$cc"} = 1;
-		if (!find_codec ($cc))
-		{
-			print "$cc found\n";
-		}
-		else
-		{
-			print "MS didn't find $cc\n";
-		}
-	}
-}
-close CODEC_CABS;
-
-%got_codecs = ();
-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;
-	} else {
-		# Codec location
-		if ($res->code == 302)
-		{
-			my $loc = $res->headers->header ("Location");
-			if (!$got_codecs{"$loc"})
-			{
-				print CODEC_CABS "$loc\n";
-				$got_codecs{"$loc"} = 1;
-				get_codec ($loc);
-			}
-#			else
-#			{
-#				print "Already have $loc\n";
-#			}
-			return 0;
-		}
-		else
-		{
-#			print "Lookup failed (Microsoft probably doesn't know this codec)\n";
-			return 1;
-		}
-	}
-}
-
-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";
-	}
-	else
-	{
-		print "No such file!\n";
-	}
-}
-- 
cgit v1.2.3