#!/usr/bin/perl
#
#
open(DATEI, "<$ARGV[0]") || die "Datei konnte nicht gelesen werden\n";
@passwd =<DATEI>;
close(DATEI);
#
foreach $zeile(@passwd)
        {
		$zeile =~ s/ü/ue/g;
        	$zeile =~ s/ö/oe/g;
        	$zeile =~ s/ä/ae/g;
	if ($zeile =~ m/(^.*);(.*);(.*);(.*)$/)
                {
                $date = $3;
                $kurs = $4;
                $vorname = $2;
		$vornamekurz1 = substr($vorname,0,1);
		$vornamekurz2 = substr($vorname,0,2);
                $nachname = $1;
		$nachnamekurz6 = substr($nachname,0,6);
                $login ="$4.$1.$vornamekurz2";
                $pass= "$vornamekurz1.$nachnamekurz6";
                $zeile = "$date:$nachname:$vorname:$kurs:$login:$pass\n";
                push @studs, $zeile;
                push @kurse, $kurs;
		}
	}
# Schreiben der Daten in Datei zum importieren in Schoolserver
open(IMPFILE, ">impfile.txt") || die "Die Datei konnte nicht beschrieben werden\n";
print IMPFILE "GEBURTSTAG:NACHNAME:VORNAME:KLASSE:LOGIN:PASSWORT\n";
#$i=0;
foreach $stud(@studs)
        {
        chomp $stud;
        print IMPFILE "$stud\n";
        }
close(IMPFILE);
#
#duplikate aus der Kursliste entfernen
%seen = ();
@unique = ();
foreach $item(@kurse)
        {
        $item = uc $item;
        unless ($seen{$item})
                {
                # Wenn wir hier ankommen haben wir das Element noch nicht gesehen
                $seen{$item} = 1 ;
                push (@unique, $item);
                }
        }
#
# Schreiben der Datei zur Kursmenge und anlegen der Verzeichnissstruktur
open(KURSE, ">kurse.txt") || die "Die Datei konnte nicht beschrieben werden\n";
foreach $ekurs(@unique)
        {
        chomp $ekurs;
#       mkdir $ekurs;
        print KURSE "$ekurs\n";
        }
close(KURSE);
