Fachmentorielle Betreuung

use Imperia; # Konstanten $filemaske = ".*\.shtml"; $root_dir = $imperia->common->{system_conf}->{'SITE-DIR'}; $root_dir =~ s/site/htdocs/; $readdir = $metainfo->getValues("directory"); $ssi_dir_rewi = '/rewi/include'; $stzurl = $metainfo->getValues("stz_url"); $ssi_dir = $stzurl.'/include'; $stzname = $metainfo->getValues("stz"); $stz = lc($stzname); $stz =~ s/ä/ae/g; $stz =~ s/ö/oe/g; $stz =~ s/ü/ue/g; $stz =~ s/ß/ss/g; $maxRSS = 5; # Anzahl der Nachrichten im RSS-Feed $xmlRSS = "\n\n\nAktuelle Aenderungen zur fachmentoriellen Betreuung im Regional-/Studienzentrum $stzname\nhttp://www.fernuni-hagen.de$stzurl/betreuung\n\n"; sub vergleichen_kurs() { #Sortierung nach Fakultät,Titel my $a_faku = $FILE_META{$a}->{fakultaet_name}; my $b_faku = $FILE_META{$b}->{fakultaet_name}; $a_faku = "zzz" if ($a_faku eq ""); $b_faku = "zzz" if ($b_faku eq ""); if($a_faku ne $b_faku){ return ($a_faku cmp $b_faku); } return ($FILE_META{$a}->{titel} cmp $FILE_META{$b}->{titel}); }#sub 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); } clearlist(); filemask($filemaske); ireaddir($readdir); @FILELIST = sort(vergleichen_kurs @FILELIST); #&log("<--->"); my $laenge = @FILELIST; my $zaehler = 0; my $fakultaet = ''; my $ssi_inhalt = ''; my $stz_inhalt = ''; my $rdfSeq = ''; my $items = ''; my $rss_inhalt = ''; foreach my $file (@FILELIST) { my $directory = $FILE_META{$file}->{directory}; my $filename = $FILE_META{$file}->{filename}; my $mentor = $FILE_META{$file}->{mentor_name}; my $aenderung = $FILE_META{$file}->{aenderungen}; my $kurs_nr = $FILE_META{$file}->{kurs_nr}; my $rssUrl = "https://www.fernuni-hagen.de$directory/$filename"; my $semester = $FILE_META{$file}->{semester}; $semester =~ s/Wintersemester/WiSe/; $semester =~ s/Sommersemester/SoSe/; my $mentor_name = $FILE_META{$file}->{mentor_name}; my $fakultaet_name = $FILE_META{$file}->{fakultaet_name}; my $faku_kurz = $FILE_META{$file}->{fakultaet}; my $modultitel = $FILE_META{$file}->{modultitel}; my $modul_nr = $FILE_META{$file}->{modul_nr}; my $modul_nr_ksw = $FILE_META{$file}->{modul_nr_ksw}; $modul_nr = $modul_nr_ksw if ($modul_nr_ksw); my $virtuell = $FILE_META{$file}->{virtuell}; my $auch_virtuell = $FILE_META{$file}->{auch_virtuell}; my $keineIndexseite = not( $filename =~ /^index\.(shtml|php)$/ ); #Ausgabe fuer Uebersichtsseite if ($keineIndexseite) { my $fakultaet_neu = "".$fakultaet_name; if ($fakultaet_neu ne $fakultaet) { print "\n" if ($fakultaet ne ''); $fakultaet = $fakultaet_neu; if ($fakultaet ne ''){ print "\n

$fakultaet

