start.pl

post '/newkey' => sub {
  my $self = shift;

  chdir '/home/computer/greenthumb/ssl/';

  my $cmd = 'newkey.pl';
  my $dumpfile = '/tmp/newkey.log';

  my $in = sprintf "%s\n%s\n%s\n%s\n%s\n%s\n",
    $self->req->param('org_name'), $self->req->param('city'), $self->req->param('state'),
      $self->req->param('common_name'), $self->req->param('phone'),
	$self->req->param('mmapa') ? 1 : 0;

#  system ("echo '$in' > /tmp/parms.tmp");
  system ("echo '$in' | newkey.pl 1> $dumpfile 2>&1");

  use File::Slurp;
  my $data = read_file($dumpfile);

  my $orgdir;
  if ($data =~ /mkdir\s+(\S+)/) {
      $orgdir = $1;
  }

  # store log of execution

  my $fh = FileHandle->new("> $orgdir/exec.log") or die $!;
  $fh->print($data);

  $self->render( text => $data );

};

post '/proxy' => sub {
    my ($self)=@_;

    use Mojo::UserAgent;
    my $ua = Mojo::UserAgent->new;
    
    # Form post with exception handling
    my $url = "$keyserver/newkey";
    my $tx  = $ua->post_form($url => $self->req->params);

    if (my $res = $tx->success) { $self->render (text => $res->body); }
    else {
	my ($message, $code) = $tx->error;
	die "Error: $message";
    }
};