NACH OBEN

clearlist(); my $dertyp = ""; my $untertyp = ""; print "\n"; print "
\n"; print "
\n"; print "
\n"; if ($dertyp eq "") { print "

Alle Services

\n"; } else { if ($dertyp eq "Zugänge") { print "

Zugänge und Sicherheit

\n"; if ($untertyp eq "imam") { print "
Identity & Access
\n"; } elsif ($untertyp eq "sec") { print "
Security Managemant
\n"; } print "

\n"; print "

\n"; print "

\n"; } elsif ($dertyp eq "Kommunikation") { print "

Kommunikation & Zusammenarbeit

\n"; if ($untertyp eq "email") { print "
E-Mail
\n"; } elsif ($untertyp eq "telefon") { print "
Telefonie
\n"; } elsif ($untertyp eq "konferenz") { print "
Konferenz
\n"; } elsif ($untertyp eq "web") { print "
Web
\n"; } print "

\n"; print "

\n"; print "

\n"; } elsif ($dertyp eq "Hardware") { print "

Hardware

Bitte beachten Sie die Hinweise am Ende der Seite, zur Beschaffung von Rechnern und Laptops.

\n"; } elsif ($dertyp eq "Lehre") { print "

Lehr- und Lernunterstützung

\n"; if ($untertyp eq "Ausleihe") { print "
Ausleihe technischer Ausstattung
\n"; } elsif ($untertyp eq "plaetze") { print "
IT-Arbeitsplätze S&L
\n"; } elsif ($untertyp eq "medienprod") { print "
Medienproduktion
\n"; } elsif ($untertyp eq "inklusion") { print "
Inklusion
\n"; } elsif ($untertyp eq "lvsupport") { print "
Lehrveranstaltungsunterstützung
\n"; } print "

\n"; print "

\n"; print "

\n"; } elsif ($dertyp eq "Infrastruktur") { print "

Infrastruktur

\n"; if ($untertyp eq "hosting") { print "
Serverhosting
\n"; } elsif ($untertyp eq "dns") { print "
Domain Name Service
\n"; } elsif ($untertyp eq "web") { print "
Web
\n"; } print "

\n"; print "

\n"; print "

\n"; } elsif ($dertyp eq "Wissenschaft") { print "

Wissenschaft & Forschung

\n"; if ($untertyp eq "daten") { print "
Forschungsdatenmanagement
\n"; } elsif ($untertyp eq "dns") { print "
High Performance Computing
\n"; } elsif ($untertyp eq "hosting") { print "
Serverhosting
\n"; } print "

\n"; print "

\n"; print "

\n"; } elsif ($dertyp eq "Verwaltung") { print "

Verwaltung & Geschäftsfunktionen

\n"; if ($untertyp eq "tagungen") { print "
Tagungen und Veranstaltungen
\n"; } elsif ($untertyp eq "doku") { print "
Dokumentenmanagement
\n"; } print "

\n"; print "

\n"; } elsif ($dertyp eq "IT-Projektmanagement") { print "

IT-Projektmanagement

\n"; } elsif ($dertyp eq "Schulung") { print "

Schulungen

\n"; } else { print "

Diesen Service gibt es nicht

\n"; } } print "
\n"; print "
\n"; print "
\n"; filemask('.*\.html.de'); ireaddir('/services'); sort_by_metafield("newsueberschrift"); $count = 1; print "
\n"; print "
\n"; foreach my $file (@FILELIST) { my $url = $FILE_META_INFO{$file}->getValues('directory').'/'.$FILE_META_INFO{$file}->getValues('filename'); my $ueberschrift = $FILE_META_INFO{$file}->getValues('newsueberschrift'); my $bild = $FILE_META_INFO{$file}->getValues('servicebild'); my $imgtitle = $FILE_META_INFO{$file}->getValues('imgtitle'); my $title = $FILE_META_INFO{$file}->getValues('title_de'); my $teaser = $FILE_META_INFO{$file}->getValues('teaser'); # print "
$title: $url bei $dertyp
\n"; $treffer = false; if (($dertyp eq "") && ($FILE_META_INFO{$file}->getValues('directory') ne "/services/software")) { $treffer = true; } else { if (($dertyp eq "Zugänge") && ($FILE_META_INFO{$file}->getValues('serv_zugang') eq "1")) { if ($untertyp eq "") { $treffer = true; } elsif ($FILE_META_INFO{$file}->getValues('zugang_identity') eq $untertyp) { $treffer = true; } } if (($dertyp eq "Kommunikation") && ($FILE_META_INFO{$file}->getValues('serv_kommunikation') eq "1")) { if ($untertyp eq "") { $treffer = true; } elsif ($FILE_META_INFO{$file}->getValues('kommunikation') eq $untertyp) { $treffer = true; } } if (($dertyp eq "Hardware") && ($FILE_META_INFO{$file}->getValues('serv_hardware') eq "1")) { $treffer = true; } if (($dertyp eq "Software") && ($FILE_META_INFO{$file}->getValues('serv_software') eq "1")) { $treffer = true; } if (($dertyp eq "Lehre") && ($FILE_META_INFO{$file}->getValues('serv_ll') eq "1")) { if ($untertyp eq "") { $treffer = true; } elsif ($FILE_META_INFO{$file}->getValues('ll') eq $untertyp) { $treffer = true; } } if (($dertyp eq "Infrastruktur") && ($FILE_META_INFO{$file}->getValues('serv_infra') eq "1")) { if ($untertyp eq "") { $treffer = true; } elsif ($FILE_META_INFO{$file}->getValues('infra') eq $untertyp) { $treffer = true; } } if (($dertyp eq "Wissenschaft") && ($FILE_META_INFO{$file}->getValues('serv_wf') eq "1")) { if ($untertyp eq "") { $treffer = true; } elsif ($FILE_META_INFO{$file}->getValues('fowi') eq $untertyp) { $treffer = true; } } if (($dertyp eq "Verwaltung") && ($FILE_META_INFO{$file}->getValues('serv_vg') eq "1")) { if ($untertyp eq "") { $treffer = true; } elsif ($FILE_META_INFO{$file}->getValues('gz') eq $untertyp) { $treffer = true; } } if (($dertyp eq "IT-Projektmanagement") && ($FILE_META_INFO{$file}->getValues('serv_projekt') eq "1")) { $treffer = true; } if (($dertyp eq "Schulung") && ($FILE_META_INFO{$file}->getValues('serv_schulung') eq "1")) { $treffer = true; } } if (($teaser ne "") && ($treffer eq true)){ print " \n"; $count++; } } print "
\n"; print "
\n";