Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 59 lines (44 sloc) 1.526 kb
#!/usr/bin/perl
use utf8;
print "Content-type: text/html\n\n";
print << "END_OF_HTML";
<html>
<body>
<head>
<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" />
<!--viewportの指定-->
<meta name="viewport" content="width=device-width,initial-scale=1.0,minimum-scale=1.0,maximum-scale=1.0,user-scalable=0" />
<!--/viewportの指定-->
<!--メディアクエリでPC用・スマホ用CSSを振り分け-->
<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" />
<!--/メディアクエリでPC用・スマホ用CSSを振り分け-->
<link href="style.css" type="text/css" rel="stylesheet" />
</head>
<html>
<body>
<div id="contents">
<div id ="wrapper">
<img src="images/signup.gif" />
<div id="signup_form">
<img src="images/line.gif" /><br><br>
<form action="post.cgi" method="post">
ユーザ名<br>
<input type="text" name="login_name" value="$login_name"><br>
パスワード<br>
<input type="text" name="password" value="$password"><br>
メールアドレス<br>
<input type="text" name="email" value="$email"><br>
<input type="submit" value="ユーザ登録" id="form_button">
END_OF_HTML
print << "END_OF_HTML";
</form>
<img src="images/line.gif" />
</div>
</div>
</body>
</html>
END_OF_HTML
exit;
Jump to Line
Something went wrong with that request. Please try again.