#!/usr/bin/perl
use DB_File;
use Fcntl ':flock';
print "Content-type: text/html\n\n";
print '';
print '';
print "\n";
print '';
print "Zapis Danych do bazy \n";
print "";
print "\n";
$db=tie(%baza,'DB_File',"znajomi.db",O_CREAT|O_RDWR, 0644,$DB_HASH) ||
die ("Cannot create or open database");
$fd = $db->fd();
read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
@name_value_pairs = split(/&/, $query_string);
($name, $key1) = split (/=/, @name_value_pairs[0]);
($name, $key2) = split (/=/, @name_value_pairs[1]);
#print '$key1 $key2';
$key="$key1 $key2";
delete $baza{$key};
undef $db ;
untie (%baza);
print 'Powrót';
print "