projekt kivitendo

  map({ push(@missing_modules, $_) unless (module_available($_->{"name"})); }

#====================================================================

# LX-Office ERP

# Copyright (C) 2004

# Based on SQL-Ledger Version 2.1.9

# Web http://www.lx-office.org

#

#=====================================================================

# SQL-Ledger Accounting

# Copyright (C) 1998-2002

#

#  Author: Dieter Simader

#   Email: dsimader@sql-ledger.org

#     Web: http://www.sql-ledger.org

#

# Contributors: Thomas Bayen <bayen@gmx.de>

#               Antti Kaihola <akaihola@siba.fi>

#               Moritz Bunkus (tex code)

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#======================================================================

#

# Translations and number/date formatting

#

#======================================================================

package Locale;

use SL::LXDebug;

sub new {

  $main::lxdebug->enter_sub();

  my ($type, $country, $NLS_file) = @_;

  my $self = {};

  if ($country && -d "locale/$country") {

    local *IN;

    $self->{countrycode} = $country;

    if (open(IN, "locale/$country/$NLS_file")) {

      my $code = join("", <IN>);

      eval($code);

      close(IN);

    }

  }

  $self->{NLS_file} = $NLS_file;

  push @{ $self->{LONG_MONTH} },

    ("January",   "February", "March",    "April",

     "May ",      "June",     "July",     "August",

     "September", "October",  "November", "December");

  push @{ $self->{SHORT_MONTH} },

    (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec));

  $main::lxdebug->leave_sub();

  bless $self, $type;

}

sub text {

  my ($self, $text) = @_;

  return (exists $self->{texts}{$text}) ? $self->{texts}{$text} : $text;

}

sub findsub {

  $main::lxdebug->enter_sub();

  my ($self, $text) = @_;

  if (exists $self->{subs}{$text}) {

    $text = $self->{subs}{$text};

  } else {

    if ($self->{countrycode} && $self->{NLS_file}) {

      Form->error(

         "$text not defined in locale/$self->{countrycode}/$self->{NLS_file}");

    }

  }

  $main::lxdebug->leave_sub();

  return $text;

}

sub date {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $date, $longformat) = @_;

  my $longdate  = "";

  my $longmonth = ($longformat) ? 'LONG_MONTH' : 'SHORT_MONTH';

  if ($date) {

    # get separator

    $spc = $myconfig->{dateformat};

    $spc =~ s/\w//g;

    $spc = substr($spc, 1, 1);

    if ($date =~ /\D/) {

      if ($myconfig->{dateformat} =~ /^yy/) {

        ($yy, $mm, $dd) = split /\D/, $date;

      }

      if ($myconfig->{dateformat} =~ /^mm/) {

        ($mm, $dd, $yy) = split /\D/, $date;

      }

      if ($myconfig->{dateformat} =~ /^dd/) {

        ($dd, $mm, $yy) = split /\D/, $date;

      }

    } else {

      $date = substr($date, 2);

      ($yy, $mm, $dd) = ($date =~ /(..)(..)(..)/);

    }

    $dd *= 1;

    $mm--;

    $yy = ($yy < 70) ? $yy + 2000 : $yy;

    $yy = ($yy >= 70 && $yy <= 99) ? $yy + 1900 : $yy;

    if ($myconfig->{dateformat} =~ /^dd/) {

      if (defined $longformat && $longformat == 0) {

        $mm++;

        $dd = "0$dd" if ($dd < 10);

        $mm = "0$mm" if ($mm < 10);

        $longdate = "$dd$spc$mm$spc$yy";

      } else {

        $longdate = "$dd";

        $longdate .= ($spc eq '.') ? ". " : " ";

        $longdate .= &text($self, $self->{$longmonth}[$mm]) . " $yy";

      }

    } elsif ($myconfig->{dateformat} eq "yyyy-mm-dd") {

      # Use German syntax with the ISO date style "yyyy-mm-dd" because

      # Lx-Office is mainly used in Germany or German speaking countries.

      if (defined $longformat && $longformat == 0) {

        $mm++;

        $dd = "0$dd" if ($dd < 10);

        $mm = "0$mm" if ($mm < 10);

        $longdate = "$yy-$mm-$dd";

      } else {

        $longdate = "$dd. ";

        $longdate .= &text($self, $self->{$longmonth}[$mm]) . " $yy";

      }

    } else {

      if (defined $longformat && $longformat == 0) {

        $mm++;

        $dd = "0$dd" if ($dd < 10);

        $mm = "0$mm" if ($mm < 10);

        $longdate = "$mm$spc$dd$spc$yy";

      } else {

        $longdate = &text($self, $self->{$longmonth}[$mm]) . " $dd, $yy";

      }

    }

  }

  $main::lxdebug->leave_sub();

  return $longdate;

}

