Initial commit

1 files changed, 14 insertions, 0 deletions

diff --git a/cgi/printenv.pl b/cgi/printenv.pl
new file mode 100755
index 0000000..9686c88
--- /dev/null
+++ b/cgi/printenv.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+print "Status: 403\r\n";
+print "Content-Type: text/plain\r\n\r\n";
+
+# foreach my $var (sort(keys(%ENV))) {
+#     my $val = $ENV{$var};
+#     $val =~ s|\n|\\n|g;
+#     $val =~ s|"|\\"|g;
+#     print "${var}=\"${val}\"\n";
+# }