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

refactoring

Browse Source 
optimize imports
reformat source code
remove unused cpu and memory log functionality
This commit is contained in:
Milan
2018-08-29 00:10:15 +02:00
parent c37c71f29e
commit 05b1251c1a
81 changed files with 9242 additions and 9962 deletions
Download Patch File Download Diff File Expand all files Collapse all files

88
lib/calcms/params.pm
View File

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