From ee11fc461626ab64048db86c573e1bcb6e7b08ec Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 8 Dec 2004 10:36:53 +0000
Subject: [PATCH] text_extract is deprecated. Replaced by text_extract3

---
 misc/translator/text-extract.pl | 33 ---------------------------------
 1 file changed, 33 deletions(-)
 delete mode 100755 misc/translator/text-extract.pl

diff --git a/misc/translator/text-extract.pl b/misc/translator/text-extract.pl
deleted file mode 100755
index f876e78195..0000000000
--- a/misc/translator/text-extract.pl
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/perl
-use HTML::Tree;
-use Getopt::Std;
-getopt("f:");
-	my $tree = HTML::TreeBuilder->new; # empty tree
-
-	$tree->parse_file($opt_f);
-	sub give_id {
-		my $x = $_[0];
-		foreach my $c ($x->content_list) {
-			next if (ref($c) && $c->tag() eq "~comment");
-			next if (ref($c) && $c->tag() eq "script");
-			next if (ref($c) && $c->tag() eq "style");
-			if (!ref($c)) {
-				print "$c\n";
-			}
-			if (ref($c) && $c->attr('alt')) {
-				print $c->attr('alt')."\n";
-			}
-			if (ref($c) && $c->attr('title')) {
-				print $c->attr('title')."\n";
-			}
-			if (ref($c) && $c->tag() eq "input" && $c->attr('value')) {
-				print $c->attr('value')."\n";
-			}
-			if (ref($c) && $c->tag() eq 'meta') {
-				print $c->attr('content')."\n ";
-			}
-			give_id($c) if ref $c; # ignore text nodes
-		}
-	};
-	give_id($tree);
-	$tree = $tree->delete;
-- 
2.39.2