projekt kivitendo

#   parse_html_template('generic/error')

use Carp;

use Config::Std;

use DateTime;

use Encode;

  { name => "Algorithm::CheckDigits",              url => "http://search.cpan.org/~mamawe/",    debian => 'libalgorithm-checkdigits-perl' },

  { name => "Archive::Zip",    version => '1.40',  url => "http://search.cpan.org/~phred/",     debian => 'libarchive-zip-perl' },

  { name => "CAM::PDF",                            url => "https://metacpan.org/pod/CAM::PDF",  debian => 'libcam-pdf-perl' },

  { name => "Clone",                               url => "http://search.cpan.org/~rdf/",       debian => 'libclone-perl' },

  { name => "Config::Std",                         url => "http://search.cpan.org/~dconway/",   debian => 'libconfig-std-perl' },

  { name => "Daemon::Generic", version => '0.71',  url => "http://search.cpan.org/~muir/",      debian => 'libdaemon-generic-perl'},

}

sub init_cookies {

  my @pairs      = split /[;,] ?/, $raw_cookie;

  my %results;

  for my $pair (@pairs) {

    my ($key, $value) = split /=/, trim($pair);

  }

  \%results;

}

  # handle more than one cookie

  my @cookies = (listify(delete $header{cookie}), listify($self->cookie));

  # content-disposition has some weird syntax from RFC1806

  my $attachment = delete $header{attachment};

            <para><literal>CAM::PDF</literal></para>

          </listitem>

          <listitem>

            <para><literal>Clone</literal></para>

          </listitem>

  libtext-iconv-perl liburi-perl libxml-writer-perl libyaml-perl \

  libimage-info-perl libgd-gd2-perl libapache2-mod-fcgid \

  libfile-copy-recursive-perl postgresql libalgorithm-checkdigits-perl \

  postgresql-contrib poppler-utils libhtml-restrict-perl\

  libdatetime-set-perl libset-infinite-perl liblist-utilsby-perl\

  libdaemon-generic-perl libfile-flock-perl libfile-slurp-perl\

package Devel::REPL;

use utf8;

use DateTime;

use SL::Auth;

use SL::Form;

  $::instance_conf = SL::InstanceConfiguration->new;

  $::request       = SL::Request->new(

    layout => SL::Layout::None->new,

  );

$locale    = Locale->new;

$form      = Form->new;

$::request = SL::Request->new(

  layout => SL::Layout::None->new,

);

  push   (@INC, $FindBin::Bin . '/..');                  # '.' will be removed from @INC soon.

}

use Config::Std;

use Data::Dumper;

use Digest::MD5 qw(md5_hex);

  push   (@INC, $FindBin::Bin . '/..');                  # '.' will be removed from @INC soon.

}

use Cwd;

use Daemon::Generic;

use Data::Dumper;

  $::instance_conf = SL::InstanceConfiguration->new;

  $::request       = SL::Request->new(

    layout         => SL::Layout::None->new,

  );

use strict;

use Data::Dumper;

use IO::File;

use SL::Auth;

use SL::Form;

  my $self = shift;

  my $request = SL::Request->new(

    layout => SL::Layout::None->new,

    @_,

  );