#! /usr/bin/perl
use strict;
use feature qw(switch say);
use DBI;
use Term::ReadKey;
binmode(STDOUT, ":utf8");  #für umlaute ;)
my $db_user = 'user';
my $db_name = 'client';
my $db_pass = 'test1234';
my $table = 'rechner';

my $clear = "\033[2J  \033[0;0H";    #clear the screen  && #jump to 0,0

#~ print "Bitte den mySQL Benutzer Namen angeben: ";
#~ my $db_user = <STDIN>;
#~ chomp $db_user;
#~ print "Bitte den mySQL Benutzer Passwort angeben: ";
#~ ReadMode 'noecho';
#~ #my $db_pass = <STDIN>;
#~ my $db_pass = ReadLine 0;
#~ chomp $db_pass;
#~ ReadMode 'normal';
#~ print "\nDatenbank: ";
#~ my $db_name = <STDIN>;
#~ chomp $db_name;
#~ print "Tabelle: ";
#~ my $table = <STDIN>;
#~ chomp $table;

my $dbh = DBI -> connect("DBI:mysql:database=$db_name", $db_user, $db_pass);
 
while (1) 
{
	print $clear;
	print "\t\t\t Datanbank Verwaltung\n\n"; 
	print "Sie sind mit der Datenbank ''$db_name'' verbunden und die Tabelle. \nWas möchten Sie tun?";

	print "
		  1. Tabelle anzeigen  
		  2. Daten eintragen 
		  3. Daten ändern 
		  4. Daten löschen 
		  6. Neue Tabelle anlegen
		  7. Tabelle wechseln (test)
		  8. Datenbank wechseln (test)\n
		  9. Programm beenden.

	";

	my $eingabe = <STDIN>;	
	chomp $eingabe;
	
	print "$clear Datenbank: $db_name \nTabelle:";
	## 1  Tabelle anzeigen	
	given ($eingabe) {
		when(1)  {
			print "Ihre eingabe: $eingabe";
			my $query_test = $dbh->prepare(<<SLCT);
			SELECT * FROM $table
SLCT

			$query_test->execute() or die $query_test->err_str;
			print "\n";
			print "	+---------------+--------------+\n";
			print "	| name          | ip           |\n";
			print "	+---------------+--------------+\n";

			while (my ($col_1, $col_2,$col_3) = $query_test->fetchrow_array() ) {
				print "\t| $col_1    \t| $col_2 |\n";
				}
			print "\t+---------------+--------------+\n";
			my $pause = <STDIN>;			# unschön aber macht was es soll ;D
#			last;
			}
		##2    Daten Eintragen
		##3    Daten ändern
		##4	   Daten löschen
		##6    Neue Tabelle anlegen

		when(6)  {
			#if ($eingabe == 6){
			print "Neue Tabelle erstellen";
			print "\n\n Wie soll Ihre neue Tabelle heißen: ";
			my $new_table = <STDIN>;
			chomp $new_table;
			print "\nBitte bennen sie die einzelne Spalten nach folgendem Muster: 
				Name VARCAR(20) <Spaltenname> <Wert>";
			my @spalten;
			my $query_test = $dbh->prepare(<<CRTE); 
			CREATE TABLE $new_table ( @spalten)
CRTE

			$query_test->execute() or die $query_test->err_str;
			print "Ihre neue Tabelle lautet $new_table \n Tabelle verwenden? (ja/nein)";
			my $choise = <STDIN>;
			if ($choise == 'ja'){
			$table = $new_table;
			};
			print "\n";
			}
		##7    Tabelle wechseln
		##8    Datenbank wechseln
##9 Beenden
		when(9)  {
			exit(2);
				$dbh ->disconnect();
			}
		default  { warn "Wert $_ ausserhalb des Bereichs 0 bis 11" }
	}	#/give
			#/while
}