resp协议定义, xml定义配置文件
This commit is contained in:
15
NtyCo/htdocs/color.cgi
Normal file
15
NtyCo/htdocs/color.cgi
Normal file
@@ -0,0 +1,15 @@
|
||||
#!/usr/bin/perl -Tw
|
||||
|
||||
use strict;
|
||||
use CGI;
|
||||
|
||||
my($cgi) = new CGI;
|
||||
|
||||
print $cgi->header;
|
||||
my($color) = "blue";
|
||||
$color = $cgi->param('color') if defined $cgi->param('color');
|
||||
|
||||
print $cgi->start_html(-title => uc($color),
|
||||
-BGCOLOR => $color);
|
||||
print $cgi->h1("This is $color");
|
||||
print $cgi->end_html;
|
||||
Reference in New Issue
Block a user