#!/usr/local/bin/perl
#use CGI qw(header param);
#print header();
print "Content-type: text/html\n\n";
&chugCGI(*input);
#features skipped: types num/sum/radio
#also, needs report generation
#and multiple field sorting
#define some commonly used CGI key names,
#preprend with | so they aren't in the column name namespace
$keykey = "|key";
$keysort = "|sort";
$keydb = "|db";
$keytask = "|task";
$keysep = "|sep";
$dbname = param($keydb);
if ((length $dbname > 50) || ($dbname !~ /^[a-zA-Z0-9_]*$/)) {
print "Illegal database name ";
exit;
}
$task = param($keytask);
#if user hasn't specified a db name,
#print list of links to all db's
if(!(defined($dbname))){
printheader();
opendir(DIR,".") || print "can't open ."; #list all files in this dir
while(defined(my $file= readdir(DIR))) {
if($file =~ /^(.*).kdb$/ ){ #db descriptors in form of dbname.kdb
$dbname = $1;
print qq($dbname )
}
}
closedir(DIR);
exit;
}
#we have a dbname, try to open it
dbmopen(%db,"./$dbname",0644) || print "Can't open $dbname $! ";
#if we have no task than just dump the database to a table
if($task eq ""){
printheader();
print qq(add entry);
viewdata();
print<<__EOQ__;
";
}
if($task eq "dump"){
dumpdata();
}
#add a new entry:
if($task eq "new") {
printheader();
loadfieldinfo(); #gets dbname from global variables
print qq(add entry:);
printform();
}
#edit an existing entry
#same as adding new, but we override the 'default' values
if($task eq "edit") {
printheader();
loadfieldinfo(); #gets dbname from global variables
print qq(edit entry:);
#now override fielddefault{} entries with loaded values
$key = param("$keykey");
$fielddefault{$keykey} = $key;
$data = $db{$key};
$i = 0;
foreach $datum (split(/\n/,$data)){
chomp $datum;
$fieldname = $fieldnames[$i];
$fielddefault{$fieldname} = $datum;
$i++;
}
printform();
print qq(
);
}
# updating can be the result of a new or edit
if($task eq "update"){
#generate a new key if the key field is blank
$thiskey = param("$keykey");
if($thiskey eq ""){
$thiskey = time.".".$$;
}
loadfieldinfo(); #gets dbname from global variables
#buuld the multiple column values as multiple lines in a scalar
$data = "";
foreach $fieldname (@fieldnames){
$datum = param($fieldname);
$datum =~ s/\r\n/[[kdbEOL]]/g;
$datum =~ s/\n/ /g;
if($fieldtype{$fieldname} eq "date"){ #ensure date fields are YYYY.MM.DD
$datum = cleandate($datum);
}
$data .= "$datum\n";
}
#put data into database hash
$db{$thiskey} = $data;
#resfresh page to view of db
printrefreshview();
}
#deleting is pretty straightforward
if($task eq "delete"){
$thiskey = param("$keykey");
delete($db{$thiskey});
printrefreshview();
}
dbmclose(%db);
#dump of data
sub dumpdata {
loadfieldinfo();
print"
);
$i = 0;
#print all colums for this row
foreach $datum (split(/\n/,$db{$key})){
#[[kdbEOL]] is reserved for end of line
$datum =~ s/\[\[kdbEOL\]\]/\r\n/g;
#checkboxes are the only fields that needs parsing for the display
#I lied we should but breaks for textareas as well \n->
#and links get a href added
#changeblank entries to so the table doesn't fill in
if($datum eq "") {$datum = " ";}
$datum = valuesafe($datum);
if($fieldtype{$fieldnames[$i]} eq "checkbox" && $datum eq "on"){
$datum = "
);
$i++;
}
# in case the last few fields were blank, we need
# to generate filler TD's until we have as many TDs
# as fieldnames...
while($i <= $#fieldnames){
print qq(
);
$i++;
}
#print link to delete with javascript confirmation
print qq(
);
}
# print a form to edit/create an entry
# basically, go through all the fields(columns) for this database and
# print a UI piece of the appropriate type
# --the default fields will be the db defaults if this is new, otherwise
# --should have been overriden with the values for this entry
sub printform {
# if this is a combo we got work to do
# we go through all the entire db... go through
# each field, lookup its type by its name by its position
# then do a hash of hashes : fieldcombo{fieldname}{data} = "on"
# we go through the 2nd level of keys for each field to generate
# the select box
if($hascombo){
foreach $key(keys %db){
$data = $db{$key};
$i = 0;
foreach $datum(split(/\n/,$data)){
if($fieldtype{$fieldnames[$i]} eq "combo"){
$fieldcombo{$fieldnames[$i]}{$datum} = "on";
}
$i++;
}
}
}
print qq(