summaryrefslogtreecommitdiffstats
path: root/mdkapplet-config
Commit message (Expand)AuthorAgeFilesLines
* (configure) hide non available options instead of making themThierry Vignaud2010-01-181-4/+4
* (configure) make sure dialog is properly sizedThierry Vignaud2009-12-091-1/+2
* (configure) offer configuring checksThierry Vignaud2009-11-261-1/+33
* (configure) make it work on 2008.x & 2009.xThierry Vignaud2009-11-241-4/+9
* - mdkapplet-configAurélien Lefebvre2009-09-041-4/+14
* (configure,fill_n_run_portable_dialog) better looking when embedded in MCCThierry Vignaud2009-07-291-1/+1
* (configure) ensure update frenquency is at least 1 hourThierry Vignaud2009-03-251-0/+3
* (configure) display update frenquency in hours and intial delay in minutesThierry Vignaud2009-03-251-2/+12
* add an updates configurator (#37903)Thierry Vignaud2009-02-161-0/+71
generated by cgit v1.2.1 (git 2.21.0) at 2024-07-04 13:05:57 +0000
a> 37 38 39 40 41 42 
#!/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, $selected);
	    /^(.*?)\s*\[icon=(.*?)\](.*)/  and $_ = "$1$3", $icon  = $2;
	    /^(.*?)\s*\[path=(.*?)\](.*)/  and $_ = "$1$3", $path  = $2;
	    /^(.*?)\s*\[descr=(.*?)\](.*)/ and $_ = "$1$3", $descr = $2;
	    /^(.*?)\s*\[selected=(.*?)\](.*)/ and $_ = "$1$3", $selected = $2;
	    push @l, $_, $descr, $path;
	}
    }
    close F;

    @l;
}

my @l = map { if_(/msgid "(.*)"/, $1) } cat_("DrakX.pot");
my %l; @l{@l} = ();

foreach (uniq(get(''), get('.desktop'))) {
    if ($_) {
        s/"/\"/g;
        s/\n//g;
	next if exists $l{$_};
        print qq(
#: ../../share/compssUsers:999
msgid "$_"
msgstr ""
);
    }
}
generated by cgit v1.2.1 (git 2.21.0) at 2024-07-04 13:05:55 +0000