&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;
}

##</code><code>##

sub shared {
$sharedarchname = "shared-$day.zip" ;
chdir($shared);
$object2 = Archive::Zip->new();
$object2->addTree("$shared");
my $target;
         print "Do jakiego katalogu zapisac paczke [Jesli nie podasz bedzie w $kopietar] : ";
         chomp( $target = <STDIN> );
         $target = $kopietar if $target eq '';
 if ($object2->writeToFileNamed("$target$sharedarchname") != 0)
{ 
print "Blad pakowania Shared! $! \n";
print "Automatyczne wyjscie za 10s...";
		sleep(10);
		exit();
} 
else {
print "Shared poprawnie zarchiwizowane. Zapisano w $target$sharedarchname \n";
}
&pytaj();
}