aboutsummaryrefslogtreecommitdiffstats
path: root/po/desk.pl
diff options
context:
space:
mode:
authorGediminas Paulauskas <menesis@src.gnome.org>2001-02-11 10:56:16 +0800
committerGediminas Paulauskas <menesis@src.gnome.org>2001-02-11 10:56:16 +0800
commitac9abd5e6096d8511a1fe3892cf9453eb7c7ba2f (patch)
treeda4ce19c2974866c33947265c03b235be10ec315 /po/desk.pl
parenta5e0765d8ac3be83d705c4ea8af2684fd84addd1 (diff)
downloadgsoc2013-evolution-ac9abd5e6096d8511a1fe3892cf9453eb7c7ba2f.tar.gz
gsoc2013-evolution-ac9abd5e6096d8511a1fe3892cf9453eb7c7ba2f.tar.zst
gsoc2013-evolution-ac9abd5e6096d8511a1fe3892cf9453eb7c7ba2f.zip
Getting almost full and proper use of xml-i18n-tools.
Removed all files where glade writes strings. Changed Makefile.am to not distribute them. Changed all glade files to not write strings to those files. Removed *.desktop and evolution.keys files, because they are generated. Added them to .cvsignore Added *.desktop.in evolution.keys.in files without transalted strings. Added all existing entries from desktop files to po files. Changed Makefile.am to distribute only .in files, and merge translations into desktop files. Removed obsolete files from po/ dir svn path=/trunk/; revision=8164
Diffstat (limited to 'po/desk.pl')
-rwxr-xr-xpo/desk.pl118
1 files changed, 0 insertions, 118 deletions
diff --git a/po/desk.pl b/po/desk.pl
deleted file mode 100755
index 08a2a18a56..0000000000
--- a/po/desk.pl
+++ /dev/null
@@ -1,118 +0,0 @@
-#!/usr/bin/perl -w
-
-# GNOME entry finder utility.
-# (C) 2000 The Free Software Foundation
-#
-# Author(s): Kenneth Christiansen
-
-
-$VERSION = "1.0.0 beta 5";
-$LANG = $ARGV[0];
-$OPTION2 = $ARGV[1];
-$SEARCH = "Name";
-
-if (! $LANG){
- print "desk.pl: missing file arguments\n";
- print "Try `desk.pl --help' for more information.\n";
- exit;
-}
-
-if ($OPTION2){
- $SEARCH=$OPTION2;
-}
-
-if ($LANG){
-
-if ($LANG=~/^-(.)*/){
-
- if ("$LANG" eq "--version" || "$LANG" eq "-V"){
- print "GNOME Entry finder $VERSION\n";
- print "Written by Kenneth Christiansen <kenneth\@gnome.org>, 2000.\n\n";
- print "Copyright (C) 2000 Free Software Foundation, Inc.\n";
- print "This is free software; see the source for copying conditions. There is NO\n";
- print "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n";
- exit;
- }
-
- elsif ($LANG eq "--help" || "$LANG" eq "-H"){
- print "Usage: ./desk.pl [OPTIONS] ...LANGCODE ENTRY\n";
- print "Checks .desktop and alike files for missing translations.\n\n";
- print " -V, --version shows the version\n";
- print " -H, --help shows this help page\n";
- print "\nReport bugs to <kenneth\@gnome.org>.\n";
- exit;
- }
-
- else{
- print "desk.pl: invalid option -- $LANG\n";
- print "Try `desk.pl --help' for more information.\n";
- exit;
- }
-}
-
-else{
-
- $a="find ../ -print | egrep '.*\\.(desktop|soundlist"
- ."|directory)' ";
-
- $b="find ../ -print | egrep '.*\\.(desktop|soundlist"
- ."|directory)' ";
-
- print "Searching for missing $SEARCH\[$LANG\] entries...\n";
-
- open(BUF1, "$a|");
- open(BUF2, "$b|");
-
- @buf1 = <BUF1>;
- foreach my $file (@buf1){
- open FILE, "<$file";
- while (<FILE>) {
- if ($_=~/$SEARCH\[$LANG\]\=/o){
- $file = unpack("x2 A*",$file) . "\n";
- push @buff1, $file;
- last;
- }
- }
- }
-
- @buf2 = <BUF2>;
- foreach my $file (@buf2){
- open FILE, "<$file";
- while (<FILE>) {
- if ($_=~/$SEARCH\=/o){
- $file = unpack("x2 A*",$file) . "\n";
- push @buff2, $file;
- last;
- }
- }
- }
-
- @bufff1 = sort (@buff1);
- @bufff2 = sort (@buff2);
-
- my %in2;
- foreach (@bufff1) {
- $in2{$_} = 1;
- }
-
- foreach (@bufff2){
- if (!exists($in2{$_})){
- push @result, $_ }
- }
- }
-
- open(OUT1, ">MISSING.$LANG.$SEARCH");
- print OUT1 @result ;
- close OUT1;
-
-
- stat("MISSING.$LANG.$SEARCH");
- print "\nWell, you need to fix these:\n\n" if -s _;
- print @result if -s _;
- print "\nThe list is saved in MISSING.$LANG.$SEARCH\n" if -s _;
- print "\nWell, it's all perfect! Congratulation!\n" if -z _;
- unlink "MISSING.$LANG.$SEARCH" if -z _;
- exit;
-}
-
-