$title

#!/usr/local/bin/perl ############################################### # col3.cgi # V2.2 (2010.10.3) # Copyright(C) CGI-design ############################################### require './cgi-lib.pl'; $script = 'topics_img.cgi'; $base = '../topics_img'; #データ格納ディレクトリ $colfile = "$base/topics_img.txt"; #記事 $opfile = "$base/option.txt"; $cgi_lib'maxdata = 1000000; #入力最大容量（byte） open (IN,"$opfile") || &error("OPEN ERROR"); $opdata = ; close IN; if (!$opdata) { $pass = &crypt('123456'); chmod(0666,$opfile); open(OUT,">$opfile") || &error("OPEN ERROR"); print OUT "$pass<>インフォメーション・更新情報<><><><>$base/img<>$base/img<>#ffffff,#333333,#3366FF,#0000FF<>10<><>250"; close OUT; chmod(0666,$colfile); } ###　メイン処理　### &ReadParse; while (($n,$val) = each %in) { if ($n eq 'img') {next;} $val =~ s/&/&/g; $val =~ s//>/g; $val =~ s/"/"/g; $val =~ s/\r\n|\r|\n/
/g; $in{$n} = $val; } $mode = $in{'mode'}; $num = $in{'num'}; open (IN,"$opfile") || &error("OPEN ERROR"); ($pass,$title,$com_adm,$home,$bg_img,$savedir,$loaddir,$colors,$page,$dspw,$max_wh) = split(/<>/,); close IN; ($bg_color,$text_color,$title_color,$sub_color) = split(/,/,$colors); if ($page == 0) {$page = 20;} if ($mode eq 'dsp') {&dsp;} elsif ($mode eq 'admin') {&admin;} else {&main;} print "\n"; print "\n"; exit; ###ヘッダ sub header { print "Content-type: text/html\n\n"; print <<"EOM"; $title EOM # print "\n"; # print "$title\n"; $head = 1; } ###トップページ sub main { &header; print "\n"; # print "\n"; # print "

"; # if ($home) {print "HOME";} # print "

$title

[管理]

\n"; # print "

$com_adm

\n"; &list; print <<"EOM";

EOM if (0 <= $back) {print "<<BACK　";} if ($next <= $m) {print "NEXT>>";} print <<"EOM";

＿

EOM # print "

\n"; # if (0 <= $back) {print "<< 前ページ　　";} # print "全 ",$m+1,"件　　"; # if ($next <= $m) {print "次ページ >>";} } ###トップのリスト sub list { $back = $num - $page; $next = $num + $page; $m = -1; print "\n"; # print "

\n"; open (IN,"$colfile") || &error("OPEN ERROR"); while () { $m++; if ($m < $num || $next <= $m) {next;} ($no,$date,$sub) = split(/<>/); print "\n"; # print "\n"; # print " "; $tar = ' target="_blank"';} else {$tar = '';} print <<"EOM"; EOM # print "■$sub\n"; # print "\n"; } close IN; print "

"; if ($mode eq 'admin') { print "		■ $date	$sub
$date

\n"; } ###記事表示 sub dsp { &header; print "\n"; print "\n"; # print "\n"; # print "

戻る

\n"; open (IN,"$colfile") || &error("OPEN ERROR"); while () { ($no,$date,$sub,$com,$imgt,$imgw,$imgh) = split(/<>/); if ($no eq $in{'no'}) {last;} } close IN; $com =~ s/([^=^\"]|^)(https?\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/g; print <<"EOM"; インフォメーション・更新情報

$date

$sub

EOM if ($imgt) { print ""; } print <<"EOM"; $com

【×閉じる】 EOM # print "\n"; # print "\n"; # print "

■ $sub	$date
\n"; # if ($imgt) { # print ""; # } # print "$com

\n"; } ###管理画面 sub admin { &header; print "\n"; $inpass = $in{'pass'}; if ($inpass eq '') { print <<"EOM";

【トップページへ】　【更新履歴一覧へ】

パスワードを入力して下さい

EOM # print "

戻る

\n"; # print "

パスワードを入力して下さい

\n"; # print "\n"; # print "\n"; exit; } $mat = &decrypt($inpass,$pass); if (!$mat) {&error("パスワードが違います");} print <<"EOM";

【トップページへ】　【更新履歴一覧へ】

EOM # print "\n"; # print "

　Return

