Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 62 lines (54 sloc) 1.88 KB
# 2012/09/26
# ↓これ書くと500エラーになる
# use strict;
# use warnings;
# 2012/09/26
# あんちぽ先生に書いていただいた
# login_idが定義されている?
# - 「 Common::GetCookie();」したものを「%cookie」の中に入れている?
# %と$の違いを明確にしておく
# ---------------------------------------
require '';
my %cookie = Common::GetCookie();
my $login_id = $cookie{login_id};
print "Content-type: text/html\n\n";
print << "END_OF_HTML";
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Style-Type" content="text/css" />
<meta http-equiv="Content-Script-Type" content="text/javascript" />
<meta name="viewport" content="width=device-width,initial-scale=1.0,minimum-scale=1.0,maximum-scale=1.0,user-scalable=0" />
<link media="only screen and (min-device-width:481px)" href="style.css" type="text/css" rel="stylesheet" />
<link media="only screen and (max-device-width:480px)" href="istyle.css" type="text/css" rel="stylesheet" />
<link href="style.css" type="text/css" rel="stylesheet" />
<title>管理画面 - nikki</title>
<div id="contents">
<div id ="wrapper">
<a href="admin.cgi"><img src="images/admin.gif" /></a><br>
<img src="images/line.gif" /><br><br>
<img src="images/write.gif" />
<form action="entry_post.cgi" method="post">
<input type="hidden" name="login_id" value="$login_id">
<textarea name="entry_text" value="$entry_text" id="entry_text_form" /></textarea>
<input type="submit" value="投稿" class="form_button"><br><br>
<img src="images/line.gif" /><br>
Jump to Line
Something went wrong with that request. Please try again.