summaryrefslogtreecommitdiffstats
path: root/src/civetweb/test/env.cgi
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-27 18:24:20 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-27 18:24:20 +0000
commit483eb2f56657e8e7f419ab1a4fab8dce9ade8609 (patch)
treee5d88d25d870d5dedacb6bbdbe2a966086a0a5cf /src/civetweb/test/env.cgi
parentInitial commit. (diff)
downloadceph-483eb2f56657e8e7f419ab1a4fab8dce9ade8609.tar.xz
ceph-483eb2f56657e8e7f419ab1a4fab8dce9ade8609.zip
Adding upstream version 14.2.21.upstream/14.2.21upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'src/civetweb/test/env.cgi')
-rwxr-xr-xsrc/civetweb/test/env.cgi46
1 files changed, 46 insertions, 0 deletions
diff --git a/src/civetweb/test/env.cgi b/src/civetweb/test/env.cgi
new file mode 100755
index 00000000..479e1fd3
--- /dev/null
+++ b/src/civetweb/test/env.cgi
@@ -0,0 +1,46 @@
+#!/usr/bin/env perl
+
+use Cwd;
+use CGI;
+
+use vars '%in';
+CGI::ReadParse();
+
+print "Content-Type: text/html\r\n\r\n";
+
+print "<pre>\n";
+foreach my $key (sort keys %ENV) {
+ print "$key=$ENV{$key}\n";
+}
+
+print "\n";
+
+foreach my $key (sort keys %in) {
+ print "$key=$in{$key}\n";
+}
+
+print "\n";
+
+print 'CURRENT_DIR=' . getcwd() . "\n";
+print "</pre>\n";
+
+my $stuff = <<EOP ;
+<script language="javascript">
+ function set_val() {
+ }
+</script>
+<form method=get>
+ <input type=hidden name=a>
+ <input type=text name=_a onChange="javascript: this.form.a.value=this.value;">
+ <input type=submit value=get>
+</form>
+
+<form method=post>
+ <input type=text name=b>
+ <input type=submit value=post>
+</form>
+EOP
+
+#system('some shit');
+
+print $stuff;