#!/usr/bin/perl
use DB_File;
use Fcntl ':flock';
print "Content-type: text/html\n\n";
print '';
print "\n";
print '';
print " Wylistowanie danych z 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();
while (($key, $record) = each %baza) {
($adres, $tel, $email,$inne) = split(':', $record);
print "$key
";
print "adres: $adres
";
print "nr telefonu: $tel
";
print "email: $email
";
print "inne: $inne
";
}
print 'powrót';
print "