sub parse_date {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $date, $longformat) = @_;

  unless ($date) {

    $main::lxdebug->leave_sub();

    return ();

  }

  # get separator

  $spc = $myconfig->{dateformat};

  $spc =~ s/\w//g;

  $spc = substr($spc, 1, 1);

  if ($date =~ /\D/) {

    if ($myconfig->{dateformat} =~ /^yy/) {

      ($yy, $mm, $dd) = split /\D/, $date;

    } elsif ($myconfig->{dateformat} =~ /^mm/) {

      ($mm, $dd, $yy) = split /\D/, $date;

    } elsif ($myconfig->{dateformat} =~ /^dd/) {

      ($dd, $mm, $yy) = split /\D/, $date;

    }

  } else {

    $date = substr($date, 2);

    ($yy, $mm, $dd) = ($date =~ /(..)(..)(..)/);

  }

  $dd *= 1;

  $mm *= 1;

  $yy = ($yy < 70) ? $yy + 2000 : $yy;

  $yy = ($yy >= 70 && $yy <= 99) ? $yy + 1900 : $yy;

  $main::lxdebug->leave_sub();

  return ($yy, $mm, $dd);

}

sub reformat_date {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $date, $output_format, $longformat) = @_;

  $main::lxdebug->leave_sub() and return "" unless ($date);

  my ($yy, $mm, $dd) = $self->parse_date($myconfig, $date);

  $output_format =~ /d+/;

  substr($output_format, $-[0], $+[0] - $-[0]) =

    sprintf("%0" . (length($&)) . "d", $dd);

  $output_format =~ /m+/;

  substr($output_format, $-[0], $+[0] - $-[0]) =

    sprintf("%0" . (length($&)) . "d", $mm);

  $output_format =~ /y+/;

  if (length($&) == 2) {

    $yy -= $yy >= 2000 ? 2000 : 1900;

  }

  substr($output_format, $-[0], $+[0] - $-[0]) =

    sprintf("%0" . (length($&)) . "d", $yy);

  $main::lxdebug->leave_sub();

  return $output_format;

}

1;

use SL::Locale;

use SL::InstallationCheck;

sub verify_installation {

  my $script = $0;

  $script =~ s|.*/||;

  return unless ($form{"action"} && ($script eq "login.pl"));

  my @missing_modules = SL::InstallationCheck::test_all_modules();

  return if (scalar(@missing_modules) == 0);

  use SL::Locale;

  my $locale = new Locale($language, "installationcheck");

  print(qq|content-type: text/html

<html>

 <head>

  <link rel="stylesheet" href="css/lx-office-erp.css" type="text/css"

        title="Lx-Office stylesheet">

  <title>| . $locale->text("One or more Perl modules missing") . qq|</title>

 </head>

 <body>

  <h1>| . $locale->text("One or more Perl modules missing") . qq|</h1>

  <p>| . $locale->text("At least one Perl module that Lx-Office ERP " .

                       "requires for running is not installed on your " .

                       "system.") .

        " " .

        $locale->text("Please install the below listed modules or ask your " .

                      "system administrator to.") .

        " " .

        $locale->text("You cannot continue before all required modules are " .

                      "installed.") . qq|</p>

  <p>

   <table>

    <tr>

     <th class="listheading">| . $locale->text("Module name") . qq|</th>

     <th class="listheading">| . $locale->text("Module home page") . qq|</th>

    </tr>

|);

  my $odd = 1;

  foreach my $module (@missing_modules) {

    print(qq|

     <tr class="listrow${odd}">

      <td><code>$module->{name}</code></td>

      <td><a href="$module->{url}">$module->{url}</a></td>

     </tr>|);

    $odd = 1 - $odd;

  }

  print(qq|

   </table>

  </p>

  <p>| . $locale->text("There are usually three ways to install " .

                       "Perl modules.") .

        " " .

        $locale->text("The preferred one is to install packages provided by " .

                      "your operating system distribution (e.g. Debian or " .

                      "RPM packages).") . qq|</p>

  <p>| . $locale->text("The second way is to use Perl's CPAN module and let " .

                       "it download and install the module for you.") .

        " " .

        $locale->text("Here's an example command line:") . qq|</p>

  <p><code>perl -MCPAN -e &quot;install CGI::Ajax&quot;</code></p>

  <p>| . $locale->text("The third way is to download the module from the " .

                       "above mentioned URL and to install the module " .

                       "manually following the installations instructions " .

                       "contained in the source archive.") . qq|</p>

 </body>

</html>

|);

  exit(0);

}

