copy current state of medienstaatsvertrag.org, to be verified

website/agenda/planung/localization.cgi

@@ -0,0 +1,64 @@
+#! /usr/bin/perl -w 
+
+use warnings "all";
+use strict;
+use Data::Dumper;
+
+use config;
+use params;
+use log;
+use JSON;
+use auth;
+use localization;
+
+binmode STDOUT, ":utf8";
+
+
+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 $request={
+	url	=> $ENV{QUERY_STRING}||'',
+	params	=> {
+		original => $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";
+}
+
+$json=$header.$json;
+#    .'var loc_text='.join('+',@json_lines).";\n"
+#    .'var loc = JQuery.parseJSON(loc_text)';
+;
+print $json;
+
+
+sub check_params{
+	my $params=shift;
+
+	my $checked={
+        usecase => ''
+    };
+
+	if (defined $params->{usecase}){
+		if ($params->{usecase}=~/^([a-z\-\_\,]+)$/){
+			$checked->{usecase}=$1;
+		}
+    }
+	return $checked;
+}
+