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

add playout section

Browse Source
This commit is contained in:
Milan
2018-01-14 18:47:32 +01:00
parent 69e5d0e4c6
commit 7b43d7a807
60 changed files with 8792 additions and 7753 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
website/agenda/planung/localization.cgi Normal file → Executable file
View File

@@ -13,52 +13,48 @@ use localization;
binmode STDOUT, ":utf8";
my $r = shift;
( my $cgi, my $params, my $error ) = params::get($r);
my $r=shift;
(my $cgi, my $params, my $error)=params::get($r);
my $config = config::get('../config/config.cgi');
my $debug = $config->{system}->{debug};
my ( $user, $expires ) = auth::get_user( $cgi, $config );
return if ( $user eq '' );
my $config =config::get('../config/config.cgi');
my $debug =$config->{system}->{debug};
my ($user,$expires) = auth::get_user($cgi, $config);
return if ($user eq '');
my $request={
url => $ENV{QUERY_STRING}||'',
params => {
my $request = {
url => $ENV{QUERY_STRING} || '',
params => {
original => $params,
checked => check_params($params),
checked => check_params($params),
}
};
$params=$request->{params}->{checked};
my $loc = localization::get($config, {user=>$user, file=>$params->{usecase}});
my $header="Content-type:application/json; charset=UTF-8;\n\n";
$loc->{usecase}=$params->{usecase};
my $json=to_json($loc, {pretty => 1});
my @json_lines=();
for my $line (split/\n/,$json){
push @json_lines, "'".$line."'\n";
$params = $request->{params}->{checked};
my $loc = localization::get( $config, { user => $user, file => $params->{usecase} } );
my $header = "Content-type:application/json; charset=UTF-8;\n\n";
$loc->{usecase} = $params->{usecase};
my $json = to_json( $loc, { pretty => 1 } );
my @json_lines = ();
for my $line ( split /\n/, $json ) {
push @json_lines, "'" . $line . "'\n";
}
$json=$header.$json;
$json = $header . $json;
# .'var loc_text='.join('+',@json_lines).";\n"
# .'var loc = JQuery.parseJSON(loc_text)';
;
print $json;
sub check_params {
my $params = shift;
sub check_params{
my $params=shift;
my $checked = { usecase => '' };
my $checked={
usecase => ''
};
if (defined $params->{usecase}){
if ($params->{usecase}=~/^([a-z\-\_\,]+)$/){
$checked->{usecase}=$1;
if ( defined $params->{usecase} ) {
if ( $params->{usecase} =~ /^([a-z\-\_\,]+)$/ ) {
$checked->{usecase} = $1;
}
}
}
return $checked;
}