1 files changed, 0 insertions, 83 deletions
diff --git a/kdeprint/descriptions/readppd b/kdeprint/descriptions/readppd
deleted file mode 100755
index 2c7621a36..000000000
--- a/kdeprint/descriptions/readppd
+++ /dev/null
@@ -1,83 +0,0 @@
-#! /usr/bin/perl
-
-$inui = 0;
-$tag = "";
-$linenr = 0;
-
-$incomdata = 0;
-$aftername = 0;
-$aftercomment = 0;
-$commentvalue = "";
-
-while ( <STDIN> )
-{
-  $linenr = $linenr + 1;
-
-     # *LanguageVersion: Check for English
-     if (/^\*LanguageVersion:\s+([\w\-]+)\s*$/) {
-          last if ($1 ne "English");
-     }
-
-     # *OpenUI *InputSlot/Media Source: PickOne
-     if ($_ =~ "^*OpenUI") {
-	  $inui = 1;
-	  $_ =~ s/^\*OpenUI\s*//;
-	  $tag = $_;
-	  $tag =~ s%:.*$%%;
-	  $tag =~ s%/.*%%;
-	  chomp($tag);
-	  $_ =~ s%\s*:.*$%%;
-	  $_ =~ s%\s*\*%%;
-	  $_ =~ s%^[^/]*/%%;
-	  $_ =~ s%\"%\\\"%g;
-	  chomp($_);
-	  print "i18n(\"", $_, "\");\n";
-	  next;
-     }
-
-     if ($_ =~ "^*CloseUI") {
-	  $inui = 0;
-	  $tag = "";
-     }
-
-     if ($inui) {
-       if (substr($_, 0, length($tag)) eq $tag) {
-	 $_ =~ s%\s*:.*$%%;
-	 $_ =~ s%\*\S*\s*%%;
-	 $_ =~ s%^[^/]*/%%;
-	 $_ =~ s%\"%\\\"%g;
-	 chomp($_);
-	 print "i18n(\"", $_, "\");\n";
-       }
-     }
-
-     # *% COMDATA #$VAR1 = {: Start looking for 'name','comment','type'
-     if (/^\*\% COMDATA \#\$VAR1/) {
-       $incomdata = 1;
-     }
-
-     # *% COMDATA #      'name': Continue looking for 'comment'
-     if ($incomdata && /^\*\% COMDATA \#\s*\'name\'/) {
-       $aftername    = 1;
-       $aftercomment = 0;
-     }
-
-     # *% COMDATA #      'comment' => '*': Continue looking for 'type'
-     if ($aftername && /^\*\% COMDATA \#\s*\'comment\'\s*\=\>\s*\'(.*)\'/) {
-       $aftername    = 0;
-       $aftercomment = 1;
-       $commentvalue = $1;
-     }
-
-     # *% COMDATA #      'type' => '*':
-     # Output comment if type is 'int', 'float' or 'string'
-     if ($aftercomment && /^\*\% COMDATA \#\s*\'type\'\s*\=\>\s*\'(.*)\'/) {
-       $aftername    = 0;
-       $aftercomment = 0;
-       if ($1 eq "int" || $1 eq "float" || $1 eq "string") {
-         print "i18n(\"$commentvalue\");\n";
-       }
-     }
-	
-   
-}