#!/local/bin/perl
#
# CGI-safe script to list documents
#
# Get the input - if cgi-bin, or argument, if not
if ($ARGV[0]) {
    $buffer = $ARGV[0];
    $debug = 1;
    print STDERR "Debug mode\n";
} elsif ($ENV{"QUERY_STRING"}) {
    $buffer = $ENV{"QUERY_STRING"};
    print STDERR "Query mode - read $buffer\n";
} else {
    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    print STDERR "Read $buffer\n";
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    print STDERR "Setting $name to $value\n" if $debug;
    $entry{$name} = $value;
}
$| = 1;
print "Content-type: text/html\n\n";
print STDERR "Exec listdrafts -name $entry{name}\n";
exec("listdrafts", "-name", $entry{name});