)(.*?)(<\/title>)/$1$title$3/; $js = ''; if ( ( defined $list->{event_id} ) && ( $list->{event_id} ne '' ) ) { $js .= qq{showCommentsByEventIdOrEventStart('$list->{event_id}','$list->{start_datetime}')}; } $content =~ s/startCalcms\;/$js/gi; #replace link to uncompressed or compressed drupal (first link in <head>) my @parts = split( /<\/head>/, $content ); $parts[0] =~ s|/misc/jquery.js|/agenda_files/js/jquery.js|; $parts[0] =~ s|/sites/default/files/js/[a-z0-9\_]+\.js|/agenda_files/js/jquery.js|; $content = join( '</head>', @parts ); print $output_header; print $content; # $r->print("done"); if ( $config->{cache}->{use_cache} eq '1' ) { $cache->{content} = $content; log::write( $config, 'cache_file', $cache->{filename} ) if ($debug); cache::save($cache); } # $config=undef; $content = undef; $cache = undef; log::mem( $config, 'aggregate done', $mem ) if ( $mem_debug > 0 ); } sub load_file { my $filename = shift; my $content = "cannot load '$filename'"; open my $FILE, '<:utf8', $filename or return \$content; $content = join( "", (<$FILE>) ); close $FILE; return \$content; }

#! /usr/bin/perl -w use warnings "all"; use strict; #use Data::Dumper; #use DBI; use CGI qw(header param Vars); #use Time::Local qw(timelocal); #use Benchmark; #use Devel::Profiler; use db(); use events(); use time(); use aggregator(); use markup(); use log(); use config(); #use params; #my $r=shift; if ( $0 =~ /aggregate.*?\.cgi$/ ) { binmode STDOUT, ":encoding(UTF-8)"; #(my $cgi, my $params, my $error)=params::get($r); my $cgi = new CGI(); my %params = $cgi->Vars(); my $params = \%params; my $config = config::get('config/config.cgi'); my $debug = $config->{system}->{debug}; my $mem_debug = $config->{system}->{debug_memory}; my $base_dir = $config->{locations}->{base_dir}; #my $cgi=new CGI(); my $output_header = ''; if ( exists $ENV{REQUEST_URI} && $ENV{REQUEST_URI} ne '' ) { $output_header .= "Content-type:text/html; charset=UTF-8;\n\n"; } $params->{exclude_locations} = 1; $params->{exclude_projects} = 1; $params->{exclude_event_images} = 1; # $output_header.=''."\n"; my $request = { url => $ENV{QUERY_STRING}, params => { original => $params, checked => aggregator::check_params( $config, $params ), }, }; $params = $request->{params}->{checked}; #print STDERR Dumper($params); my $mem = 0; log::init($request); #get result from cache my $cache = aggregator::get_cache( $config, $request ); if ( ( defined $cache->{content} ) && ( $cache->{content} ne '' ) ) { my $content = $cache->{content}; print $output_header; print $content; return; } my $content = load_file( $base_dir . './index.html' ); $content = $$content || ''; #replace HTML escaped calcms_title span by unescaped one $content =~ s/\<\;span id\="\;calcms_title"\;\>\;[^\&]*\<\;\/span\>\;/\\<\/span\>/g; # print $content; my $list = aggregator::get_list( $config, $request ); my $menu = { content => '' }; $list->{day} = '' unless defined $list->{day}; $list->{day} = $params->{date} if (defined $params->{date}) && ($params->{date} ne ''); $list->{day} = $params->{from_date} if (defined $params->{from_date}) && ($params->{from_date} ne ''); $list->{day} = 'today' if $list->{day} eq ''; $menu = aggregator::get_menu( $config, $request, $list->{day}, $list->{results} ); my $calendar = aggregator::get_calendar( $config, $request, $list->{day} ); my $newest_comments = aggregator::get_newest_comments( $config, $request ); #my $newest_comments={}; #db::disconnect($request) if (defined $request && defined $request->{connection}); #print STDERR "$list->{project_title}\n"; #build results list my $output = {}; $output->{calcms_menu} = \$menu->{content}; $output->{calcms_list} = \$list->{content}; $output->{calcms_calendar} = \$calendar->{content}; $output->{calcms_newest_comments} = \$newest_comments->{content}; # $output->{calcms_categories} = load_file($base_dir.'/cache/categories.html'); # $output->{calcms_series_names} = load_file($base_dir.'/cache/series_names.html'); # $output->{calcms_programs} = load_file($base_dir.'/cache/programs.html'); my $url = $list->{url}; my $js = qq{ set('preloaded','1'); set('last_list_url','$url'); }; $content =~ s/\/\/\s*(calcms_)?preload/$js/; #insert results into page for my $key ( keys %$output ) { my $val = ${ $output->{$key} }; my $start = index( $val, "" ); if ( $start != -1 ) { $val = substr( $val, $start + length('') ); } my $end = index( $val, "" ); if ( $end != -1 ) { $val = substr( $val, 0, $end ); } $content =~ s/(<(div|span)\s+id="$key".*?>).*?(<\/(div|span)>)/$1$val$3/g; } #replace whole element span with id="calcms_title" by value $list->{project_title} = '' unless ( defined $list->{project_title} ); $content =~ s/(<(div|span)\s+id="calcms_title".*?>).*?(<\/(div|span)>)/$list->{project_title}/g; my $values = []; for my $value ($list->{'program'}, $list->{'series_name'}, $list->{'title'}, $list->{'location'}, $list->{'project_title'}){ next unless defined $value; next if $value eq ''; push @$values, $value; } my $title = join (' - ', @$values); $content=~s/()(.*?)(<\/title>)/$1$title$3/; $js = ''; if ( ( defined $list->{event_id} ) && ( $list->{event_id} ne '' ) ) { $js .= qq{showCommentsByEventIdOrEventStart('$list->{event_id}','$list->{start_datetime}')}; } $content =~ s/startCalcms\;/$js/gi; #replace link to uncompressed or compressed drupal (first link in <head>) my @parts = split( /<\/head>/, $content ); $parts[0] =~ s|/misc/jquery.js|/agenda_files/js/jquery.js|; $parts[0] =~ s|/sites/default/files/js/[a-z0-9\_]+\.js|/agenda_files/js/jquery.js|; $content = join( '</head>', @parts ); print $output_header; print $content; # $r->print("done"); if ( $config->{cache}->{use_cache} eq '1' ) { $cache->{content} = $content; log::write( $config, 'cache_file', $cache->{filename} ) if ($debug); cache::save($cache); } # $config=undef; $content = undef; $cache = undef; log::mem( $config, 'aggregate done', $mem ) if ( $mem_debug > 0 ); } sub load_file { my $filename = shift; my $content = "cannot load '$filename'"; open my $FILE, '<:utf8', $filename or return \$content; $content = join( "", (<$FILE>) ); close $FILE; return \$content; }