#!/usr/bin/perl
print "Content-type: text/html\n\n";
print <<"HTML";
Edit Riverweb Notebook data
HTML
$index = $ENV{"QUERY_STRING"};
use DB_File;
$dbmfile = 'riverweb.dbm';
tie %hash, DB_File, $dbmfile; # open database, to be accessed
# print $hash{$index};
($parsedinfo[0], $parsedinfo[1], $parsedinfo[2],
$parsedinfo[3], $keywords, $parsedinfo[4]) = split(/\|/, $hash{$index});
#print "
\n";
#print "$parsedinfo[0]
\n";
#print "$parsedinfo[1]
\n";
print "$parsedinfo[2]
\n";
#print "$parsedinfo[3]
\n";
print "$parsedinfo[4]
\n";
print "$keywords
\n";
$keywords =~ tr/:/-/;
print <<"HTML";
HTML
untie %hash;