📄 edit_article.epl
字号:
<HTML>[! use lib "/usr/local/apache/lib-perl"; use News;!][-# use Data::Dumper;# print "<pre>\n", Dumper( \%fdat ), "</pre>\n";# exit; if ( $fdat{save} ) { News::save_story( $fdat{story}, $fdat{headline}, $fdat{article} ); $http_headers_out{Location} = "edit_news.epl"; exit; } elsif ( $fdat{story} ) { ( $fdat{headline}, $fdat{article} ) = News::get_story( $fdat{story} ); }-]<HEAD> <TITLE>Edit Article</TITLE></HEAD><BODY BGCOLOR="white"> <H2>Edit Article</H2> <HR> <FORM METHOD="POST"> <P><B>Headline: </B><INPUT TYPE="text" NAME="headline" SIZE="50"></P> <P><B>Article:</B> (HTML formatted)<BR> <TEXTAREA NAME="article" COLS=60 ROWS=20></TEXTAREA></P> <INPUT TYPE="reset" VALUE="Reset Form"> <INPUT TYPE="submit" NAME="save" VALUE="Save Article"> [$ hidden $] </FORM> <HR> <P>Return to <A HREF="edit_news.epl">What's New Administration</A>. <I>Warning, you will lose your changes!</I></P></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -