| 129 |
</section> |
</section> |
| 130 |
]; |
]; |
| 131 |
exit; |
exit; |
| 132 |
|
} elsif ($path eq '/para/add') { |
| 133 |
|
if ($ENV{REQUEST_METHOD} eq 'POST') { |
| 134 |
|
|
| 135 |
|
} |
| 136 |
|
|
| 137 |
|
print q[Content-Type: text/html ; charset=utf-8 |
| 138 |
|
|
| 139 |
|
<!DOCTYPE HTML> |
| 140 |
|
<html lang=en> |
| 141 |
|
<head> |
| 142 |
|
<title>Add paragraph</title> |
| 143 |
|
<link rel=stylesheet href="/www/style/html/xhtml"> |
| 144 |
|
<body> |
| 145 |
|
<h1>Add paragraph</h1> |
| 146 |
|
<form action=add accept-charset=utf-8 method=post> |
| 147 |
|
]; |
| 148 |
|
|
| 149 |
|
print q[</form>]; |
| 150 |
|
exit; |
| 151 |
} |
} |
| 152 |
|
|
| 153 |
print q[Content-Type: text/plain ; charset=us-ascii |
print q[Content-Type: text/plain ; charset=us-ascii |