projekt kivitendo

sub check_kpsewhich {

  my $exit = system("which kpsewhich > /dev/null");

  return $exit > 0 ? 0 : 1;

}

sub template_dirs {

  my ($path) = @_;

  opendir my $dh, $path || die "can't open $path";

  my @templates = sort grep { !/^\.\.?$/ } readdir $dh;

  close $dh;

  return @templates;

}

sub classes_from_latex {

  my ($path, $class) = @_;

  open my $pipe, q#egrep -rs '^[\ \t]*# . "$class' $path". q# | sed 's/ //g' | awk -F '{' '{print $2}' | awk -F '}' '{print $1}' |#;

  my @cls = <$pipe>;

  close $pipe;

  # can't use uniq here

  my %class_hash = map { $_ => 1 } map { s/\n//; $_ } split ',', join ',', @cls;

  return sort keys %class_hash;

}

our $master_templates;

  # this is a default dir. may be wrong in your installation, change it then

  $master_templates = './templates/print/';

  "l|latex!"    => \ $check{l},

                     defined $check{l} ||

  print_header('Checking Required Modules');

  print_header('Checking Optional Modules');

  print_header('Checking Developer Modules');

if ($check{l}) {

  check_latex();

}

sub check_latex {

  my ($res) = check_kpsewhich();

  print_result("Looking for LaTeX kpsewhich", $res ? ('ok', 'green') : ('NOT ok', 'red'));

  if ($res) {

    check_template_dir($_) for SL::InstallationCheck::template_dirs($master_templates);

  }

}

sub check_template_dir {

  my ($dir) = @_;

  my $path  = $master_templates . $dir;

  print_header("Checking LaTeX Dependencies for Master Templates '$dir'");

  kpsewhich($path, 'cls', $_) for SL::InstallationCheck::classes_from_latex($path, '\documentclass');

  kpsewhich($path, 'sty', $_) for SL::InstallationCheck::classes_from_latex($path, '\usepackage');

}

our $mastertemplate_path = './templates/print/';

sub check_kpsewhich {

  return 1 if SL::InstallationCheck::check_kpsewhich();

  print STDERR <<EOL if $v;

+------------------------------------------------------------------------------+

  Can't find kpsewhich, is there a proper installed LaTeX?

  On Debian you may run "aptitude install texlive-base-bin"

+------------------------------------------------------------------------------+

EOL

  return 0;

}

sub kpsewhich {

  my ($dw, $type, $package) = @_;

  $package =~ s/[^-_0-9A-Za-z]//g;

  my $type_desc = $type eq 'cls' ? 'document class' : 'package';

  my $exit = system(qq|TEXINPUTS=".:$dw:" kpsewhich $package.$type > /dev/null|);

  my $res  = $exit > 0 ? 0 : 1;

  print_result("Looking for LaTeX $type_desc $package", $res);

  if (!$res) {

    print STDERR <<EOL if $v;

+------------------------------------------------------------------------------+

  LaTeX $type_desc $package could not be loaded.

  On Debian you may find the needed *.deb package with:

    apt-file search $package.$type

  Maybe you need to install apt-file first by:

    aptitude install apt-file && apt-file update

+------------------------------------------------------------------------------+

EOL

  }

}

sub print_header {

  print $/;

  print "$_[0]:", $/;

}

and warns if one is not available.  List all LaTeX document classes and

packages needed by Lx-Office master templates, probes for them, and warns if

one is not available.

Don't probe for perl developer dependancies. (Useful in combination with --all)

Don't probe for optional perl modules. (Useful in combination with --all)

Don't probe for required perl modules. (Useful in combination with --all)

=item C<-l. --latex>

Probe for LaTeX documentclasses and packages in master templates.

=item C<--no-latex>

Don't probe for LaTeX document classes and packages in master templates. (Useful in combination with --all)