Forschungskolloquium

Das Historische Institut veranstaltet jeden ersten Dienstag im Monat – Ferienzeiten ausgenommen – ein Forschungskolloquium. Dazu laden wir junge Wissenschaftlerinnen und Wissenschaftler oder etablierte Kolleginnen und Kollegen ein, über ihre laufenden oder abgeschlossenen Forschungsvorhaben zu berichten. Die Vorträge dauern etwa 45 Minuten, und anschließend besteht die Möglichkeit, Fragen zu stellen und zu diskutieren. Werden Dissertationsprojekte präsentiert, die Institutsmitglieder betreuen, dann dient das Kolloquium mit Anregungen und Kritik auch als Standortbestimmung und Orientierung für das weitere Vorgehen und den Abschluss des Vorhabens. Das Kolloquium ist öffentlich, und Studierende sind herzlich eingeladen, an der Veranstaltung teilzunehmen. Bei Interesse bitten wir lediglich um eine kurze Nachricht an Karin Gockel, damit wir bei großer Nachfrage einen anderen Raum suchen können. Üblicherweise findet das Kolloquium im neuen KSW-Gebäude, Universitätsstraße 33, Gebäude 1, Raum B 0.025 statt.

use Time::Local; use Imperia; # Konstanten $filemaske = ".*\.shtml"; $root_dir = $imperia->common->{system_conf}->{'SITE-DIR'}; $root_dir =~ s/site/htdocs/; $ssi_dir = $metainfo->getValues("ssiverzeichnis"); $readdir = $metainfo->getValues("directory"); $filenameprefix = 'aktivitaeten'; $aktuelleTagen = $metainfo->getValues("tage"); # Funktion zum Vergleichen Daten in deutschem Format: TT.MM.YYYY HH:MM # (leider etwas umstaendlich und trotzdem nicht idiotensicher geworden - wegen er Uhrzeit) sub german2normdate { my $gDate = shift; # @_[0]; my $dateNorm = ""; if ($gDate =~ /\s*([0-9]{1,2})\s*\.\s*([0-9]{1,2})\s*\.\s*([0-9]{2,4})(.*)/) { $dateNorm = ""; $dateNorm .= "20" if (length($3)==2); $dateNorm .= $3; $dateNorm .= "0" if (length($2)<2); $dateNorm .= $2; $dateNorm .= "0" if (length($1)<2); $dateNorm .= $1; my $uhrzeit = $4; $uhrzeit .= ':00' if (not($uhrzeit =~ /\:/)); $uhrzeit =~ s/[^0-9]//g; $uhrzeit = substr($uhrzeit, 0, 4) if (length($uhrzeit)>4); $dateNorm .= sprintf("%04d", $uhrzeit); } return($dateNorm); } sub normdate2time { my $nDate = shift; # @_[0]; if ($nDate =~ /\s*([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2}).*/) { return timelocal(0,$5,$4,$3,$2-1,$1); } return 0; } sub cmp_germandate { my $aDate = $FILE_META{$a}->{terminvon}; my $bDate = $FILE_META{$b}->{terminvon}; my $aDateNorm = german2normdate($aDate); my $bDateNorm = german2normdate($bDate); return ($aDateNorm cmp $bDateNorm); } sub nowNormdate { my $tm = localtime(time); my $Sekunden = $tm->sec; my $Minuten = $tm->min; my $Stunden = $tm->hour; my $Monatstag = $tm->mday; my $Monat = $tm->mon + 1; my $Jahr = $tm->year + 1900; $Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat; $Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag; $Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden; $Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten; $Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden; return $Jahr.$Monat.$Monatstag . $Stunden.$Minuten; } sub schreibeSSI { my $inhalt = shift; my $datei_name = shift; &log("Schreibe:" . $datei_name); open(DATEI, ">$datei_name") || die "Kann nicht oeffnen: $datei_name"; print DATEI $inhalt; close(DATEI); } sub log(){ $s = @_[0]; $openString = (($s eq "<--->") ? ">" : ">>" ) .$root_dir.$ssi_dir."/".$filenameprefix."_log.txt"; open(DATEI, $openString) || die "Problem beim Öffnen der Log-Datei!"; print DATEI $s."\n"; close(DATEI); } #aktuelle Liste clearlist(); filemask($filemaske); ireaddir($readdir); @FILELIST = sort(cmp_germandate @FILELIST); &log("<--->"); my $laenge = @FILELIST; my $ssi_zukunft = ''; my $zaehler = 0; my $jetzt = nowNormdate(); foreach my $file (@FILELIST) { my $directory = $FILE_META{$file}->{directory}; my $filename = $FILE_META{$file}->{filename}; my $thema = $FILE_META{$file}->{thema}; my $titel = $FILE_META{$file}->{titel}; my $kategorie = $FILE_META{$file}->{kategorie}; my $terminvon = $FILE_META{$file}->{terminvon}; my $terminbis = $FILE_META{$file}->{terminbis}; my $ort = $FILE_META{$file}->{verort}; my $terminvonNorm = german2normdate($terminvon); my $terminbisNorm = german2normdate($terminbis); $terminbisNorm = $terminvonNorm if (not($terminbisNorm)); # Zum Nachpruefen, ob die Seite verlinkt werden soll. Ist wegen der Flexmodule aber unzuverlaessig! $keineIndexseite =(($filename ne "") and not( $filename =~ /^(index|sa_index|index_archiv|index_zukunft|archiv|zukunft)\.(shtml|htms)$/ )); $zukuenftig = ($jetzt<=$terminvonNorm); $differenzTage = (normdate2time($terminvonNorm) - normdate2time($jetzt)) / (24*60*60); #&log("terminvon=" .$terminvonNorm. " differenz=".$differenzTage. " zukunft=".$zukuenftig . " filename=".$filename . " keineIndexseite=". $keineIndexseite ); $aktuell = ($differenzTage<=$aktuelleTagen and $differenzTage>0); # Ausgabe fuer index.shtml if ($keineIndexseite and $zukuenftig and $aktuell) { print '' if ($zaehler==0); print ''; print ''; print ''; print ''; print ''; print ''."\n"; $zaehler++; } # if index my $s = ''; $s .= ''if ($terminbis); $s .= ''; $s .= ''; $s .= ''; $s .= ''."\n"; # Ausgabe fuer Zukunft-SSI if ($keineIndexseite and $zukuenftig and $differenzTage>$aktuelleTagen) { $ssi_zukunft .= $s; } } # foreach file if ($zaehler == 0) { print "