\n\n\n\n\n\n\n\n\n\n"; } } # if fakultaet_neu if ($modul_nr){ print "\n\n"; print "\n\n"; print "\n"; print "\n\n"; } $zaehler++; } # if keineIndexseite #Ausgabe fuer stz_module-SSI erzeugen if ((($faku_kurz eq "rewi") || ($modul_nr eq "31061")) and $keineIndexseite){ my $li = "\n\n"; $li .= "\n\n\n\n"; $ssi_inhalt .= $li; } } # foreach file print "
"; print "ModulNr" if not($faku_kurz eq "mi"); print "KursNr" if ($faku_kurz eq "mi"); print ""; print "Modultitel" if not($faku_kurz eq "mi"); print "Kurstitel" if ($faku_kurz eq "mi"); print ""; print "Mentor/-in" if ($faku_kurz ne "ksw"); print "Mentor/-in | Tutor/-in" if ($faku_kurz eq "ksw"); print "SemesterAktuelle Änderungen RSS"; print "
$modul_nr$modultitel"; print " (Kurs $kurs_nr)" if ($kurs_nr && not($kurs_nr eq $modul_nr)); print " (virtuelle Veranstaltung)" if ($virtuell); print " (auch virtuelles Mentoriat)" if ($auch_virtuell); print "$mentor$semester"; print "$aenderung" if ($aenderung); print "Termine und Anmeldung unter 55103" if ($modul_nr eq "55106"); print "
$modul_nr $modultitel$mentor$semester$aenderung
\n" if ($fakultaet ne ''); if ($zaehler == 0) { print ''; }else{ print "\n"; } if ($ssi_inhalt){ $stz_inhalt = "$stzname\n\n"; $ssi_inhalt = $stz_inhalt.$ssi_inhalt; schreibeSSI($ssi_inhalt, $root_dir.$ssi_dir_rewi."/".$stz."_module.ssi"); } clearlist(); filemask($filemaske); ireaddir($readdir); sort_latest_first(); #&log("<--->"); my $zaehler = 0; my $rdfSeq_wi = ''; my $items_wi = ''; my $rss_inhalt_wi = ''; my $rdfSeq_re = ''; my $items_re = ''; my $rss_inhalt_re = ''; my $rdfSeq_ksw = ''; my $items_ksw = ''; my $rss_inhalt_ksw = ''; my $rdfSeq_mi = ''; my $items_mi = ''; my $rss_inhalt_mi = ''; foreach my $file (@FILELIST) { my $directory = $FILE_META{$file}->{directory}; my $filename = $FILE_META{$file}->{filename}; my $modul_nr = $FILE_META{$file}->{modul_nr}; my $modul_nr_ksw = $FILE_META{$file}->{modul_nr_ksw}; $modul_nr = $modul_nr_ksw if ($modul_nr_ksw); my $kurs_nr = $FILE_META{$file}->{kurs_nr}; my $virtuell = $FILE_META{$file}->{virtuell}; my $auch_virtuell = $FILE_META{$file}->{auch_virtuell}; my $aenderung = $FILE_META{$file}->{aenderungen}; my $faku_kurz = $FILE_META{$file}->{fakultaet}; my $rssUrl = "https://www.fernuni-hagen.de$directory/$filename"; $keineIndexseite = not( $filename =~ /^index\.(shtml|php)$/ ); if ($keineIndexseite and $aenderung){ #Ausgabe fuer RSS-REWI if ($faku_kurz eq "rewi"){ $rdfSeq_re .= "\n"; $items_re .= "\n$rssUrl\n<![CDATA[Modul $modul_nr"; $items_re .= " (Kurs $kur_nr)" if ($kur_nr); $items_re .= " (virtuelle Veranstaltung)" if ($virtuell); $items_re .= " (auch virtuells Mentoriat)" if ($auch_virtuell); $items_re .= " Aktuelle Meldung: $aenderung]]>\n\n"; } #Ausgabe fuer RSS-WIWI if ($faku_kurz eq "wiwi"){ $rdfSeq_wi .= "\n"; $items_wi .= "\n$rssUrl\n<![CDATA[Modul $modul_nr"; $items_wi .= " (Kurs $kur_nr)" if ($kur_nr && not($kurs_nr eq $modul_nr)); $items_wi .= " (virtuelle Veranstaltung)" if ($virtuell); $items_wi .= " (auch virtuelles Mentoriat)" if ($auch_virtuell); $items_wi .= " Aktuelle Meldung: $aenderung]]>\n\n"; } #Ausgabe fuer RSS-KSW if ($faku_kurz eq "ksw"){ $rdfSeq_ksw .= "\n"; $items_ksw .= "\n$rssUrl\n<![CDATA[Modul $modul_nr"; $items_ksw .= " (Kurs $kur_nr)" if ($kur_nr && not($kurs_nr eq $modul_nr)); $items_ksw .= " (virtuelle Veranstaltung)" if ($virtuell); $items_ksw .= " (auch virtuelles Mentoriat)" if ($auch_virtuell); $items_ksw .= " Aktuelle Meldung: $aenderung]]>\n\n"; } #Ausgabe fuer RSS-MI if ($faku_kurz eq "mi"){ $rdfSeq_mi .= "\n"; $items_mi .= "\n$rssUrl\n<![CDATA[Modul $modul_nr"; $items_mi .= " (Kurs $kur_nr)" if ($kur_nr && not($kurs_nr eq $modul_nr)); $items_mi .= " (virtuelle Veranstaltung)" if ($virtuell); $items_mi .= " (auch virtuelles Mentoriat)" if ($auch_virtuell); $items_mi .= " Aktuelle Meldung: $aenderung]]>\n\n"; } $zaehler++; } # if keineIndexseite } # foreach file $rss_inhalt_re = "$xmlRSS$rdfSeq_re
\n$items_re\n"; $rss_inhalt_wi = "$xmlRSS$rdfSeq_wi\n$items_wi\n"; $rss_inhalt_ksw = "$xmlRSS$rdfSeq_ksw\n$items_ksw\n"; $rss_inhalt_mi = "$xmlRSS$rdfSeq_mi\n$items_mi\n"; schreibeSSI($rss_inhalt_re, $root_dir.$ssi_dir."/rss_mentoriate_re.xml") if ($rdfSeq_re); schreibeSSI($rss_inhalt_wi, $root_dir.$ssi_dir."/rss_mentoriate_wi.xml") if ($rdfSeq_wi); schreibeSSI($rss_inhalt_ksw, $root_dir.$ssi_dir."/rss_mentoriate_ksw.xml") if ($rdfSeq_ksw); schreibeSSI($rss_inhalt_mi, $root_dir.$ssi_dir."/rss_mentoriate_mi.xml") if ($rdfSeq_mi);
Studienzentrum Rheine | 25.04.2018 17:22