This commit was manufactured by cvs2svn to create branchtopic/v_webmin_0_87

'v_webmin_0_87'.

1 files changed, 0 insertions, 37 deletions

diff --git a/perl-install/share/po/i18n_compssUsers b/perl-install/share/po/i18n_compssUsers
deleted file mode 100644
index ebdc1b81d..000000000
--- a/perl-install/share/po/i18n_compssUsers
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/usr/bin/perl
-
-use MDK::Common;
-
-sub get {
-    my ($meta_class) = @_;
-    my @l;
-
-    local *F;
-    open F, "../compssUsers$meta_class" or return; #die "can't open file ../compssUsers$meta_class";
-    foreach (<F>) {
-	/^\s*$/ || /^#/ and next;
-
-	if (/^(\S.*)/) {
-	    my ($icon, $path, $descr);
-	    /^(.*?)\s*\[icon=(.*?)\](.*)/  and $_ = "$1$3", $icon  = $2;
-	    /^(.*?)\s*\[path=(.*?)\](.*)/  and $_ = "$1$3", $path  = $2;
-	    /^(.*?)\s*\[descr=(.*?)\](.*)/ and $_ = "$1$3", $descr = $2;
-	    push @l, $_, $descr, $path;
-	}
-    }
-    close F;
-
-    @l;
-}
-
-foreach (uniq(get(''), get('.desktop'))) {
-    if ($_) {
-        s/"/\"/g;
-        s/\n//g;
-        print qq(
-#: ../../share/compssUsers:999
-msgid "$_"
-msgstr ""
-);
-    }
-}