Zur Zeit sind keine Aktivitäten geplant.

\n"; } else { print "
TerminThemaReferentInnenOrt
'.$terminvon; print ' – '.$terminbis if ($terminbis); print ''.$thema.''; print $FILE_META{$file}->{leitung_3_0}; print ', '.$FILE_META{$file}->{leitung_3_1} if ($FILE_META{$file}->{leitung_3_1}); print ', '.$FILE_META{$file}->{leitung_3_2} if ($FILE_META{$file}->{leitung_3_2}); print ''.$ort.'
'.$terminvon; $s .= ' – '.$terminbis.''.$thema.''; $s .= $FILE_META{$file}->{leitung_3_0}; $s .= ', '.$FILE_META{$file}->{leitung_3_1} if ($FILE_META{$file}->{leitung_3_1}); $s .= ', '.$FILE_META{$file}->{leitung_3_2} if ($FILE_META{$file}->{leitung_3_2}); $s .= ''.$ort.'
\n"; } # Archiv clearlist(); filemask($filemaske); ireaddir($readdir); @FILELIST = sort(cmp_germandate @FILELIST); reverse_list(); &log("<--->"); my $laenge = @FILELIST; my $ssi_archiv = ''; my $zaehler = 0; my $jetzt = nowNormdate(); foreach my $file (@FILELIST) { my $directory = $FILE_META{$file}->{directory}; my $filename = $FILE_META{$file}->{filename}; my $thema = $FILE_META{$file}->{thema}; my $titel = $FILE_META{$file}->{titel}; my $kategorie = $FILE_META{$file}->{kategorie}; my $terminvon = $FILE_META{$file}->{terminvon}; my $terminbis = $FILE_META{$file}->{terminbis}; my $ort = $FILE_META{$file}->{verort}; my $terminvonNorm = german2normdate($terminvon); my $terminbisNorm = german2normdate($terminbis); $terminbisNorm = $terminvonNorm if (not($terminbisNorm)); # Zum Nachpruefen, ob die Seite verlinkt werden soll. Ist wegen der Flexmodule aber unzuverlaessig! $keineIndexseite =(($filename ne "") and not( $filename =~ /^(index|sa_index|index_archiv|index_zukunft|archiv|zukunft)\.(shtml|htms)$/ )); $differenzTage = (normdate2time($terminvonNorm) - normdate2time($jetzt)) / (24*60*60); #&log("terminvon=" .$terminvonNorm. " differenz=".$differenzTage. " zukunft=".$zukuenftig . " filename=".$filename . " keineIndexseite=". $keineIndexseite ); $archiv = ($differenzTage<0); # Ausgabe fuer index.shtml my $s = ''; $s .= ''.$terminvon; $s .= ' – '.$terminbis.''if ($terminbis); $s .= ''.$thema.''; $s .= ''; $s .= $FILE_META{$file}->{leitung_3_0}; $s .= ', '.$FILE_META{$file}->{leitung_3_1} if ($FILE_META{$file}->{leitung_3_1}); $s .= ', '.$FILE_META{$file}->{leitung_3_2} if ($FILE_META{$file}->{leitung_3_2}); $s .= ''; $s .= ''.$ort.''; $s .= ''."\n"; # Ausgabe fuer Archiv-SSI if ($keineIndexseite and $archiv) { $ssi_archiv .= $s; #&log("In ARCHIV: terminvon=" .$terminvonNorm. " differenz=".$differenzTage. " zukunft=".$zukuenftig . " filename=".$filename . " keineIndexseite=". $keineIndexseite . " archiv=" . $archiv); } } # foreach file Archiv $ssi_archiv = ''.$ssi_archiv.'
TerminThemaReferentInnenOrt
' if ($ssi_archiv); $ssi_zukunft = ''.$ssi_zukunft.'
TerminThemaReferentInnenOrt
' if ($ssi_zukunft); schreibeSSI($ssi_archiv, $root_dir.$ssi_dir."/".$filenameprefix."_archiv.ssi"); schreibeSSI($ssi_zukunft, $root_dir.$ssi_dir."/".$filenameprefix."_zukunft.ssi");
Karin Gockel | 23.10.2018