-my @opts = ("-DCLIENT=$addr", "-DHOST=$host", "-DREPO=$repo");
-push @opts, "-DTILDE=$tilde" if defined $tilde;
+my %vars = (
+ REQUEST_HOST => $host,
+ REQUEST_PATH => $path,
+ REQUEST_URI => $uri,
+ CLIENT_ADDR => $client_addr,
+ CLIENT_PORT => $client_port,
+ SERVER_ADDR => $server_addr,
+ SERVER_PORT => $server_port,
+);
+my @opts = map "-D$_=$vars{$_}", grep defined $vars{$_}, sort keys %vars;