# all events and webcasts from current year - now changed to only events but left the dir check for maybe later use
clearlist();
clearlimit();
filemask('.*\.html');
# ireaddir('/us/about/company/events');
ireaddir('/us/about/company/events/eventcalendar/event');
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
$Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
$Monat = $Monat + 1;
$Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat;
$Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag;
$Jahr = $Jahr + 1900;
$Stunden = "0".$Stunden if $Stunden<10;
$Minuten = "0".$Minuten if $Minuten<10;
my $checkdate = $Jahr."-".$Monat."-".$Monatstag." ".$Stunden.":".$Minuten;
my $tempcounter = 0;
my $html_list = '';
my @found;
my $checkstartdate = "$Jahr-01-01";
my $checkenddate = "2030-12-31";
my $list_kind = "";
my $local_topic = "";
foreach my $file (@FILELIST) {
my $publish_date = $FILE_META_INFO{$file}->getValues('publish_date');
my $event_date = $FILE_META_INFO{$file}->getValues('event_date');
my $archive_date = $FILE_META_INFO{$file}->getValues('archive_date');
my $expiry_date = $FILE_META_INFO{$file}->getValues('expiry_date');
my $TEASERHEADLINE = $FILE_META_INFO{$file}->getValues('TEASERHEADLINE');
if ($publish_date le $checkdate && $event_date le $checkenddate && $event_date ge $checkstartdate && $TEASERHEADLINE ne ""){
push @found, $file;
}
}
my @sortdates = map {$FILE_META_INFO{$_}->getValues('event_date') || ''} @found;
my @sorted_indices = sort {$sortdates[$a] cmp $sortdates[$b]} (0..@sortdates - 1);
foreach my $index (@sorted_indices) {
my $file = $found[$index];
my $directory = $FILE_META_INFO{$file}->getValues('directory');
if (index($directory,"eventcalendar") >= 0) {
$list_kind="event";
}elsif (index($directory,"webcasts_presentation") >= 0){
$list_kind="webcast";
}elsif (index($directory,"speaking-engagement") >= 0){
$list_kind="speaking";
}
my $filename = $FILE_META_INFO{$file}->getValues('filename');
my $TEASERHEADLINE = $FILE_META_INFO{$file}->getValues('TEASERHEADLINE');
my $TEASERHEADLINE_URL = $FILE_META_INFO{$file}->getValues('TEASERHEADLINE_URL');
my $TEASERHEADLINE_LINK_TARGET = $FILE_META_INFO{$file}->getValues('TEASERHEADLINE_LINK_TARGET');
if ($TEASERHEADLINE_URL ne "") {
$local_topic=qq|$TEASERHEADLINE|;
}else{
$local_topic=$TEASERHEADLINE;
}
my $SUBTEASERHEADLINE = $FILE_META_INFO{$file}->getValues('SUBTEASERHEADLINE');
my $TEASERTEXT = $FILE_META_INFO{$file}->getValues('TEASERTEXT');
my $event_day = $FILE_META_INFO{$file}->getValues('event_day');
my $event_month = $FILE_META_INFO{$file}->getValues('event_month');
my $event_year = $FILE_META_INFO{$file}->getValues('event_year');
$html_list .=<
$local_topic
$event_month $event_day, $event_year
$SUBTEASERHEADLINE
$TEASERTEXT
EOF
}
if ($html_list ne ""){
print $html_list;
}else{
print "
No Events and Webcasts in current Year $Jahr
";
}
