#!/usr/bin/perl -w
use strict;
use warnings;
sub menu {
	my ($parameter) = @_;
	system ("clear");
	if ($parameter) {
	print "Bitte nur die angegeben Möglichkeiten nutzen!\n\n";
        }
	print "WINE-Installation aus dem GIT-Repository\n";
	print "----------------------------------------\n";
	print "Möchten Sie:\n";
	print "a) einen vorhandenen GIT WINE-Ordner löschen\n";
	print "b) einen vorhandenen GIT WINE-Ordner verschieben\n";
	print "c) WINE GIT deinstallieren\n";
        print "d) einen vorhandenen .wine Ordner mit Programmen und Einstellungen sichern\n";
	print "e) mit dem Script fortfahren\n";
	print "----------------------------------------\n";
	print "q) das Script beenden\n\n";
	print "Ihre Eingabe: ";
	chomp(my $user_input = <STDIN>);
	if (lc $user_input eq "a") {
	system ("rm -rI wine");
        }
	elsif (lc $user_input eq "b") {
	system ("mv wine wine.old");
        }
        elsif (lc $user_input eq "c") {
	system ("cd wine && make uninstall");
        }
	elsif (lc $user_input eq "d") {
	system ("mv .wine .winebackup");
        }
	elsif (lc $user_input eq "e") {
	print "done\n";
        }
	elsif (lc $user_input eq "q") {
	system ("clear");
	exit;
        }
	else {
	menu("error");
	       }
	}
menu();
system ("sudo apt-get install git-core flex bison libstdc++6-dev libartsc0-dev libasound2-dev libaudio2 libaudiofile0 libc6-dev libesd-alsa0 libesd0-dev libgcc1 libgl1-mesa-glx libgl1-mesa-dev libglib2.0-0 libglu1-mesa-dev libgphoto2-2-dev libgphoto2-port0 libice6 liblcms1-dev libldap2-dev libsm6 libx11-6 libxau6 libxext6 libxml2-dev libxslt1.1 libxt6 libxxf86vm1 msttcorefonts build-essential");
system ("git clone git://source.winehq.org/git/wine.git wine-git");
chdir ("wine-git");
system ("./configure");
system ("make");
system ("sudo make install");
