Revision 2b8ec027
Von Sven Schöling vor mehr als 4 Jahren hinzugefügt
| SL/Dispatcher.pm | ||
|---|---|---|
|
# parse_html_template('generic/error')
|
||
|
|
||
|
use Carp;
|
||
|
use CGI qw( -no_xhtml);
|
||
|
use Config::Std;
|
||
|
use DateTime;
|
||
|
use Encode;
|
||
| SL/InstallationCheck.pm | ||
|---|---|---|
|
{ 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 => "CGI", version => '3.43', url => "http://search.cpan.org/~leejo/", debian => 'libcgi-pm-perl' }, # 4.09 is not core anymore (perl 5.20)
|
||
|
{ 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'},
|
||
| SL/Request.pm | ||
|---|---|---|
|
}
|
||
|
|
||
|
sub init_cookies {
|
||
|
my $raw_cookie = $ENV{HTTP_COOKIE} || $ENV{COOKIE};
|
||
|
my $raw_cookie = $ENV{HTTP_COOKIE} // $ENV{COOKIE};
|
||
|
|
||
|
return {} unless $raw_cookie;
|
||
|
|
||
|
my @pairs = split /[;,] ?/, $raw_cookie;
|
||
|
my %results;
|
||
|
for my $pair (@pairs) {
|
||
|
my ($key, $value) = split /=/, trim($pair);
|
||
|
$value //= '';
|
||
|
$results{$key} = $value;
|
||
|
$results{$key} = $value // '';
|
||
|
}
|
||
|
|
||
|
\%results;
|
||
|
}
|
||
|
|
||
| SL/Response.pm | ||
|---|---|---|
|
|
||
|
# handle more than one cookie
|
||
|
my @cookies = (listify(delete $header{cookie}), listify($self->cookie));
|
||
|
push @header, "Set-Cookie: $_" for @cookies;
|
||
|
push @header, "Set-Cookie: $_" for grep defined, @cookies;
|
||
|
|
||
|
# content-disposition has some weird syntax from RFC1806
|
||
|
my $attachment = delete $header{attachment};
|
||
| doc/dokumentation.xml | ||
|---|---|---|
|
<para><literal>CAM::PDF</literal></para>
|
||
|
</listitem>
|
||
|
|
||
|
<listitem>
|
||
|
<para><literal>CGI</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 \
|
||
|
libcrypt-pbkdf2-perl git libcgi-pm-perl libtext-unidecode-perl libwww-perl\
|
||
|
libcrypt-pbkdf2-perl git libtext-unidecode-perl libwww-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\
|
||
| scripts/console | ||
|---|---|---|
|
package Devel::REPL;
|
||
|
|
||
|
use utf8;
|
||
|
use CGI qw( -no_xhtml);
|
||
|
use DateTime;
|
||
|
use SL::Auth;
|
||
|
use SL::Form;
|
||
| ... | ... | |
|
|
||
|
$::instance_conf = SL::InstanceConfiguration->new;
|
||
|
$::request = SL::Request->new(
|
||
|
cgi => CGI->new({}),
|
||
|
layout => SL::Layout::None->new,
|
||
|
);
|
||
|
|
||
| scripts/dbupgrade2_tool.pl | ||
|---|---|---|
|
$locale = Locale->new;
|
||
|
$form = Form->new;
|
||
|
$::request = SL::Request->new(
|
||
|
cgi => CGI->new({}),
|
||
|
layout => SL::Layout::None->new,
|
||
|
);
|
||
|
|
||
| scripts/rose_auto_create_model.pl | ||
|---|---|---|
|
push (@INC, $FindBin::Bin . '/..'); # '.' will be removed from @INC soon.
|
||
|
}
|
||
|
|
||
|
use CGI qw( -no_xhtml);
|
||
|
use Config::Std;
|
||
|
use Data::Dumper;
|
||
|
use Digest::MD5 qw(md5_hex);
|
||
| scripts/task_server.pl | ||
|---|---|---|
|
push (@INC, $FindBin::Bin . '/..'); # '.' will be removed from @INC soon.
|
||
|
}
|
||
|
|
||
|
use CGI qw( -no_xhtml);
|
||
|
use Cwd;
|
||
|
use Daemon::Generic;
|
||
|
use Data::Dumper;
|
||
| ... | ... | |
|
|
||
|
$::instance_conf = SL::InstanceConfiguration->new;
|
||
|
$::request = SL::Request->new(
|
||
|
cgi => CGI->new({}),
|
||
|
layout => SL::Layout::None->new,
|
||
|
);
|
||
|
|
||
| t/Support/TestSetup.pm | ||
|---|---|---|
|
use strict;
|
||
|
|
||
|
use Data::Dumper;
|
||
|
use CGI qw( -no_xhtml);
|
||
|
use IO::File;
|
||
|
use SL::Auth;
|
||
|
use SL::Form;
|
||
| ... | ... | |
|
my $self = shift;
|
||
|
|
||
|
my $request = SL::Request->new(
|
||
|
cgi => CGI->new({}),
|
||
|
layout => SL::Layout::None->new,
|
||
|
@_,
|
||
|
);
|
||
Auch abrufbar als: Unified diff
CGI aus Abhängigkeiten entfernt und warnings behoben