\n"; # print "\n"; # print "\n"; # print "\n"; # print "

\n"; if ($in{'set'}) {&setup;} else {&edtin;} } ###リスト表示 sub edtin { if ($in{'newwrt'}) {&newwrt;} elsif ($in{'edtwrt'}) {&edtwrt;} elsif ($in{'delwrt'}) {&delwrt;} &in_form; print "

修正、削除する場合は「修正」をクリックして下さい。

\n"; print "\n"; print ""; if (0 <= $back) { print "\n"; } print "\n"; if ($next <= $m) { print "\n"; } print "

\n"; print "\n"; print "\n"; print "\n"; print "

全 ",$m+1,"件

\n"; print "\n"; print "\n"; print "\n"; print "

\n"; } ###フォーム sub in_form { print "

\n"; print "\n"; print "\n"; if ($in{'edt'}) { open (IN,"$colfile") || &error("OPEN ERROR"); while () { ($no,$date,$sub,$com) = split(/<>/); if ($in{$no}) {last;} } close IN; print "\n"; print "\n"; $com =~ s/
/\r/g; } else { ($sec,$min,$hour,$mday,$mon,$year) = localtime; $date = sprintf("%4d年%d月%d日",$year+1900,++$mon,$mday); # $date = sprintf("%4d.%2d.%2d",$year+1900,++$mon,$mday); $sub = $com = ''; } print <<"EOM";

日付

題名

内容

画像

EOM # print "

\n"; # print "\n"; # print "\n"; # print "\n"; # print "\n"; # print "\n"; print "

日付

題名

内容

画像

\n"; if ($in{'edt'}) { print "　　　　 \n"; print "　　\n"; # print "\n"; # print "

\n"; } else { print ""; } print "

\n"; print "\n"; # print "

\n"; } ### sub newwrt { open (IN,"$colfile") || &error("OPEN ERROR"); @new = ; close IN; ($no) = split(/<>/,$new[0]); $no++; &img("$savedir/$no",'img'); unshift(@new,"$no<>$in{'date'}<>$in{'sub'}<>$in{'com'}<>$type<>$width<>$height<>\n"); open (OUT,">$colfile") || &error("OPEN ERROR"); print OUT @new; close OUT; } ### sub edtwrt { &img("$savedir/$in{'no'}",'img'); @new = (); open (IN,"$colfile") || &error("OPEN ERROR"); while () { ($no,$date,$sub,$com,$imgt,$imgw,$imgh) = split(/<>/); if ($no eq $in{'no'}) { if ($type) {$imgt = $type; $imgw = $width; $imgh = $height;} push(@new,"$no<>$in{'date'}<>$in{'sub'}<>$in{'com'}<>$imgt<>$imgw<>$imgh<>\n"); } else {push(@new,$_);} } close IN; open (OUT,">$colfile") || &error("OPEN ERROR"); print OUT @new; close OUT; } ### sub delwrt { @new = (); open (IN,"$colfile") || &error("OPEN ERROR"); while () { ($no,$date,$sub,$com,$imgt) = split(/<>/); if ($no eq $in{'no'}) {if ($imgt) {unlink "$savedir/$no.$imgt";}} else {push(@new,$_);} } close IN; open (OUT,">$colfile") || &error("OPEN ERROR"); print OUT @new; close OUT; } ###設定フォーム sub setup { if ($in{'wrt'}) { if ($in{'newpass'} ne '') {$pass = &crypt($in{'newpass'});} $title = $in{'title'}; $com_adm = $in{'com_adm'}; $home = $in{'home'}; $bg_img = $in{'bg_img'}; $savedir = $in{'savedir'}; $loaddir = $in{'loaddir'}; $colors = $in{'colors'}; $colors =~ s/\0/,/g; $page = $in{'page'}; $dspw = $in{'dspw'}; $max_wh = $in{'max_wh'}; open (OUT,">$opfile") || &error("OPEN ERROR"); print OUT "$pass<>$title<>$com_adm<>$home<>$bg_img<>$savedir<>$loaddir<>$colors<>$page<>$dspw<>$max_wh"; close OUT; } print "下記に入力後、「設定する」を押して下さい。

\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "

\n"; # print "

\n"; print "\n"; $com_adm =~ s/
/\r/g; # print "\n"; # print "\n"; # print "\n"; print "\n"; print "\n"; print "\n"; @name = ('基本背景色','基本文字色','タイトル色','題名色'); @colors = split(/,/,$colors); for (0 .. $#name) { print "\n"; } print "\n"; # print "\n"; print "\n"; print "\n"; print "

タイトル

コメント

ホームURL

壁紙

画像格納ディレクトリ

画像読出ディレクトリ

カラーコード

$name[$_]

\n"; print "\n"; print "

記事表\示

件/ページ　　

記事表\示

件/ページ　　表\示幅px

画像表\示

パスワード変更

（英数8文字以内）

\n"; } ### sub img { $type=$width=$height=$big=$mac=''; $imgdata = $in{"$_[1]"}; if (!$imgdata) {return;} foreach (@in) { if (/$_[1]/ and /Content-Type:(.+)/i) { if ($1 =~ /image\/.*jpeg/i) {$type = 'jpg';} elsif ($1 =~ /image\/gif/i) {$type = 'gif';} elsif ($1 =~ /image\/.*png/i) {$type = 'png';} } if (/application\/x-macbinary/i) {$mac = 1;} } if (!$type) {&error("このファイルはアップロードできません");} if ($mac) { $leng = substr($imgdata,83,4); $leng = unpack("%N",$leng); $imgdata = substr($imgdata,128,$leng); } $img_file = "$_[0].$type"; open (IMG,">$img_file") || &error("$img_fileファイルを作成できません"); binmode IMG; print IMG $imgdata; close IMG; chmod (0666,$img_file); ($t,$width,$height) = &getImageSize("$img_file"); if (!$width || !$height) {&error("ファイルを認識できません");} if ($max_wh && ($max_wh < $width || $max_wh < $height)) { if ($height < $width) {$height = int($height * $max_wh / $width); $width = $max_wh;} else {$width = int($width * $max_wh / $height); $height = $max_wh;} $big = 1; } } #========================================= # Get Image Pixel Size.（出典：stdio-902） #========================================= sub getImageSize { local($file_name) = @_; local($head); return if (!open IMG, $file_name); binmode IMG; read IMG, $head, 8; if ($head eq "\x89\x50\x4e\x47\x0d\x0a\x1a\x0a") { local($width, $height); if (read(IMG, $head, 4) != 4 || read(IMG, $head, 4) != 4 || $head ne 'IHDR') { close IMG; return "PNG", 0; } read IMG, $head, 8; close IMG; $width = unpack "N", substr($head, 0, 4); $height = unpack "N", substr($head, 4, 4); return "PNG", $width, $height; } $head = substr $head, 0, 3; if ($head eq "\x47\x49\x46") { local($head, $width, $height); seek IMG, 6, 0; read IMG, $head, 4; close IMG; ($width, $height) = unpack "vv", $head; return "GIF", $width, $height; } $head = substr $head, 0, 2; if ($head eq "\xff\xd8") { local($head, $width, $height, $w1, $w2, $h1, $h2, $l1, $l2, $length); seek IMG, 2, 0; while (read IMG, $head, 1) { last if ($head eq ""); if ($head eq "\xff") { $head = getc IMG; if ($head =~ /^[\xc0-\xc3\xc5-\xcf]$/) { seek IMG, 3, 1; last if (read(IMG, $head, 4) != 4); close IMG; ($h1, $h2, $w1, $w2) = unpack "C4", $head; $height = $h1 * 256 + $h2; $width = $w1 * 256 + $w2; return "JPG", $width, $height; } elsif ($head eq "\xd9" || $head eq "\xda") { last; } else { last if (read(IMG, $head, 2) != 2); ($l1, $l2) = unpack "CC", $head; $length = $l1 * 256 + $l2; seek IMG, $length - 2, 1; } } } close IMG; return "JPG", 0; } return 0; } ### sub crypt { @salt = ('a' .. 'z','A' .. 'Z','0' .. '9'); srand; $salt = "$salt[int(rand($#salt))]$salt[int(rand($#salt))]"; return crypt($_[0],$salt); } ### sub decrypt { $salt = $_[1] =~ /^\$1\$(.*)\$/ && $1 || substr($_[1],0,2); if (crypt($_[0],$salt) eq $_[1] || crypt($_[0],'$1$' . $salt) eq $_[1]) {return 1;} return 0; } ### sub error { if (!$head) {&header; print "\n";} print "

ERROR !!

$_[0]\n"; print "\n"; exit; }