refactoring
optimize imports reformat source code remove unused cpu and memory log functionality
This commit is contained in:
Milan
@@ -1,519 +1,526 @@
|
||||
#use Calendar::Simple qw(date_span);
|
||||
use Date::Calc;
|
||||
|
||||
use config;
|
||||
use template;
|
||||
use markup;
|
||||
use cache;
|
||||
use log;
|
||||
use time;
|
||||
use project;
|
||||
use events;
|
||||
#use config();
|
||||
use template();
|
||||
|
||||
package calendar;
|
||||
#use markup();
|
||||
use cache();
|
||||
|
||||
#use log();
|
||||
#use time();
|
||||
#use project();
|
||||
#use events();
|
||||
|
||||
package calendar;
|
||||
use warnings "all";
|
||||
use strict;
|
||||
use Data::Dumper;
|
||||
use Date::Calc();
|
||||
|
||||
require Exporter;
|
||||
our @ISA = qw(Exporter);
|
||||
our @EXPORT_OK = qw(init get_cached_or_render get render get_calendar_weeks configure_cache);
|
||||
our %EXPORT_TAGS = ( 'all' => [ @EXPORT_OK ] );
|
||||
our @ISA = qw(Exporter);
|
||||
our @EXPORT_OK = qw(init get_cached_or_render get render get_calendar_weeks configure_cache);
|
||||
our %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );
|
||||
|
||||
#my $debug='';
|
||||
|
||||
sub init{
|
||||
sub init {
|
||||
}
|
||||
|
||||
sub get_cached_or_render{
|
||||
# my $output = $_[0]
|
||||
my $config = $_[1];
|
||||
my $request = $_[2];
|
||||
sub get_cached_or_render {
|
||||
|
||||
my $parms =$request->{params}->{checked};
|
||||
my $debug=$config->{system}->{debug};
|
||||
# my $output = $_[0]
|
||||
my $config = $_[1];
|
||||
my $request = $_[2];
|
||||
|
||||
my $cache={};
|
||||
if ($config->{cache}->{use_cache} == 1){
|
||||
calendar::configure_cache($config);
|
||||
$cache=cache::load($config, $parms);
|
||||
log::write($config, 'cache',$cache->{action}) if ($debug);
|
||||
if (defined $cache->{content}){
|
||||
$_[0]=$cache->{content};
|
||||
return;
|
||||
}
|
||||
}
|
||||
my $parms = $request->{params}->{checked};
|
||||
my $debug = $config->{system}->{debug};
|
||||
|
||||
my $calendar=calendar::get($config, $request);
|
||||
log::write($config, 'calendar',$calendar) if ($debug);
|
||||
#print STDERR Dumper($calendar);
|
||||
my $cache = {};
|
||||
if ( $config->{cache}->{use_cache} == 1 ) {
|
||||
calendar::configure_cache($config);
|
||||
$cache = cache::load( $config, $parms );
|
||||
if ( defined $cache->{content} ) {
|
||||
$_[0] = $cache->{content};
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
calendar::render($_[0], $config, $request, $calendar);
|
||||
my $calendar = calendar::get( $config, $request );
|
||||
|
||||
#write to cache
|
||||
if ($config->{cache}->{use_cache} == 1){
|
||||
#todo:put out reference only
|
||||
$cache->{content}=$_[0];
|
||||
log::write($config, 'cache_files',$cache) if ($debug);
|
||||
cache::save($cache);
|
||||
}
|
||||
calendar::render( $_[0], $config, $request, $calendar );
|
||||
|
||||
#write to cache
|
||||
if ( $config->{cache}->{use_cache} == 1 ) {
|
||||
|
||||
#todo:put out reference only
|
||||
$cache->{content} = $_[0];
|
||||
cache::save($cache);
|
||||
}
|
||||
}
|
||||
|
||||
sub get {
|
||||
my $config = shift;
|
||||
my $request = shift;
|
||||
|
||||
sub get{
|
||||
my $config = shift;
|
||||
my $request = shift;
|
||||
my $params = $request->{params}->{checked};
|
||||
my $debug = $config->{system}->{debug};
|
||||
|
||||
my $params=$request->{params}->{checked};
|
||||
my $debug=$config->{system}->{debug};
|
||||
my $language = $config->{date}->{language} || 'en';
|
||||
|
||||
my $language = $config->{date}->{language} || 'en';
|
||||
my $date = $params->{date} || '';
|
||||
my $template = $params->{template} || '';
|
||||
my $from_time = $params->{from_time} || '';
|
||||
my $till_time = $params->{till_time} || '';
|
||||
|
||||
my $date = $params->{date}||'';
|
||||
my $template = $params->{template}||'';
|
||||
my $from_time = $params->{from_time}||'';
|
||||
my $till_time = $params->{till_time}||'';
|
||||
my @today = localtime( time() );
|
||||
my $today = sprintf( '%04d-%02d-%02d', 1900 + $today[5], $today[4] + 1, $today[3] );
|
||||
|
||||
my @today=localtime(time());
|
||||
my $today=sprintf('%04d-%02d-%02d', 1900+$today[5], $today[4]+1, $today[3]);
|
||||
|
||||
my $weekday_names = $time::names->{$language}->{weekdays};
|
||||
my $weekday_short_names = $time::names->{$language}->{weekdays_abbr};
|
||||
my $week_label={};
|
||||
my $c=0;
|
||||
for my $weekday (@$weekday_short_names){
|
||||
$week_label->{$weekday}=$weekday_names->[$c]||'';
|
||||
$c++;
|
||||
}
|
||||
my $weekday_names = $time::names->{$language}->{weekdays};
|
||||
my $weekday_short_names = $time::names->{$language}->{weekdays_abbr};
|
||||
my $week_label = {};
|
||||
my $c = 0;
|
||||
for my $weekday (@$weekday_short_names) {
|
||||
$week_label->{$weekday} = $weekday_names->[$c] || '';
|
||||
$c++;
|
||||
}
|
||||
|
||||
$template=~s/\'//gi;
|
||||
$from_time=~s/\'//gi;
|
||||
$till_time=~s/\'//gi;
|
||||
$template =~ s/\'//gi;
|
||||
$from_time =~ s/\'//gi;
|
||||
$till_time =~ s/\'//gi;
|
||||
|
||||
#put "clear all" filter into final results
|
||||
my $day_result={};
|
||||
my $clear_filter=$day_result;
|
||||
#put "clear all" filter into final results
|
||||
my $day_result = {};
|
||||
my $clear_filter = $day_result;
|
||||
|
||||
#put "week day" filter into final results
|
||||
my $days=[];
|
||||
$c=0;
|
||||
for my $weekday (@$weekday_short_names){
|
||||
my $day_result={
|
||||
label => $week_label->{$weekday},
|
||||
weekday => $c+1,
|
||||
weekday_parameter => 'weekday='.$c,
|
||||
weekday_short_name => $weekday_short_names->[$c] ||'',
|
||||
weekday_name => $weekday_names->[$c] ||'',
|
||||
description => qq{alle $week_label->{$weekday}-Termine anzeigen},
|
||||
};
|
||||
push @$days,$day_result;
|
||||
$c++;
|
||||
}
|
||||
#put "week day" filter into final results
|
||||
my $days = [];
|
||||
$c = 0;
|
||||
for my $weekday (@$weekday_short_names) {
|
||||
my $day_result = {
|
||||
label => $week_label->{$weekday},
|
||||
weekday => $c + 1,
|
||||
weekday_parameter => 'weekday=' . $c,
|
||||
weekday_short_name => $weekday_short_names->[$c] || '',
|
||||
weekday_name => $weekday_names->[$c] || '',
|
||||
description => qq{alle $week_label->{$weekday}-Termine anzeigen},
|
||||
};
|
||||
push @$days, $day_result;
|
||||
$c++;
|
||||
}
|
||||
|
||||
#weeks and days array
|
||||
my $weekAndDayResults=[];
|
||||
#weeks and days array
|
||||
my $weekAndDayResults = [];
|
||||
|
||||
#weekday array
|
||||
my $weekdayResults=$days;
|
||||
#weekday array
|
||||
my $weekdayResults = $days;
|
||||
|
||||
#week array
|
||||
my $weekResults=[];
|
||||
#week array
|
||||
my $weekResults = [];
|
||||
|
||||
#info hash by timedate
|
||||
my $dateInfo={};
|
||||
#info hash by timedate
|
||||
my $dateInfo = {};
|
||||
|
||||
#generate content for each day in a week in a month in a year
|
||||
#get today
|
||||
my $start_date='';
|
||||
my $end_date='';
|
||||
if ($date=~/(\d{4})\-(\d{2})/){
|
||||
my $year=$1;
|
||||
my $month=$2;
|
||||
$start_date = "$year-$month-01";
|
||||
$end_date = "$year-$month-".Date::Calc::Days_in_Month($year,$month);
|
||||
}else{
|
||||
$start_date = $params->{start_date};
|
||||
$end_date = $params->{end_date};
|
||||
}
|
||||
#generate content for each day in a week in a month in a year
|
||||
#get today
|
||||
my $start_date = '';
|
||||
my $end_date = '';
|
||||
if ( $date =~ /(\d{4})\-(\d{2})/ ) {
|
||||
my $year = $1;
|
||||
my $month = $2;
|
||||
$start_date = "$year-$month-01";
|
||||
$end_date = "$year-$month-" . Date::Calc::Days_in_Month( $year, $month );
|
||||
} else {
|
||||
$start_date = $params->{start_date};
|
||||
$end_date = $params->{end_date};
|
||||
}
|
||||
|
||||
my $previous_month=$start_date;
|
||||
if ($previous_month=~/(\d{4})\-(\d{2})/){
|
||||
my $year =$1;
|
||||
my $month=$2-1;
|
||||
$month='0'.$month if (length($month)<2);
|
||||
if ($month lt '01'){
|
||||
$year-=1;
|
||||
$month='12';
|
||||
}
|
||||
$previous_month="$year-$month-01";
|
||||
$previous_month=$params->{start_date} if ($previous_month lt $params->{start_date});
|
||||
}
|
||||
my $previous_month = $start_date;
|
||||
if ( $previous_month =~ /(\d{4})\-(\d{2})/ ) {
|
||||
my $year = $1;
|
||||
my $month = $2 - 1;
|
||||
$month = '0' . $month if ( length($month) < 2 );
|
||||
if ( $month lt '01' ) {
|
||||
$year -= 1;
|
||||
$month = '12';
|
||||
}
|
||||
$previous_month = "$year-$month-01";
|
||||
$previous_month = $params->{start_date} if ( $previous_month lt $params->{start_date} );
|
||||
}
|
||||
|
||||
my $next_month=$end_date;
|
||||
if ($next_month=~/(\d{4})\-(\d{2})/){
|
||||
my $year=$1;
|
||||
my $month=$2+1;
|
||||
$month='0'.$month if (length($month)<2);
|
||||
if ($month gt '12'){
|
||||
$year+=1;
|
||||
$month='01';
|
||||
}
|
||||
$next_month="$year-$month-01";
|
||||
$next_month=$params->{end_date} if ($next_month gt $params->{end_date});
|
||||
}
|
||||
my $next_month = $end_date;
|
||||
if ( $next_month =~ /(\d{4})\-(\d{2})/ ) {
|
||||
my $year = $1;
|
||||
my $month = $2 + 1;
|
||||
$month = '0' . $month if ( length($month) < 2 );
|
||||
if ( $month gt '12' ) {
|
||||
$year += 1;
|
||||
$month = '01';
|
||||
}
|
||||
$next_month = "$year-$month-01";
|
||||
$next_month = $params->{end_date} if ( $next_month gt $params->{end_date} );
|
||||
}
|
||||
|
||||
my $start_year=undef;
|
||||
my $start_month=undef;
|
||||
if ($start_date=~/(\d{4})\-(\d{2})/){
|
||||
$start_year=$1;
|
||||
$start_month=$2;
|
||||
}
|
||||
my $start_month_name=$time::names->{$language}->{months_abbr}->[$start_month-1];
|
||||
my $start_year = undef;
|
||||
my $start_month = undef;
|
||||
if ( $start_date =~ /(\d{4})\-(\d{2})/ ) {
|
||||
$start_year = $1;
|
||||
$start_month = $2;
|
||||
}
|
||||
my $start_month_name = $time::names->{$language}->{months_abbr}->[ $start_month - 1 ];
|
||||
|
||||
if($params->{month_only}eq'1'){
|
||||
return {
|
||||
next_month => $next_month,
|
||||
previous_month => $previous_month,
|
||||
start_year => $start_year,
|
||||
start_month => $start_month,
|
||||
start_month_name => $start_month_name
|
||||
};
|
||||
}
|
||||
if ( $params->{month_only} eq '1' ) {
|
||||
return {
|
||||
next_month => $next_month,
|
||||
previous_month => $previous_month,
|
||||
start_year => $start_year,
|
||||
start_month => $start_month,
|
||||
start_month_name => $start_month_name
|
||||
};
|
||||
}
|
||||
|
||||
my $years=calendar::get_calendar_weeks($config, $start_date, $end_date);
|
||||
my $years = calendar::get_calendar_weeks( $config, $start_date, $end_date );
|
||||
|
||||
my $dbh=db::connect($config, $request);
|
||||
my $dbh = db::connect( $config, $request );
|
||||
|
||||
my $used_days=events::get_by_date_range($dbh, $config, $start_date, $end_date,{
|
||||
exclude_projects => 1,
|
||||
exclude_locations => 1,
|
||||
});
|
||||
my $used_day={};
|
||||
for my $day(@$used_days){
|
||||
$used_day->{$day->{start_date}}=1;
|
||||
}
|
||||
my $used_days = events::get_by_date_range(
|
||||
$dbh, $config,
|
||||
$start_date,
|
||||
$end_date,
|
||||
{
|
||||
exclude_projects => 1,
|
||||
exclude_locations => 1,
|
||||
}
|
||||
);
|
||||
my $used_day = {};
|
||||
for my $day (@$used_days) {
|
||||
$used_day->{ $day->{start_date} } = 1;
|
||||
}
|
||||
|
||||
for my $year (sort {$a <=> $b} keys %$years){
|
||||
my $months=$years->{$year};
|
||||
for my $year ( sort { $a <=> $b } keys %$years ) {
|
||||
my $months = $years->{$year};
|
||||
|
||||
for my $month (sort {$a <=> $b} keys %$months){
|
||||
my $weeks=$months->{$month};
|
||||
for my $month ( sort { $a <=> $b } keys %$months ) {
|
||||
my $weeks = $months->{$month};
|
||||
|
||||
my $weekCounter=1;
|
||||
for my $week (@$weeks){
|
||||
my $dayResults=[];
|
||||
my $weekCounter = 1;
|
||||
for my $week (@$weeks) {
|
||||
my $dayResults = [];
|
||||
|
||||
my $week_end =undef;
|
||||
my $week_start=undef;
|
||||
my $week_end = undef;
|
||||
my $week_start = undef;
|
||||
|
||||
my $week_of_year=undef;
|
||||
my $woy_year = undef;
|
||||
my $week_of_year = undef;
|
||||
my $woy_year = undef;
|
||||
|
||||
for my $date (@$week){
|
||||
my ($year, $month, $day)=split(/\-/,$date);
|
||||
my $weekday=0;
|
||||
my $day_result=undef;
|
||||
for my $date (@$week) {
|
||||
my ( $year, $month, $day ) = split( /\-/, $date );
|
||||
my $weekday = 0;
|
||||
my $day_result = undef;
|
||||
|
||||
($week_of_year,$woy_year) = Date::Calc::Week_of_Year($year,$month,$day) unless defined $week_of_year;
|
||||
( $week_of_year, $woy_year ) = Date::Calc::Week_of_Year( $year, $month, $day ) unless defined $week_of_year;
|
||||
|
||||
$day_result={
|
||||
date => $date,
|
||||
date_parameter => 'date='.$date,
|
||||
day => $day,
|
||||
year => $year,
|
||||
month => $month,
|
||||
};
|
||||
$day_result->{time} =$from_time if defined $from_time;
|
||||
$day_result = {
|
||||
date => $date,
|
||||
date_parameter => 'date=' . $date,
|
||||
day => $day,
|
||||
year => $year,
|
||||
month => $month,
|
||||
};
|
||||
$day_result->{time} = $from_time if defined $from_time;
|
||||
|
||||
$day_result->{class}.= ' calcms_today' if $date eq $today;
|
||||
$day_result->{class}.= ' selected' if defined $used_day->{$date};
|
||||
$day_result->{class}.= " week_$weekCounter";
|
||||
$day_result->{class}.= " other_month" if ($weekCounter<2) && ($day gt "15");
|
||||
$day_result->{class}.= " other_month" if ($weekCounter>3) && ($day lt "15");
|
||||
$day_result->{class}=~s/^\s+//g;
|
||||
$day_result->{class} .= ' calcms_today' if $date eq $today;
|
||||
$day_result->{class} .= ' selected' if defined $used_day->{$date};
|
||||
$day_result->{class} .= " week_$weekCounter";
|
||||
$day_result->{class} .= " other_month" if ( $weekCounter < 2 ) && ( $day gt "15" );
|
||||
$day_result->{class} .= " other_month" if ( $weekCounter > 3 ) && ( $day lt "15" );
|
||||
$day_result->{class} =~ s/^\s+//g;
|
||||
|
||||
$week_start =$day unless defined $week_start;
|
||||
$week_end =$day;
|
||||
$week_start = $day unless defined $week_start;
|
||||
$week_end = $day;
|
||||
|
||||
log::write($config, 'day_results',$day_result)if ($debug);
|
||||
$day_result->{weekday_name} = $weekday_names->[$weekday];
|
||||
$day_result->{weekday_short_name} = $weekday_short_names->[$weekday];
|
||||
$day_result->{weekday} = $weekday + 1;
|
||||
|
||||
$day_result->{weekday_name}=$weekday_names->[$weekday];
|
||||
$day_result->{weekday_short_name}=$weekday_short_names->[$weekday];
|
||||
$day_result->{weekday}=$weekday+1;
|
||||
$dateInfo->{ $day_result->{date} } = $day_result->{weekday} if defined $day_result->{date};
|
||||
|
||||
$dateInfo->{$day_result->{date}}=$day_result->{weekday} if defined $day_result->{date};
|
||||
push @$dayResults, $day_result;
|
||||
$weekday++;
|
||||
|
||||
push @$dayResults, $day_result;
|
||||
$weekday++;
|
||||
} #end for days
|
||||
|
||||
}#end for days
|
||||
#week filter
|
||||
my $start_date = $week->[0];
|
||||
my $end_date = $week->[-1];
|
||||
|
||||
#week filter
|
||||
my $start_date=$week->[0];
|
||||
my $end_date =$week->[-1];
|
||||
my $week_result = {
|
||||
from_date => $start_date,
|
||||
till_date => $end_date,
|
||||
week_start => $week_start,
|
||||
week_end => $week_end,
|
||||
week_month => sprintf( "%2d", $month ),
|
||||
week_year => $year,
|
||||
week_of_year => $week_of_year,
|
||||
};
|
||||
|
||||
my $week_result={
|
||||
from_date => $start_date,
|
||||
till_date => $end_date,
|
||||
week_start => $week_start,
|
||||
week_end => $week_end,
|
||||
week_month => sprintf("%2d",$month),
|
||||
week_year => $year,
|
||||
week_of_year => $week_of_year,
|
||||
};
|
||||
$week_result->{class} .= ' selected'
|
||||
if ( ( ( defined $params->{from_date} ) && ( $start_date eq $params->{from_date} ) )
|
||||
|| ( ( defined $params->{till_date} ) && ( $end_date eq $params->{till_date} ) ) );
|
||||
$week_result->{class} .= " week_$weekCounter";
|
||||
$week_result->{class} =~ s/^\s+//g;
|
||||
|
||||
$week_result->{class}.= ' selected' if (
|
||||
((defined $params->{from_date}) && ($start_date eq $params->{from_date}))
|
||||
|| ((defined $params->{till_date}) && ($end_date eq $params->{till_date}))
|
||||
);
|
||||
$week_result->{class}.= " week_$weekCounter";
|
||||
$week_result->{class}=~s/^\s+//g;
|
||||
push @$weekResults, $week_result;
|
||||
|
||||
push @$weekResults, $week_result;
|
||||
|
||||
push @$weekAndDayResults,{
|
||||
days=>$dayResults,
|
||||
week=>[$week_result]
|
||||
};
|
||||
$weekCounter++;
|
||||
push @$weekAndDayResults,
|
||||
{
|
||||
days => $dayResults,
|
||||
week => [$week_result]
|
||||
};
|
||||
$weekCounter++;
|
||||
|
||||
}#end week
|
||||
} #end week
|
||||
|
||||
}#end month
|
||||
} #end month
|
||||
|
||||
}#end year
|
||||
} #end year
|
||||
|
||||
for my $weekday (@$weekdayResults){
|
||||
$weekday->{start_date} = $start_date;
|
||||
$weekday->{end_date} = $end_date;
|
||||
}
|
||||
|
||||
return {
|
||||
week_and_days => $weekAndDayResults,
|
||||
weekdays => $weekdayResults,
|
||||
weeks => $weekResults,
|
||||
days => $dateInfo,
|
||||
next_month => $next_month,
|
||||
previous_month => $previous_month,
|
||||
start_date => $start_date,
|
||||
end_date => $end_date,
|
||||
start_month_name => $start_month_name,
|
||||
start_month => $start_month,
|
||||
start_year => $start_year,
|
||||
base_url => $config->{locations}->{base_url},
|
||||
cache_base_url => $config->{cache}->{base_url},
|
||||
controllers => $config->{controllers},
|
||||
};
|
||||
for my $weekday (@$weekdayResults) {
|
||||
$weekday->{start_date} = $start_date;
|
||||
$weekday->{end_date} = $end_date;
|
||||
}
|
||||
|
||||
return {
|
||||
week_and_days => $weekAndDayResults,
|
||||
weekdays => $weekdayResults,
|
||||
weeks => $weekResults,
|
||||
days => $dateInfo,
|
||||
next_month => $next_month,
|
||||
previous_month => $previous_month,
|
||||
start_date => $start_date,
|
||||
end_date => $end_date,
|
||||
start_month_name => $start_month_name,
|
||||
start_month => $start_month,
|
||||
start_year => $start_year,
|
||||
base_url => $config->{locations}->{base_url},
|
||||
cache_base_url => $config->{cache}->{base_url},
|
||||
controllers => $config->{controllers},
|
||||
};
|
||||
|
||||
}
|
||||
|
||||
sub render{
|
||||
# my $out = $_[0];
|
||||
my $config = $_[1];
|
||||
my $request = $_[2];
|
||||
my $calendar = $_[3];
|
||||
sub render {
|
||||
|
||||
my $parms =$request->{params}->{checked};
|
||||
my $debug=$config->{system}->{debug};
|
||||
# my $out = $_[0];
|
||||
my $config = $_[1];
|
||||
my $request = $_[2];
|
||||
my $calendar = $_[3];
|
||||
|
||||
my $template_parameters=$calendar;
|
||||
$template_parameters->{debug} = $config->{system}->{debug};
|
||||
$template_parameters->{base_url} = $config->{locations}->{base_url};
|
||||
$template_parameters->{cache_base_url} = $config->{cache}->{base_url};
|
||||
$template_parameters->{server_cache} = $config->{cache}->{server_cache} if ($config->{cache}->{server_cache});
|
||||
$template_parameters->{use_client_cache} = $config->{cache}->{use_client_cache} if ($config->{cache}->{use_client_cache});
|
||||
my $parms = $request->{params}->{checked};
|
||||
my $debug = $config->{system}->{debug};
|
||||
|
||||
template::process($_[0], $parms->{template}, $template_parameters);
|
||||
my $template_parameters = $calendar;
|
||||
$template_parameters->{debug} = $config->{system}->{debug};
|
||||
$template_parameters->{base_url} = $config->{locations}->{base_url};
|
||||
$template_parameters->{cache_base_url} = $config->{cache}->{base_url};
|
||||
$template_parameters->{server_cache} = $config->{cache}->{server_cache} if ( $config->{cache}->{server_cache} );
|
||||
$template_parameters->{use_client_cache} = $config->{cache}->{use_client_cache} if ( $config->{cache}->{use_client_cache} );
|
||||
|
||||
template::process( $_[0], $parms->{template}, $template_parameters );
|
||||
}
|
||||
|
||||
sub get_calendar_weeks{
|
||||
my $config = shift;
|
||||
my $start = shift;
|
||||
my $end = shift;
|
||||
sub get_calendar_weeks {
|
||||
my $config = shift;
|
||||
my $start = shift;
|
||||
my $end = shift;
|
||||
|
||||
my $debug = $config->{system}->{debug};
|
||||
my $debug = $config->{system}->{debug};
|
||||
|
||||
$start = time::date_to_array($start);
|
||||
$end = time::date_to_array($end);
|
||||
$start = time::date_to_array($start);
|
||||
$end = time::date_to_array($end);
|
||||
|
||||
my $start_year = int($start->[0]);
|
||||
my $end_year = int($end->[0]);
|
||||
my $start_year = int( $start->[0] );
|
||||
my $end_year = int( $end->[0] );
|
||||
|
||||
my $start_month = int($start->[1]);
|
||||
my $end_month = int($end->[1]);
|
||||
my $start_month = int( $start->[1] );
|
||||
my $end_month = int( $end->[1] );
|
||||
|
||||
my $years={};
|
||||
for my $year ($start_year..$end_year){
|
||||
my $months={};
|
||||
for my $month ($start_month..$end_month){
|
||||
#get week arrays of days of the month
|
||||
my $weeks=getWeeksOfMonth($year, $month);
|
||||
$months->{$month}=$weeks;
|
||||
}
|
||||
$years->{$year}=$months;
|
||||
}
|
||||
log::write($config, 'years',$years)if ($debug);
|
||||
return $years;
|
||||
my $years = {};
|
||||
for my $year ( $start_year .. $end_year ) {
|
||||
my $months = {};
|
||||
for my $month ( $start_month .. $end_month ) {
|
||||
|
||||
#get week arrays of days of the month
|
||||
my $weeks = getWeeksOfMonth( $year, $month );
|
||||
$months->{$month} = $weeks;
|
||||
}
|
||||
$years->{$year} = $months;
|
||||
}
|
||||
return $years;
|
||||
}
|
||||
|
||||
sub getWeeksOfMonth{
|
||||
my $thisYear = shift;
|
||||
my $thisMonth = shift;
|
||||
my $thisDay = 1;
|
||||
sub getWeeksOfMonth {
|
||||
my $thisYear = shift;
|
||||
my $thisMonth = shift;
|
||||
my $thisDay = 1;
|
||||
|
||||
# get weekday of 1st of month
|
||||
my $thisMonthWeekday = Date::Calc::Day_of_Week($thisYear,$thisMonth,1);
|
||||
|
||||
# get next month date
|
||||
my($nextYear, $nextMonth, $nextDay)=Date::Calc::Add_Delta_YM($thisYear,$thisMonth,$thisDay, 0,1);
|
||||
# get weekday of 1st of next month
|
||||
my $nextMonthWeekday = Date::Calc::Day_of_Week($nextYear, $nextMonth, $nextDay);
|
||||
my($lastYear, $lastMonth, $lastDayOfMonth)=Date::Calc::Add_Delta_Days($nextYear,$nextMonth,$nextDay, -1);
|
||||
# get weekday of 1st of month
|
||||
my $thisMonthWeekday = Date::Calc::Day_of_Week( $thisYear, $thisMonth, 1 );
|
||||
|
||||
# get date of 1st of row
|
||||
my( $week,$year) = Date::Calc::Week_of_Year($thisYear,$thisMonth,$thisDay);
|
||||
($year,my $month, my $day) = Date::Calc::Monday_of_Week($week,$year);
|
||||
|
||||
my @weeks=();
|
||||
my $weekday=1;
|
||||
# get next month date
|
||||
my ( $nextYear, $nextMonth, $nextDay ) = Date::Calc::Add_Delta_YM( $thisYear, $thisMonth, $thisDay, 0, 1 );
|
||||
|
||||
{
|
||||
# first week
|
||||
my @days=();
|
||||
for $weekday(0 .. $thisMonthWeekday-2){
|
||||
push @days, sprintf("%04d-%02d-%02d",$year,$month,$day);
|
||||
$day++;
|
||||
}
|
||||
# set current month
|
||||
$month = $thisMonth;
|
||||
$year = $thisYear;
|
||||
$day = 1;
|
||||
for $weekday($thisMonthWeekday..7){
|
||||
push @days, sprintf("%04d-%02d-%02d",$year,$month,$day);
|
||||
$day++;
|
||||
}
|
||||
# next week
|
||||
push @weeks, \@days;
|
||||
}
|
||||
|
||||
# weeks until end of month
|
||||
while(scalar(@weeks)<6){
|
||||
my @days=();
|
||||
$weekday=1;
|
||||
while($weekday<=7){
|
||||
push @days, sprintf("%04d-%02d-%02d",$year,$month,$day);
|
||||
$day++;
|
||||
$weekday++;
|
||||
last if $day>$lastDayOfMonth;
|
||||
}
|
||||
# get weekday of 1st of next month
|
||||
my $nextMonthWeekday = Date::Calc::Day_of_Week( $nextYear, $nextMonth, $nextDay );
|
||||
my ( $lastYear, $lastMonth, $lastDayOfMonth ) = Date::Calc::Add_Delta_Days( $nextYear, $nextMonth, $nextDay, -1 );
|
||||
|
||||
if ($day>$lastDayOfMonth){
|
||||
# set next month
|
||||
$month=$nextMonth;
|
||||
$year=$nextYear;
|
||||
$day=1;
|
||||
# get date of 1st of row
|
||||
my ( $week, $year ) = Date::Calc::Week_of_Year( $thisYear, $thisMonth, $thisDay );
|
||||
( $year, my $month, my $day ) = Date::Calc::Monday_of_Week( $week, $year );
|
||||
|
||||
if ($nextMonthWeekday!=1){
|
||||
# finish end week
|
||||
if($weekday<=7){
|
||||
while( $weekday<=7){
|
||||
push @days, sprintf("%04d-%02d-%02d",$year,$month,$day);
|
||||
$day++;
|
||||
$weekday++;
|
||||
}
|
||||
}
|
||||
}
|
||||
push @weeks, \@days;
|
||||
last;
|
||||
};
|
||||
push @weeks, \@days if $weeks[-1]->[-1] ne $days[-1];
|
||||
}
|
||||
|
||||
#coming weeks
|
||||
while(scalar(@weeks)<6){
|
||||
my @days=();
|
||||
for $weekday(1..7){
|
||||
push @days, sprintf("%04d-%02d-%02d",$year,$month,$day);
|
||||
$day++;
|
||||
}
|
||||
push @weeks, \@days;
|
||||
}
|
||||
return \@weeks;
|
||||
my @weeks = ();
|
||||
my $weekday = 1;
|
||||
|
||||
{
|
||||
# first week
|
||||
my @days = ();
|
||||
for $weekday ( 0 .. $thisMonthWeekday - 2 ) {
|
||||
push @days, sprintf( "%04d-%02d-%02d", $year, $month, $day );
|
||||
$day++;
|
||||
}
|
||||
|
||||
# set current month
|
||||
$month = $thisMonth;
|
||||
$year = $thisYear;
|
||||
$day = 1;
|
||||
for $weekday ( $thisMonthWeekday .. 7 ) {
|
||||
push @days, sprintf( "%04d-%02d-%02d", $year, $month, $day );
|
||||
$day++;
|
||||
}
|
||||
|
||||
# next week
|
||||
push @weeks, \@days;
|
||||
}
|
||||
|
||||
# weeks until end of month
|
||||
while ( scalar(@weeks) < 6 ) {
|
||||
my @days = ();
|
||||
$weekday = 1;
|
||||
while ( $weekday <= 7 ) {
|
||||
push @days, sprintf( "%04d-%02d-%02d", $year, $month, $day );
|
||||
$day++;
|
||||
$weekday++;
|
||||
last if $day > $lastDayOfMonth;
|
||||
}
|
||||
|
||||
if ( $day > $lastDayOfMonth ) {
|
||||
|
||||
# set next month
|
||||
$month = $nextMonth;
|
||||
$year = $nextYear;
|
||||
$day = 1;
|
||||
|
||||
if ( $nextMonthWeekday != 1 ) {
|
||||
|
||||
# finish end week
|
||||
if ( $weekday <= 7 ) {
|
||||
while ( $weekday <= 7 ) {
|
||||
push @days, sprintf( "%04d-%02d-%02d", $year, $month, $day );
|
||||
$day++;
|
||||
$weekday++;
|
||||
}
|
||||
}
|
||||
}
|
||||
push @weeks, \@days;
|
||||
last;
|
||||
}
|
||||
push @weeks, \@days if $weeks[-1]->[-1] ne $days[-1];
|
||||
}
|
||||
|
||||
#coming weeks
|
||||
while ( scalar(@weeks) < 6 ) {
|
||||
my @days = ();
|
||||
for $weekday ( 1 .. 7 ) {
|
||||
push @days, sprintf( "%04d-%02d-%02d", $year, $month, $day );
|
||||
$day++;
|
||||
}
|
||||
push @weeks, \@days;
|
||||
}
|
||||
return \@weeks;
|
||||
}
|
||||
|
||||
sub configure_cache{
|
||||
my $config = shift;
|
||||
my $debug=$config->{system}->{debug};
|
||||
sub configure_cache {
|
||||
my $config = shift;
|
||||
my $debug = $config->{system}->{debug};
|
||||
|
||||
cache::init();
|
||||
cache::init();
|
||||
|
||||
my $date_pattern = $cache::date_pattern;
|
||||
my $controllers = $config->{controllers};
|
||||
my $date_pattern = $cache::date_pattern;
|
||||
my $controllers = $config->{controllers};
|
||||
|
||||
cache::add_map('' , $controllers->{calendar}.'/cal.html');
|
||||
cache::add_map('date='.$date_pattern , $controllers->{calendar}.'/$1-$2.html');
|
||||
cache::add_map('from_date='.$date_pattern.'&till_date='.$date_pattern , $controllers->{calendar}.'/$1-$2_$5-$6.html');
|
||||
cache::add_map( '', $controllers->{calendar} . '/cal.html' );
|
||||
cache::add_map( 'date=' . $date_pattern, $controllers->{calendar} . '/$1-$2.html' );
|
||||
cache::add_map( 'from_date=' . $date_pattern . '&till_date=' . $date_pattern, $controllers->{calendar} . '/$1-$2_$5-$6.html' );
|
||||
|
||||
log::write($config, 'cache_files',cache::get_map()) if ($debug);
|
||||
}
|
||||
|
||||
sub check_params{
|
||||
my $config=shift;
|
||||
my $params=shift;
|
||||
sub check_params {
|
||||
my $config = shift;
|
||||
my $params = shift;
|
||||
|
||||
#get start and stop from projects
|
||||
my $range= project::get_date_range($config);
|
||||
my $start_date = $range->{start_date};
|
||||
my $end_date = $range->{end_date};
|
||||
#get start and stop from projects
|
||||
my $range = project::get_date_range($config);
|
||||
my $start_date = $range->{start_date};
|
||||
my $end_date = $range->{end_date};
|
||||
|
||||
#switch off limiting end date by project
|
||||
my $open_end=0;
|
||||
if((defined $params->{'open_end'})&&($params->{'open_end'}=~/(\d+)/)){
|
||||
$open_end = $1;
|
||||
$end_date = time::add_days_to_datetime(time::time_to_datetime(), 365);
|
||||
}
|
||||
#switch off limiting end date by project
|
||||
my $open_end = 0;
|
||||
if ( ( defined $params->{'open_end'} ) && ( $params->{'open_end'} =~ /(\d+)/ ) ) {
|
||||
$open_end = $1;
|
||||
$end_date = time::add_days_to_datetime( time::time_to_datetime(), 365 );
|
||||
}
|
||||
|
||||
my $month_only=$params->{month_only}||'';
|
||||
my $month_only = $params->{month_only} || '';
|
||||
|
||||
#filter for date
|
||||
my $date=time::check_date($params->{date});
|
||||
#filter for date
|
||||
my $date = time::check_date( $params->{date} );
|
||||
|
||||
$date =$start_date if ($date lt $start_date);
|
||||
$date =$end_date if ($date gt $end_date);
|
||||
log::error($config, "no valid year-month format given!") if ($date eq"-1");
|
||||
$date = $start_date if ( $date lt $start_date );
|
||||
$date = $end_date if ( $date gt $end_date );
|
||||
log::error( $config, "no valid year-month format given!" ) if ( $date eq "-1" );
|
||||
|
||||
my $time=time::check_time($params->{time});
|
||||
log::error($config, "no valid time format given!") if ($time eq"-1");
|
||||
my $time = time::check_time( $params->{time} );
|
||||
log::error( $config, "no valid time format given!" ) if ( $time eq "-1" );
|
||||
|
||||
my $from_date=time::check_date($params->{from_date})||'';
|
||||
log::error($config, "no valid date format given!") if (defined $from_date && $from_date eq"-1");
|
||||
$from_date =$start_date if ($from_date lt $start_date);
|
||||
$from_date =$end_date if ($from_date gt $end_date);
|
||||
my $from_date = time::check_date( $params->{from_date} ) || '';
|
||||
log::error( $config, "no valid date format given!" ) if ( defined $from_date && $from_date eq "-1" );
|
||||
$from_date = $start_date if ( $from_date lt $start_date );
|
||||
$from_date = $end_date if ( $from_date gt $end_date );
|
||||
|
||||
my $till_date=time::check_date($params->{till_date}||'');
|
||||
log::error($config, "no valid date format given!") if (defined $till_date && $till_date eq"-1");
|
||||
$till_date =$start_date if ($till_date lt $start_date);
|
||||
$till_date =$end_date if ($till_date gt $end_date);
|
||||
my $till_date = time::check_date( $params->{till_date} || '' );
|
||||
log::error( $config, "no valid date format given!" ) if ( defined $till_date && $till_date eq "-1" );
|
||||
$till_date = $start_date if ( $till_date lt $start_date );
|
||||
$till_date = $end_date if ( $till_date gt $end_date );
|
||||
|
||||
my $template=template::check($params->{template},'calendar.html');
|
||||
my $template = template::check( $params->{template}, 'calendar.html' );
|
||||
|
||||
my $debug=$params->{debug};
|
||||
if ((defined $debug) && ($debug=~/([a-z\_\,]+)/)){
|
||||
$debug=$1;
|
||||
}
|
||||
my $debug = $params->{debug};
|
||||
if ( ( defined $debug ) && ( $debug =~ /([a-z\_\,]+)/ ) ) {
|
||||
$debug = $1;
|
||||
}
|
||||
|
||||
return {
|
||||
template => $template,
|
||||
date => $date,
|
||||
from_date => $from_date,
|
||||
till_date => $till_date,
|
||||
debug => $debug,
|
||||
month_only => $month_only,
|
||||
open_end => $open_end,
|
||||
start_date => $start_date,
|
||||
end_date => $end_date
|
||||
}
|
||||
return {
|
||||
template => $template,
|
||||
date => $date,
|
||||
from_date => $from_date,
|
||||
till_date => $till_date,
|
||||
debug => $debug,
|
||||
month_only => $month_only,
|
||||
open_end => $open_end,
|
||||
start_date => $start_date,
|
||||
end_date => $end_date
|
||||
};
|
||||
}
|
||||
|
||||
#do not delete last line!
|
||||
1;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user