1;

  'At least one Perl module that Lx-Office ERP requires for running is not installed on your system.' => 'Mindestes ein Perl-Modul, das Lx-Office ERP zur Ausführung benötigt, ist auf Ihrem System nicht installiert.',

  'Here\'s an example command line:' => 'Hier ist eine Kommandozeile, die als Beispiel dient:',

  'Module home page'            => 'Modul-Webseite',

  'Module name'                 => 'Modulname',

  'One or more Perl modules missing' => 'Ein oder mehr Perl-Module fehlen',

  'Please install the below listed modules or ask your system administrator to.' => 'Bitte installieren Sie die unten aufgeführten Module, oder bitten Sie Ihren Administrator darum.',

  'The preferred one is to install packages provided by your operating system distribution (e.g. Debian or RPM packages).' => 'Die bevorzugte Art, ein Perl-Modul zu installieren, ist durch Installation eines von Ihrem Betriebssystem zur Verfügung gestellten Paketes (z.B. Debian-Pakete oder RPM).',

  'The second way is to use Perl\'s CPAN module and let it download and install the module for you.' => 'Die zweite Variante besteht darin, Perls CPAN-Modul zu benutzen und es das Modul für Sie installieren zu lassen.',

  'The third way is to download the module from the above mentioned URL and to install the module manually following the installations instructions contained in the source archive.' => 'Die dritte Variante besteht darin, das Paket von der oben genannten URL herunterzuladen und es manuell zu installieren. Beachten Sie dabei die im Paket enthaltenen Installationsanweisungen.',

  'There are usually three ways to install Perl modules.' => 'Es gibt normalerweise drei Arten, ein Perlmodul zu installieren.',

  'You cannot continue before all required modules are installed.' => 'Sie können nicht fortfahren, bevor alle benötigten Pakete installiert sind.',

$self->{texts} = {

  'At least one Perl module that Lx-Office ERP requires for running is not installed on your system.' => 'Mindestes ein Perl-Modul, das Lx-Office ERP zur Ausführung benötigt, ist auf Ihrem System nicht installiert.',

  'Here\'s an example command line:' => 'Hier ist eine Kommandozeile, die als Beispiel dient:',

  'Module home page'            => 'Modul-Webseite',

  'Module name'                 => 'Modulname',

  'One or more Perl modules missing' => 'Ein oder mehr Perl-Module fehlen',

  'Please install the below listed modules or ask your system administrator to.' => 'Bitte installieren Sie die unten aufgeführten Module, oder bitten Sie Ihren Administrator darum.',

  'The preferred one is to install packages provided by your operating system distribution (e.g. Debian or RPM packages).' => 'Die bevorzugte Art, ein Perl-Modul zu installieren, ist durch Installation eines von Ihrem Betriebssystem zur Verfügung gestellten Paketes (z.B. Debian-Pakete oder RPM).',

  'The second way is to use Perl\'s CPAN module and let it download and install the module for you.' => 'Die zweite Variante besteht darin, Perls CPAN-Modul zu benutzen und es das Modul für Sie installieren zu lassen.',

  'The third way is to download the module from the above mentioned URL and to install the module manually following the installations instructions contained in the source archive.' => 'Die dritte Variante besteht darin, das Paket von der oben genannten URL herunterzuladen und es manuell zu installieren. Beachten Sie dabei die im Paket enthaltenen Installationsanweisungen.',

  'There are usually three ways to install Perl modules.' => 'Es gibt normalerweise drei Arten, ein Perlmodul zu installieren.',

  'You cannot continue before all required modules are installed.' => 'Sie können nicht fortfahren, bevor alle benötigten Pakete installiert sind.',

};

$self->{subs} = {

  'verify_installation'         => 'verify_installation',

};

1;

require "bin/mozilla/installationcheck.pl";

verify_installation();