1 files changed, 0 insertions, 61 deletions
diff --git a/kdeprint/cups/cupsdconf2/cupsdcomment.pl b/kdeprint/cups/cupsdconf2/cupsdcomment.pl
deleted file mode 100644
index b3da5ee7e..000000000
--- a/kdeprint/cups/cupsdconf2/cupsdcomment.pl
+++ /dev/null
@@ -1,61 +0,0 @@
-#!/usr/bin/perl -w
-#
-# Filter to extract comments for translation from cupsd.conf.template
-#
-# This code should produce strings identical to tooltips in cupsdcomment.cpp
-#
-my ($comment_, $example_);
-$example_ = "";
-
-load(); # Skip header
-
-while ( <STDIN> )
-{
-    if(load())
-    {
-        print toolTip();
-    }
-}
-
-# Corresponds to Comment::load in cupsdcomment.cpp
-sub load
-{
-    $comment_ = "";
-    my($current) = \$comment_;
-    while ( <STDIN> )
-    {
-        if (/^\$\$/)
-        {
-            $current = \$example_;
-        }
-        elsif (/^\%\%/)
-        {
-            next; # Do nothing
-        }
-        elsif (/^\@\@/)
-        {
-            return 1;
-        }
-        elsif (/^[\s]*$/)
-        {
-            next; # Do nothing
-        }
-        else
-        {
-            last if (!/^\#/);
-            ${$current} = ${$current} . $_;
-        }
-    }
-    return 0;
-}
-
-# Corresponds to Comment::toolTip in cupsdcomment.cpp
-sub toolTip
-{
-    my($str) = $comment_;
-    $str =~ s/\"/\\\"/g;
-    $str =~ s/^\#[\s]*/i18n\(\"Do not translate the keyword between brackets \(e\.g\. ServerName, ServerAdmin, etc\.\)\",\"/;
-    $str =~ s/\n\#[\s]*/\\n\"\n\"/g;
-    $str =~ s/\n$/\\n\"\n\)\;\n\n/;
-    return $str;
-}