events.cgi: refactor
This commit is contained in:
@@ -4,13 +4,9 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
no warnings 'redefine';
|
no warnings 'redefine';
|
||||||
|
|
||||||
use Data::Dumper;
|
|
||||||
|
|
||||||
use params();
|
use params();
|
||||||
use config();
|
use config();
|
||||||
use log();
|
|
||||||
use events();
|
use events();
|
||||||
use time();
|
|
||||||
|
|
||||||
binmode STDOUT, ":encoding(UTF-8)";
|
binmode STDOUT, ":encoding(UTF-8)";
|
||||||
|
|
||||||
@@ -35,9 +31,7 @@ if ( $0 =~ /events.*?\.cgi$/ ) {
|
|||||||
},
|
},
|
||||||
};
|
};
|
||||||
|
|
||||||
my $output = '';
|
events::get_cached_or_render( 'print', $config, $request );
|
||||||
events::get_cached_or_render( $output, $config, $request );
|
|
||||||
print $output. "\n";
|
|
||||||
}
|
}
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
|||||||
Reference in New Issue
Block a user