| 1 | | #!/usr/local/bin/perl |
| 2 | | ################################################### |
| 3 | | #color.cgi 色見本表示プログラム |
| 4 | | # 2002.02.28 MARCO |
| 5 | | # edit 2002.05.31 MARCO |
| 6 | | # |
| 7 | | # パーミッション |
| 8 | | # color.cgi(755) |
| 9 | | ################################################### |
| 10 | | |
| 11 | | ############ 設定項目 ############## |
| 12 | | #ホームページタイトル |
| 13 | | $page_title='色見本'; |
| 14 | | #タイトル文字色 |
| 15 | | $title_color='#00000'; |
| 16 | | ###################################### |
| 17 | | |
| 18 | | @c=("0"，"1"，"2"，"3"，"4"，"5"，"6"，"7"，"8"，"9"，"A"，"B"，"C"，"D"，"E"，"F"); |
| 19 | | |
| 20 | | #ＨＴＭＬ作成 |
| 21 | | print "Content-type: text/html\n\n"; |
| 22 | | print "<HTML>\n<HEAD>\n"; |
| 23 | | print "<TITLE>$page_title</TITLE>\n"; |
| 24 | | print "</HEAD>\n<BODY>\n"; |
| 25 | | print "<a href=\"../index.html\">"; |
| 26 | | print "<img src=../../images/top.gif border=0></a><br>\n"; |
| 27 | | print "<center><font size=5 color=$title_color><b>$page_title</b></font></center>\n"; |
| 28 | | #入力フォームの表示 |
| 29 | | print "<CENTER><TABLE border=0 cellspacing=0 cellpadding=0>\n"; |
| 30 | | for($i=0;$i<64;$i ){ |
| 31 | | print "<TR>"; |
| 32 | | for($j=0;$j<64;$j ){ |
| 33 | | $r=$i; |
| 34 | | $g=$j; |
| 35 | | $b=(int($i/16)*4) int($j/16); |
| 36 | | print "<TD bgcolor=#$c[$r]$c[$r]$c[$g]$c[$g]$c[$b]$c[$b] size=1>\n"; |
| 37 | | print "<img src=spacer.gif width=12 height=8 alt=#$c[$r]$c[$r]$c[$g]$c[$g]$c[$b]$c[$b]></TD>"; |
| 38 | | } |
| 39 | | print "</TR>\n"; |
| 40 | | } |
| 41 | | print "</TABLE></CENTER>\n"; |
| 42 | | |
| 43 | | print "</BODY>\n</HTML>\n"; |