kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

rewrite image editor, make images editable at projects and studios

Browse Source
This commit is contained in:
Milan
2018-05-14 23:11:32 +02:00
parent b97fe15f7a
commit 41d209f05a
47 changed files with 1152 additions and 393 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
website/agenda/comments.cgi
View File

@@ -4,7 +4,7 @@ use warnings "all";
use strict;
use CGI qw(header param Vars);
$CGI::POST_MAX = 1000;
$CGI::POST_MAX = 1000;
$CGI::DISABLE_UPLOADS = 1;
use Data::Dumper;
@@ -17,26 +17,26 @@ use time;
use cache;
use log;
my $r=shift;
(my $cgi, my $params, my $error)=params::get($r);
my $r = shift;
( my $cgi, my $params, my $error ) = params::get($r);
binmode STDOUT, ":encoding(UTF-8)";
if ($0=~/comments.*?\.cgi$/){
my $config=config::get('config/config.cgi');
my $debug=$config->{system}->{debug};
if ( $0 =~ /comments.*?\.cgi$/ ) {
my $config = config::get('config/config.cgi');
my $debug = $config->{system}->{debug};
my $request={
url => $ENV{QUERY_STRING},
params => {
my $request = {
url => $ENV{QUERY_STRING},
params => {
original => $params,
checked => comments::check_params($config, $params),
checked => comments::check_params( $config, $params ),
},
};
log::init($request);
my $output='';
comments::get_cached_or_render($output, $config, $request, 'filter_locked');
my $output = '';
comments::get_cached_or_render( $output, $config, $request, 'filter_locked' );
print $output;
}