# verk-skra.pl
# Verkefni ķ nįmskeiši um vefforritun 2001
# Skrį fęrslur ķ lyklašan gagnagrunn
# Gagnagrunnseiningar:
use SDBM_File;
use Fcntl;
# Lesa upplżsingar:
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $inntak, $ENV{'CONTENT_LENGTH'});
}
else {
$inntak = $ENV{'QUERY_STRING'}
};
# Inntak af-urlaš og brotiš upp
$inntak =~ tr/+/ /;
$inntak =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
@heiti_gildi = split(/&/, $inntak);
foreach $par (@heiti_gildi)
{
($heiti, $gildi) = split(/=/, $par);
$breyta{$heiti} = $gildi;
}
# Tengjast gagnagrunni, bęta ķ hann og loka honum:
$skra = "verkefni/dbskra";
$lykill = $breyta{"index"};
$upplys = $breyta{"texti"};
tie( %gogn, "SDBM_File", $skra, O_RDWR | O_CREAT | O_BINARY, 0666 )
or die( "Gagnagrunnsvilla: $!" );
$gogn{$lykill} = $upplys;
untie( %gogn );
# Senda vefsķšu tķl baka. Žaš veršur aš gera til žess aš loka CGI tengingunni.
# Žessi vefsķša er sérstök, hśn fęrir okkur sjįlfkrafa į upphaflegu vefsķšuna:
print <<"HTML";
Content-type: text/html
MIME-version: 1.0
<HTML>
<BODY>
Skįningu lokiš. <a href="javascript:history.go(-1)">Til baka</a>.
</BODY></HTML>
HTML