-
Notifications
You must be signed in to change notification settings - Fork 2
/
perl.pl
24 lines (23 loc) · 958 Bytes
/
perl.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!perl -w
use strict;
use api::danode;
print "HTTP/1.1 200 OK\n";
print "Content-Type: text/html; charset=utf-8\n\n";
print "<html>";
print " <head>";
print " <title>DaNode 'user defined' CGI (perl) test script</title>";
print " <meta name='author' content='Danny Arends'>";
print " </head>";
print " <body>";
print " DaNode 'user defined' CGI (perl) test script<br>";
print " <form action='perl.pl' method='post' enctype='multipart/form-data'>";
print " <table>";
print " <tr><td><a href='perl.pl?test=GET'>GET</a>:</td><td> ".toS($_GET)."</td></tr>";
print " <tr><td>POST:</td><td>".toS($_POST)."</td></tr>";
print " <tr><td>Test:</td><td> <input name='test' type='text'></td></tr>";
print " <tr><td>File:</td><td> <input name='file' type='file'></td></tr>";
print " <tr><td> </td><td><input type='submit' value='POST'></td></tr>";
print " </table>";
print " </form>";
print " </body>";
print "</html>";