#!/usr/bin/perl -w
use DB_File;
use Fcntl ':flock';
print "Content-type: text/html\n\n";
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]);
$key="$key1 $key2";
($name, $adres) = split (/=/, @name_value_pairs[2]);
($name, $nrtel) = split (/=/, @name_value_pairs[3]);
($name, $email) = split (/=/, @name_value_pairs[4]);
($name, $inne) = split (/=/, @name_value_pairs[5]);
$baza{$key}=join(':',$adres,$nrtel,$email,$inne);
print 'powrót';
undef $db ;
untie (%baza);
print "