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

28
website/agenda/cal.cgi
View File

@@ -5,7 +5,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;
@@ -14,31 +14,31 @@ use config;
use log;
use calendar;
my $r=shift;
my $r = shift;
#binmode STDOUT, ":utf8";
binmode STDOUT, ":encoding(UTF-8)";
if ($0=~/cal.*?\.cgi$/){
(my $cgi, my $params, my $error)=params::get($r);
if ( $0 =~ /cal.*?\.cgi$/ ) {
( my $cgi, my $params, my $error ) = params::get($r);
my $config=config::get('config/config.cgi');
my $debug=$config->{system}->{debug};
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 => calendar::check_params($config, $params),
checked => calendar::check_params( $config, $params ),
},
};
$params=$request->{params}->{checked};
$params = $request->{params}->{checked};
log::init($request);
my $out='';
calendar::get_cached_or_render($out, $config, $request);
print $out."\n";
my $out = '';
calendar::get_cached_or_render( $out, $config, $request );
print $out. "\n";
}
1;