#Der MySQL-Code:
#create database Mitarbeiter;
#use Mitarbeiter;
#create table Mitarbeiter(
#ID integer not null auto_increment,
#Nachname varchar(45),
#vorname varchar(45),
#Telefon integer,
#Kuerzel varchar(10),
#KST integer,
#Mail varchar(45),
#Buero varchar(10)
#primary key (ID));

################################################################################

#Initialisierung

print "Telefonliste\n\n";
use strict;
use DBI;
$option = 1;
$auswahl = 1;

################################################################################

#Hauptmenue

while ($option != 0){
    print "Bitte waehlen Sie eine Option: \n";
    print "1 Person eingeben \n";
    print "2 Person suchen \n";
    print "3 Person loeschen \n";
    print "0 Beenden \n";
    print "\nIhre Wahl: ";
    $option = <STDIN>;
    print "\n";

################################################################################

#Person eingeben

    if ($option == 1){
        print "\nBitte geben Sie den Nachnamen ein. \n";
        my $nachname = <STDIN>;
        print "\nBitte geben Sie den Vornamen ein. \n";
        my $vorname = <STDIN>;
        print "\nBitte geben Sie die interne Telefonnummer ein. \n";
        my $tel = <STDIN>;
        print "\nBitte geben Sie den Kuerzel ein. \n";
        my $kuerzel = <STDIN>;
        print "\nBitte geben Sie die Kostenstelle ein. \n";
        my $kst = <STDIN>;
        print "\nBitte geben Sie die E-Mail ein. \n";
        my $mail = <STDIN>;
        print "\nBitte geben Sie die Bueronummer ein. \n";
        my $buero = <STDIN>;
        print "\n\n";
        my $database = "Mitarbeiter";
        my $hostname = "localhost";
        my $dsn = "DBI:mysql:database=$database;host=$hostname;
        my $user = "root"; my $pass = "12345";
        my $insert = qq(insert into Mitarbeiter values(null, $nachname, $vorname, $tel, $kuerzel, $kst, $mail, $buero);
        my $dbh->disconnect;
    };

################################################################################

#Person auslesen

    if ($option == 2){

################################################################################

#Menue Suchen_nach

        while ($auswahl != 0){
            print "1 Suchen nach Nachname \n";
            print "2 Suchen nach Vorname \n";
            print "3 Suchen nach Telefonnummer \n";
            print "4 Suchen nach Kuerzel \n";
            print "5 Suchen nach Kostenstelle \n";
            print "6 Suchen nach E-Mail \n";
            print "7 Suchen nach Buero \n";
            print "0 Hauptmenue \n";
            print "\nIhre Wahl: ";
            $auswahl = <STDIN>;

################################################################################

#Nach Nachnamen suchen

            if ($auswahl == 1){
               
 print "\nBitte geben Sie den Nachnamen ein. \n";
               
 my $search = <STDIN>;
               
 my $database = "Mitarbeiter";
               
 my $hostname = "localhost";
               
 my $dsn = "DBI:mysql:database=$database;host=$hostname;
               
 my $user = "root"; my $pass = "12345";
               
 my $result = qq(select * from Mitarbeiter where Nachname == $search);
               
 my $dbh->disconnect;
            };

################################################################################

#Nach Vornamen suchen

            if ($auswahl == 2){
               
 print "\nBitte geben Sie den Vornamen ein. \n";
               
 my $search = <STDIN>;
               
 my $database = "Mitarbeiter";
               
 my $hostname = "localhost";
               
 my $dsn = "DBI:mysql:database=$database;host=$hostname;
               
 my $user = "root"; my $pass = "12345";
               
 my $result = qq(select * from Mitarbeiter where Vorname == $search);
               
 my $dbh->disconnect;
            };

################################################################################

#Nach Telefonnummer suchen

            if ($auswahl == 3){
               
 print "\nBitte geben Sie die Telefonnummer ein. \n";
               
 my $search = <STDIN>;
               
 my $database = "Mitarbeiter";
               
 my $hostname = "localhost";
               
 my $dsn = "DBI:mysql:database=$database;host=$hostname;
               
 my $user = "root"; my $pass = "12345";
               
 my $result = qq(select * from Mitarbeiter where Telefon == $search);
               
 my $dbh->disconnect;
            };

################################################################################

#Nach Kuerzel suchen

            if ($auswahl == 4){
               
 print "\nBitte geben Sie den Kuerzel ein. \n";
               
 my $search = <STDIN>;
               
 my $database = "Mitarbeiter";
               
 my $hostname = "localhost";
               
 my $dsn = "DBI:mysql:database=$database;host=$hostname;
               
 my $user = "root"; my $pass = "12345";
               
 my $result = qq(select * from Mitarbeiter where Kuerzel == $search);
               
 my $dbh->disconnect;
            };

################################################################################

#Nach Kostenstelle suchen

            if ($auswahl == 5){
               
 print "\nBitte geben Sie die Kostenstelle ein. \n";
               
 my $search = <STDIN>;
               
 my $database = "Mitarbeiter";
               
 my $hostname = "localhost";
               
 my $dsn = "DBI:mysql:database=$database;host=$hostname;
               
 my $user = "root"; my $pass = "12345";
               
 my $result = qq(select * from Mitarbeiter where KST == $search);
               
 my $dbh->disconnect;
            };

################################################################################

#Nach E-Mail suchen

            if ($auswahl == 6){
               
 print "\nBitte geben Sie die E-Mail ein. \n";
               
 my $search = <STDIN>;
               
 my $database = "Mitarbeiter";
               
 my $hostname = "localhost";
               
 my $dsn = "DBI:mysql:database=$database;host=$hostname;
               
 my $user = "root"; my $pass = "12345";
               
 my $result = qq(select * from Mitarbeiter where Mail == $search);
               
 my $dbh->disconnect;
            };

################################################################################

#Nach Buero suchen 

            if ($auswahl == 7){
               
 print "\nBitte geben Sie das Buero ein. \n";
               
 my $search = <STDIN>;
               
 my $database = "Mitarbeiter";
               
 my $hostname = "localhost";
               
 my $dsn = "DBI:mysql:database=$database;host=$hostname;
               
 my $user = "root"; my $pass = "12345";
               
 my $result = qq(select * from Mitarbeiter where Buero == $search);
               
 my $dbh->disconnect;
            };
        };
    };

################################################################################

#Person loeschen

    if ($option == 3){
        print "\nBitte geben Sie die ID ein. \n";
        my $search = <STDIN>;
        my $database = "Mitarbeiter";
        my $hostname = "localhost";
        my $dsn = "DBI:mysql:database=$database;host=$hostname;
        my $user = "root"; my $pass = "12345";
        my $loesche = qq(delete * from Mitarbeiter where ID == $search);
        my $dbh->disconnect;
    };

################################################################################

#Abschluss

};

################################################################################

#Copyright

print "\n© by Rafael Pedrett  besitzer@betriebsdirektor.de";