tmplvars_plugin « todo « doc - ikiwiki-upstream - Unnamed repository; edit this file to name it for gitweb.

Mode	Name	Size
-rw-r--r--	discussion.mdwn	177	log plain

1" class="hl">$bindir = "$basedir/bin/mozilla";

$menufile = "menu.ini";

foreach $item (@ARGV) {

  $item =~ s/-//g;

  $arg{$item} = 1;

}

open(FH, "LANGUAGE");

$language = <FH>;

close(FH);

chomp $language;

$language =~ s/\((.*)\)/$1/;

$charset = $1;

opendir DIR, "$bindir" or die "$!";

@progfiles = grep { /\.pl/; !/(_|^\.)/ } readdir DIR;

seekdir DIR, 0;

@customfiles = grep /_/, readdir DIR;

closedir DIR;

# put customized files into @customfiles

@customfiles = () if ($arg{n});

if ($arg{n}) {

  @menufiles = ($menufile);

} else {

  opendir DIR, "$basedir" or die "$!";

  @menufiles = grep { /.*?_$menufile$/ } readdir DIR;

closedir DIR;

  unshift @menufiles, $menufile;

}

if (-f "all") {

  eval { require "all"; };

  %all = %{$self{texts}};

  %{$self{texts}} = ();

} else {

# build %all file from individual files

  foreach $file (@progfiles) {

    &scanfile("$bindir/$file");

}

# remove the old missing file

if (-f 'missing') {

  unlink "missing";

}

foreach $file (@progfiles) {

%locale = ();

%submit = ();

%subrt = ();

@missing = ();

%missing = ();

  &scanfile("$bindir/$file");

# scan custom_{module}.pl or {login}_{module}.pl files

  foreach $customfile (@customfiles) {

    if ($customfile =~ /_$file/) {

      if (-f "$bindir/$customfile") {

    &scanfile("$bindir/$customfile");

}

# if this is the menu.pl file

  if ($file eq 'menu.pl') {

    foreach $item (@menufiles) {

      &scanmenu("$basedir/$item");

}

  $file =~ s/\.pl//;

  if (-f "$file.missing") {

    eval { require "$file.missing"; };

    unlink "$file.missing";

    for (keys %$missing) {

      $self{texts}{$_} ||= $missing->{$_};

}

  open FH, ">$file" or die "$! : $file";

  if ($charset) {

    print FH qq|\$self{charset} = '$charset';\n\n|;

}

  print FH q|$self{texts} = {

  foreach $key (sort keys %locale) {

    $text = ($self{texts}{$key}) ? $self{texts}{$key} : $all{$key};

$count++;

    $text =~ s/'/\\'/g;

    $text =~ s/\\$/\\\\/;

    $keytext = $key;

    $keytext =~ s/'/\\'/g;

    $keytext =~ s/\\$/\\\\/;

    if (!$text) {

$notext++;

      push @missing, $keytext;

next;

}

    print FH qq|  '$keytext'|.(' ' x (27-length($keytext))).qq| => '$text',\n|;

}

print FH q|};

$self{subs} = {

  foreach $key (sort keys %subrt) {

    $text = $key;

    $text =~ s/'/\\'/g;

    $text =~ s/\\$/\\\\/;

    print FH qq|  '$text'|.(' ' x (27-length($text))).qq| => '$text',\n|;

}

  foreach $key (sort keys %submit) {

    $text = ($self{texts}{$key}) ? $self{texts}{$key} : $all{$key};

    next unless $text;

    $text =~ s/'/\\'/g;

    $text =~ s/\\$/\\\\/;

    $english_sub = $key;

    $english_sub =~ s/'/\\'/g;

    $english_sub =~ s/\\$/\\\\/;

    $english_sub = lc $key;

    $translated_sub = lc $text;

    $english_sub =~ s/( |-|,|\/|\.$)/_/g;