greet.pl

来自「Javascript语言开发经典教程开发」· PL 代码 · 共 74 行

PL
74 行
字号 
#!/usr/bin/perl

### Require cgi-lib.pl ###

require 'cgi-lib.pl';

### Read from the standard input ###

&ReadParse(*in);
$msg = $in{'EntireMessage'};
$fileID = $in{'UniqueID'};
$recip = $in{'Recipient'};
$baseURL = $in{'BaseURL'};


### Create the greeting in a ###
### file with a unique name  ###
open(FILE, ">greet$fileID.html") || die "No can do: $!";
select(FILE);
print <<GREETING;
<HTML>
<HEAD>
	<TITLE>Your Personal Cyber Greeting</TITLE>
</HEAD>
<BODY>
	$msg
</BODY>
</HTML>
GREETING

close(FILE);
select(STDOUT);


### Generate a response for the sender ###
print "Content-type: text/html\n\n";

print <<RESPONSE;

<HTML>
<HEAD>
	<TITLE>Cyber Greeting Response</TITLE>
</HEAD>
<BODY>
<TABLE WIDTH="500">
	<TR>
		<TD>
		<H2>Congratulations!</H2>
		You have successsfully created a Cyber Greeting for <B>$recip</B>
		All you have to do is send him or her an e-mail to announce the 
		greeting. Just push the button below, and the e-mail will be on the 
		way.
		<CENTER>
		<FORM NAME="SendEmail" ENCTYPE="text/plain" ACTION="mailto:$recip?Subject=You Have A Cyber Greeting!">
		<INPUT TYPE=HIDDEN NAME="Message" VALUE="You have a Cyber Greeting. You can pick it up at $baseURL/greet$fileID.html">
		<INPUT TYPE=SUBMIT VALUE="Send CyberGreeting">
		</FORM>
		</CENTER>
		<BR>
		You might experience a delay while your e-mail software 
		contacts your mail server.
		<BR><BR>
		<A HREF="$baseURL/index.html">Return To Cyber Greeting</A>
		</TD>
	</TR>
</TABLE>
</BODY>
</HTML>

RESPONSE

exit 0;

## End of File

greet.pl - 源码说明

本页面展示了「Javascript语言开发经典教程开发」中的 greet.pl 源码文件，采用 PL 编程语言编写，共 74 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Javascript相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?