&pytaj();


	
if ($question1 eq '') {
	print "Nie wybrales zadnej opcji \n";
	print "Zamykam.... \n";
	sleep(5);
	exit();
}

elsif ($question1 eq "1") {
&backup();
}

elsif ($question1 eq "2") {
&restore();
}

elsif ($question1 eq "3") {
&testowanie();
}        

elsif ($question1 eq "4") {
&full();
}

elsif ($question1 eq "5") {
&shared();
}

elsif ($question1 eq "6") {
&archive();
}

elsif ($question1 eq "0") {
	print "Ok wiec koniec pracy. Zamykam.... \n";
	sleep(5);
	exit();
}

sub pytaj {
print "*************** \n\n";
print "Narzedzie do wykonywania operacji na bazach danych i plikach SM/PCB klientow CORE \n";
print "Jesli nie jestes pewien co robisz, do czego sa te opcje to lepiej nie rob nic! \n";
print "Wybierz zadanie do wykonania: \n\n";
print "[1] utworz backup bazy do pliku gbk \n"; 
print "[2] odtworz baze ze wskazanego pliku gbk \n";
print "[3] przetestuj wskazana baze danych \n";
print "[4] wykonaj kompletna procedure backupu - backup, odtworzenie i testowanie \n";
print "[5] zarchiwizuj katalog Shared do zip \n";
print "[6] spakuj podana baze do pliku zip \n";
print "[0] Nie rob nic i wyjdz \n\n";
print "Plik do przetworzenia podawaj jako pelna sciezke do pliku! \n\n";

print "Podaj numer czynnosci do wykonania: ";

chomp( $question1 = <STDIN> );

return $question1;
}