resp协议定义， xml定义配置文件

NtyCo/htdocs/check.cgi

@@ -0,0 +1,20 @@
+#!/usr/bin/perl -Tw
+
+use strict;
+use CGI;
+
+my($cgi) = new CGI;
+
+print $cgi->header('text/html');
+print $cgi->start_html(-title => "Example CGI script",
+                       -BGCOLOR => 'red');
+print $cgi->h1("CGI Example");
+print $cgi->p, "This is an example of CGI\n";
+print $cgi->p, "Parameters given to this script:\n";
+print "<UL>\n";
+foreach my $param ($cgi->param)
+{
+ print "<LI>", "$param ", $cgi->param($param), "\n";
+}
+print "</UL>";
+print $cgi->end_html, "\n";