takuma7 · April 24, 2011 01:53
diff --git a/chat.pl b/chat.pl
 #!/usr/bin/perl

 use CGI;
 use HTML::Entities;

 $form = CGI->new();
 $handle = $form->param("handle");
 $speech = $form->param("speech");

 print "Content-type: text/html; charset=UTF-8\n\n";

 print <<DOC;
 <html>
 <head>
 <title>chat room - TaKUMA7</title>
 <link href='http://fonts.googleapis.com/css?family=The+Girl+Next+Door' rel='stylesheet' type='text/css'>
 <style type="text/css">
 <!--
 html{
  background:#d8f8cf;
  font-family: 'The Girl Next Door', arial, serif;
 }
 body{
    width:800px;
    margin: 20px auto;
    background:#ffffff;
    text-align: center;
    border-radius: 20px;        /* CSS3草案 */
    -webkit-border-radius: 20px;    /* Safari,Google Chrome用 */  
    -moz-border-radius: 20px;   /* Firefox用 */
 }

 div#time_line{
  padding:30px;
  padding-top: 0;
 }

 h1 {
    font-family: 'The Girl Next Door', arial, serif;
 }

 input{
    padding : 3px;
    border: 1px solid;
    border-radius: 10px;        /* CSS3草案 */
    -webkit-border-radius: 10px;    /* Safari,Google Chrome用 */  
    -moz-border-radius: 10px;   /* Firefox用 */
 }

 div.statement{
    width : 100%;
    margin:3px auto;
    padding:5px;
    height : auto;
    
    display : inline-block;
    
    border : 1px solid #efefef;
    background : #efefef;
    
    color : #3e3e3e;
    
    border-radius: 10px;        /* CSS3草案 */
    -webkit-border-radius: 10px;    /* Safari,Google Chrome用 */  
    -moz-border-radius: 10px;   /* Firefox用 */
 }

 .statement:after{
    content: "";
    display : block;
    clear: both;
 }

 div.statement div{
 }

 div.speaker{
    width : 100px;
    float : left;
    padding : 10px;

    text-align : right;
    font-weight : bold;
    #border : 1px solid red;
    #background : #ffeeee;
 }
 div.content{
    width : 580px;
    float : left;
    margin-left: 3px;
    padding : 10px;
    text-align:left;
    #border : 1px solid blue;
    #background : #eeeeff;
 }
 -->
 </style>
 </head>
 <body>
 <h1>chat room</h1>
 <form id="form" method="post" action="chat.cgi">
 statement:<input class="text" name="speech" type="text" size="100">
 <input name="handle" type="hidden" value="$handle">
 <input type="submit" value="say">
 <input type="reset" value="reset">
 </form>
 <div id="time_line">
 DOC

 if($speech ne ""){
  open LOG, ">>/Applications/MAMP/cgi-bin/chat.log";
  my $encoded_speech = encode_entities("$speech");
  $_ = <<STATEMENT;
 <div class="statement">
 <div class="speaker">
 $handle
 </div>
 <div class="content">
 $encoded_speech
 </div>
 </div>
 STATEMENT
    s/\n|\t//g;
    $_ = $_ . "\n";
    print LOG $_;
  close LOG;
 }

 open LOG, "/Applications/MAMP/cgi-bin/chat.log";
 @stats=();
 while(<LOG>){
  push @stats, $_;
 }

 for $x (reverse @stats){
  print $x;
 }

 close LOG;

 print <<DOC;
 </div>
 </body>
 </html>
 DOC
	#!/usr/bin/perl

	use CGI;
	use HTML::Entities;

	$form = CGI->new();
	$handle = $form->param("handle");
	$speech = $form->param("speech");

	print "Content-type: text/html; charset=UTF-8\n\n";

	print <<DOC;
	<html>
	<head>
	<title>chat room - TaKUMA7</title>
	<link href='http://fonts.googleapis.com/css?family=The+Girl+Next+Door' rel='stylesheet' type='text/css'>
	<style type="text/css">
	<!--
	html{
	background:#d8f8cf;
	font-family: 'The Girl Next Door', arial, serif;
	}
	body{
	width:800px;
	margin: 20px auto;
	background:#ffffff;
	text-align: center;
	border-radius: 20px; /* CSS3草案 */
	-webkit-border-radius: 20px; /* Safari,Google Chrome用 */
	-moz-border-radius: 20px; /* Firefox用 */
	}

	div#time_line{
	padding:30px;
	padding-top: 0;
	}

	h1 {
	font-family: 'The Girl Next Door', arial, serif;
	}

	input{
	padding : 3px;
	border: 1px solid;
	border-radius: 10px; /* CSS3草案 */
	-webkit-border-radius: 10px; /* Safari,Google Chrome用 */
	-moz-border-radius: 10px; /* Firefox用 */
	}

	div.statement{
	width : 100%;
	margin:3px auto;
	padding:5px;
	height : auto;

	display : inline-block;

	border : 1px solid #efefef;
	background : #efefef;

	color : #3e3e3e;

	border-radius: 10px; /* CSS3草案 */
	-webkit-border-radius: 10px; /* Safari,Google Chrome用 */
	-moz-border-radius: 10px; /* Firefox用 */
	}

	.statement:after{
	content: "";
	display : block;
	clear: both;
	}

	div.statement div{
	}

	div.speaker{
	width : 100px;
	float : left;
	padding : 10px;

	text-align : right;
	font-weight : bold;
	#border : 1px solid red;
	#background : #ffeeee;
	}
	div.content{
	width : 580px;
	float : left;
	margin-left: 3px;
	padding : 10px;
	text-align:left;
	#border : 1px solid blue;
	#background : #eeeeff;
	}
	-->
	</style>
	</head>
	<body>
	<h1>chat room</h1>
	<form id="form" method="post" action="chat.cgi">
	statement:<input class="text" name="speech" type="text" size="100">
	<input name="handle" type="hidden" value="$handle">
	<input type="submit" value="say">
	<input type="reset" value="reset">
	</form>
	<div id="time_line">
	DOC

	if($speech ne ""){
	open LOG, ">>/Applications/MAMP/cgi-bin/chat.log";
	my $encoded_speech = encode_entities("$speech");
	$_ = <<STATEMENT;
	<div class="statement">
	<div class="speaker">
	$handle
	</div>
	<div class="content">
	$encoded_speech
	</div>
	</div>
	STATEMENT
	s/\n\|\t//g;
	$_ = $_ . "\n";
	print LOG $_;
	close LOG;
	}

	open LOG, "/Applications/MAMP/cgi-bin/chat.log";
	@stats=();
	while(<LOG>){
	push @stats, $_;
	}

	for $x (reverse @stats){
	print $x;
	}

	close LOG;

	print <<DOC;
	</div>
	</body>
	</html>
	DOC