copy current state of medienstaatsvertrag.org, to be verified

lib/calcms/params.pm

@@ -0,0 +1,83 @@
+package params; 
+use warnings "all";
+use strict;
+use Data::Dumper;
+use CGI;
+use Apache2::Request;
+
+require Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT_OK = qw(get isJson);
+our %EXPORT_TAGS = ( 'all'  => [ @EXPORT_OK ] );
+
+sub debug;
+my $isJson=0;
+
+sub isJson{
+    return $isJson;
+}
+
+sub get{
+    #get the Apache2::RequestRec
+	my $r=shift;
+
+	my $tmp_dir     ='/var/tmp/';
+	my $upload_limit=1000*1024;
+
+	my $cgi    = undef;
+	my $status = undef;
+	my $params = {};
+
+    $isJson=0;
+
+	if (defined $r){
+		#print STDERR "Apache2::Request\n";
+        #get Apache2::Request
+		my $req = Apache2::Request->new($r, POST_MAX => $upload_limit, TEMP_DIR => $tmp_dir);
+
+        for my $key ($req->param){
+            $params->{scalar($key)}=scalar($req->param($key));
+        }
+
+		#copy params to hash
+		#my $body=$req->body();
+		#if (defined $body){
+		#	for my $key (keys %$body){
+		#		$params->{scalar($key)}=scalar($req->param($key));
+		#	}
+		#}
+		$status = $req->parse; #parse
+	}else{
+		#print STDERR "CGI\n";
+		$CGI::POST_MAX = $upload_limit;
+		$CGI::TMPDIRECTORY=$tmp_dir;
+		$cgi=new CGI();
+		$status=$cgi->cgi_error()||$status;
+		my %params=$cgi->Vars();
+		$params=\%params;
+	}
+    $cgi=new CGI() unless(defined $cgi);
+
+    $isJson=1 if (defined $params->{json}) && ($params->{json}eq'1');
+
+    if(defined $status){
+        $status='' if ($status eq 'Success');
+        $status='' if ($status eq 'Missing input data');
+        print $cgi->header.$status."\n" if($status ne'');
+    }
+    #print STDERR Dumper($params);
+    #print $cgi->header.Dumper($params).$status;
+
+	return ($cgi, $params, $status);
+}
+
+sub debug{
+	my $message=shift;
+	#print "$msg<br/>\n" if ($debug>0);
+	#print "$message<br>\n";
+	#log::print($message."\n") if ($debug);
+}
+
+
+#do not delete last line!
+1;