diff options
author | nobody <nobody@localhost> | 2001-01-24 20:16:19 +0800 |
---|---|---|
committer | nobody <nobody@localhost> | 2001-01-24 20:16:19 +0800 |
commit | 70a2893834e3e7e07c1cdbf11b1dc4b125f1a09b (patch) | |
tree | d14a15d47e7d448085f459ad6645a440bc61e8e9 /po/desk.pl | |
parent | 50686ba8d9071b6c76df52c0d126e6d74163471e (diff) | |
download | gsoc2013-evolution-70a2893834e3e7e07c1cdbf11b1dc4b125f1a09b.tar gsoc2013-evolution-70a2893834e3e7e07c1cdbf11b1dc4b125f1a09b.tar.gz gsoc2013-evolution-70a2893834e3e7e07c1cdbf11b1dc4b125f1a09b.tar.bz2 gsoc2013-evolution-70a2893834e3e7e07c1cdbf11b1dc4b125f1a09b.tar.lz gsoc2013-evolution-70a2893834e3e7e07c1cdbf11b1dc4b125f1a09b.tar.xz gsoc2013-evolution-70a2893834e3e7e07c1cdbf11b1dc4b125f1a09b.tar.zst gsoc2013-evolution-70a2893834e3e7e07c1cdbf11b1dc4b125f1a09b.zip |
This commit was manufactured by cvs2svn to create tagGTKHTML_0_8_1
'GTKHTML_0_8_1'.
svn path=/tags/GTKHTML_0_8_1/; revision=7778
Diffstat (limited to 'po/desk.pl')
-rwxr-xr-x | po/desk.pl | 118 |
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; -} - - |