$title

#!/usr/bin/perl ############################################### # book.cgi # V1.0 (2013.4.17) # Copyright(C) CGI-design # 本文ポイントを16ポイントに変更（###変更の前の行の$fsize pxを16pxに変更） ############################################### require './cgi-lib.pl'; $script = 'book.cgi'; $base = './bookdata'; #データ格納ディレクトリ $bookfile = "$base/book.txt"; #記事 $nofile = "$base/no.txt"; #記事番号 $catfile = "$base/cat.txt"; #評価項目 $cnofile = "$base/cno.txt"; #評価項目番号 $estfile = "$base/est.txt"; #5段階評価 $opfile = "$base/option.txt"; $cgi_lib'maxdata = 1000000; #入力最大容量（byte） @degsub = ('専門的','やや専門的','一般向け','中学生','小学生'); @figsub = ('図版主体','図・文半々','文章主体'); open (IN,"$opfile") || &error("OPEN ERROR"); $opdata = ; close IN; if (!$opdata) { $pass = &crypt('cgi'); open(OUT,">$opfile") || &error("OPEN ERROR"); print OUT "$pass<><><><>annai.html<>$base<>$base<>#f0f8ff,#000000,#ffffff,#4169e1,#005100,#D4D4A6<>50<>16<>200<>400"; close OUT; } ###　メイン処理　### &ReadParse; while (($n,$val) = each %in) { if ($n =~ /^img\d*$/) {next;} $val =~ s/&/&/g; $val =~ s//>/g; $val =~ s/"/"/g; $val =~ s/\r\n|\r|\n/
/g; $val =~ s/\0/,/g; $in{$n} = $val; } $mode = $in{'mode'}; $num = $in{'num'}; open (IN,"$opfile") || &error("OPEN ERROR"); ($pass,$title,$com_adm,$home,$guide,$savedir,$loaddir,$colors,$page,$fsize,$max_wh,$menuw) = split(/<>/,); close IN; ($bg_color,$text_color,$title_color,$titlebg_color,$sub_color,$mbg_color) = split(/,/,$colors); if ($page == 0) {$page = 50;} open (IN,"$estfile") || &error("OPEN ERROR"); @estsub = split(/,/,); close IN; if ($mode eq 'main') {&main;} elsif ($mode eq 'menu') {&menu;} elsif ($mode eq 'search') {&search;} elsif ($mode eq 'admin') {&admin;} else {&frame;} exit; ### sub header { print "Content-type: text/html\n\n"; print "\n"; print "$title\n"; $head = 1; } ### sub frame { &header; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } ### sub menu { &header; print "\n"; if ($in{'ssea'} || $in{'csea'} || $in{'esea'}) { print "トップ画面に戻る"; } else { print "福島原発行動隊 HOME"; } print "
検索ページ
\n"; print "執筆者紹介など

\n"; &seaset; $back = $num - $page; $next = $num + $page; $m = -1; @data = (); open (IN,"$bookfile") || &error("OPEN ERROR"); while () { ($no,$year,$mon,$day,$img,$sub,$deg,$fig,$est,$com) = split(/<>/); &seafind; if (!$find) {next;} $m++; if ($num <= $m && $m < $next) {push(@data,$_);} } close IN; print "教材リスト　　全 ",$m+1,"件\n"; foreach (@data) { ($no,$year,$mon,$day,$img,$sub) = split(/<>/); print "

\n"; } print "

\n"; if (0 <= $back) {print "≪前画面 ";} if ($page <= $m) { $i = 1; for ($k=0; $k<=$m; $k+=$page) { if ($k == $num) {print "$i. ";} else {print "$i. ";} $i++; } } if ($next <= $m) {print "次画面≫";} print "
[管理]\n"; print "\n"; } ### sub seaset { $in{'sub'} =~ s/　/ /g; @sub = split(/\s+/,$in{'sub'}); $in{'com'} =~ s/　/ /g; @com = split(/\s+/,$in{'com'}); } ### sub seafind { $find = 1; if ($in{'ssea'}) { $find = 0; foreach $word (@sub) {if (0 <= index($sub,$word)) {$find = 1;} else {$find = 0; last;}} } elsif ($in{'csea'}) { $find = 0; foreach $word (@com) {if (0 <= index($com,$word)) {$find = 1;} else {$find = 0; last;}} } elsif ($in{'esea'}) { $find = $mat = 0; foreach (split(/:/,$est)) { ($cno,$eno) = split(/-/); if ($cno eq $in{'cno'}) {$mat = 1; last;} } if (!$mat) {return;} foreach (split(/,/,$in{'eno'})) { if ($eno eq $_) {$find = 1; last;} } } } ### sub main { &header; print "\n"; print "

\n"; print "

$title

$com_adm

\n"; print "

\n"; &seaset; open (IN,"$bookfile") || &error("OPEN ERROR"); while () { ($no,$year,$mon,$day,$img,$sub,$deg,$fig,$est,$com) = split(/<>/); &seafind; if (!$find) {next;} if (!$in{'no'} || $no eq $in{'no'}) {last;} } close IN; if ($find) {&dsp;} else {print "

記事は見つかりませんでした。\n";} print "\n"; } ### sub dsp { @img = split(/!:/,$img); $com =~ s/([^=^\"]|^)(https?\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/g; print "

このページを印刷する

\n"; print "

$sub

\n"; if (@img) { $k = 0; for ($i=0; $i<$#img; $i+=4) { if ($img[$i]) { $imgfile = "$loaddir/$no-$k.$img[$i]"; $imgsrc = "

"; if ($img[$i+3]) {print "$imgsrc";} else {print $imgsrc;} } $k++; } print "

\n"; } print "\n"; print ""; foreach (@degsub) {print "";} print "\n"; for (0 .. $#degsub) { if ($_ eq $deg) {print "";} else {print "";} } print "

内容の程度	$_
内容の程度	●

\n"; print "\n"; print ""; foreach (@figsub) {print "";} print "\n"; for (0 .. $#figsub) { if ($_ eq $fig) {print "";} else {print "";} } print "

図版類の使用程度 (写真・イラスト・表\)	$_
図版類の使用程度 (写真・イラスト・表\)	●

\n"; %est = (); foreach (split(/:/,$est)) { ($cno,$eno) = split(/-/); $est{$cno} = $eno; } print "\n"; print ""; foreach (@estsub) {print "";} print "\n"; open (IN,"$catfile") || &error("OPEN ERROR"); while () { ($cno,$cat) = split(/<>/); print ""; for (0 .. 4) { if ($_ eq $est{$cno}) {print "";} else {print "";} } print "\n"; } close IN; print "

内容項目　　＼　　評価	$_
$cat	●

$com

\n"; } ###変更上の行のfont-sizeを$fsize pxから16pxに変更 sub search { &header; print "\n"; print "トップ画面に戻る\n"; print "

検索ページ

\n"; print "

\n"; print "\n"; } ### sub admin { &header; print "\n"; $inpass = $in{'pass'}; if ($inpass eq '') { print "

\n"; print "

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

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

　ログアウト

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

\n"; if ($in{'cat'}) {&catset;} elsif ($in{'set'}) {&setup;} else {&edtin;} print "\n"; } ### sub edtin { if ($in{'edt'}) {&in_form; return;} if ($in{'newwrt'}) {&newwrt;} elsif ($in{'edtwrt'}) {&edtwrt;} elsif ($in{'delwrt'}) {&delwrt;} print "

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

\n"; print "記事を修正、削除する場合は「修正」を押して下さい。\n"; $back = $num - $page; $next = $num + $page; $m = -1; print "

"; open (IN,"$bookfile") || &error("OPEN ERROR"); while () { $m++; if ($m < $num) {next;} if ($next <= $m) {last;} ($no,$year,$mon,$day,$img,$sub) = split(/<>/); $date = sprintf("$year.%02d.%02d",$mon,$day); print " $date　$sub
\n"; } close IN; print "

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

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

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

\n"; } ### sub in_form { ($sec,$min,$hour,$nowday,$nowmon,$nowyear) = localtime; $nowyear += 1900; $nowmon++; print "

\n"; print "\n"; print "\n"; if ($in{'new'}) { $year = $nowyear; $mon = $nowmon; $day = $nowday; @img = (); $sub = $deg = $fig = $est = $com = ''; } else { open (IN,"$bookfile") || &error("OPEN ERROR"); while () { ($no,$year,$mon,$day,$img,$sub,$deg,$fig,$est,$com) = split(/<>/); if ($in{$no}) {last;} } close IN; print "\n"; print "\n"; @img = split(/!:/,$img); $com =~ s/
/\r/g; $com =~ s/&/&/g; $com =~ s//>/g; $com =~ s/"/"/g; } print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; for (0 .. 1) { print "\n"; } print "

発行日

\n"; print "年 "; print "月 "; print "日

題名

内容の程度

"; for (0 .. $#degsub) { if ($_ eq $deg) {$chk = ' checked';} else {$chk = '';} print "$degsub[$_]　"; } print "

図版類の使用程度

"; for (0 .. $#figsub) { if ($_ eq $fig) {$chk = ' checked';} else {$chk = '';} print "$figsub[$_]　"; } print "

評価

\n"; print ""; foreach (@estsub) {print "";} print "\n"; %est = (); foreach (split(/:/,$est)) { ($cno,$eno) = split(/-/); $est{$cno} = $eno; } open (IN,"$catfile") || &error("OPEN ERROR"); while () { ($cno,$cat) = split(/<>/); print ""; for (0 .. 4) { if ($_ eq $est{$cno}) {$chk = ' checked';} else {$chk = '';} print "\n"; } print "\n"; } close IN; print "

内容項目・評価	$_
$cat

内容

画像",$_+1,"

"; if ($img[4*$_]) {print " 削除";} print "

\n"; if ($in{'new'}) { print ""; } else { print "\n"; print "

\n"; } print "

\n"; } ### sub newwrt { open (IN,"$nofile") || &error("OPEN ERROR"); $no = ; close IN; $no++; open (OUT,">$nofile") || &error("OPEN ERROR"); print OUT $no; close OUT; $img = ''; for (0 .. 1) { &img("$savedir/$no-$_","img$_"); $img .= "$type!:$width!:$height!:$big!:"; } $in{'no'} = $no; &logwrt; ($sec,$min,$hour) = localtime; open (OUT,">$base/log$hour.txt") || &error("OPEN ERROR"); print OUT @new; close OUT; } ### sub logwrt { $in{'com'} =~ s/&/&/g; $in{'com'} =~ s/<//g; $in{'com'} =~ s/"/"/g; $est = ''; open (IN,"$catfile") || &error("OPEN ERROR"); while () { ($cno) = split(/<>/); $est .= "$cno-$in{\"est$cno\"}:"; } close IN; $newdata = "$in{'no'}<>$in{'year'}<>$in{'mon'}<>$in{'day'}<>$img<>$in{'sub'}<>$in{'deg'}<>$in{'fig'}<>$est<>$in{'com'}<>\n"; $newdate = sprintf("$in{'year'}%02d%02d",$in{'mon'},$in{'day'}); $flag = 0; @new = (); open (IN,"$bookfile") || &error("OPEN ERROR"); while () { ($no,$year,$mon,$day) = split(/<>/); if ($no eq $in{'no'}) {next;} if (!$flag) { $date = sprintf("$year%02d%02d",$mon,$day); if ($date <= $newdate) {push(@new,$newdata); $flag = 1;} } push(@new,$_); } close IN; if (!$flag) {push(@new,$newdata);} open (OUT,">$bookfile") || &error("OPEN ERROR"); print OUT @new; close OUT; } ### sub edtwrt { open (IN,"$bookfile") || &error("OPEN ERROR"); while () { ($no,$year,$mon,$day,$img) = split(/<>/); if ($no eq $in{'no'}) {last;} } close IN; @img = split(/!:/,$img); $img = ''; for $n (0 .. 1) { if ($in{"del$n"}) { unlink "$savedir/$no-$n.$img[4*$n]"; $img .= "!:!:!:!:"; } else { &img("$savedir/$no-$n","img$n"); if ($type) { if ($type ne $img[4*$n]) {unlink "$savedir/$no-$n.$img[4*$n]";} $img .= "$type!:$width!:$height!:$big!:"; } else { $img .= "$img[4*$n]!:$img[4*$n+1]!:$img[4*$n+2]!:$img[4*$n+3]!:"; } } } &logwrt; } ### sub delwrt { @new = (); open (IN,"$bookfile") || &error("OPEN ERROR"); while () { ($no,$year,$mon,$day,$img) = split(/<>/); if ($no eq $in{'no'}) { @img = split(/!:/,$img); for (0 .. 1) { if ($img[4*$_]) {unlink "$savedir/$no-$_.$img[4*$_]";} } } else {push(@new,$_);} } close IN; open (OUT,">$bookfile") || &error("OPEN ERROR"); print OUT @new; close OUT; } ### sub catset { if ($in{'wrt'}) { @new = (); %num = (); open (IN,"$catfile") || &error("OPEN ERROR"); @cat = ; close IN; for (0 .. $#cat) {$num{$_} = $in{"num$_"};} foreach (sort {$num{$a} <=> $num{$b}} keys(%num)) { ($cno) = split(/<>/,$cat[$_]); if (!$in{"del$cno"}) {push(@new,"$cno<>$in{\"cat$cno\"}<>\n");} } open (OUT,">$catfile") || &error("OPEN ERROR"); print OUT @new; close OUT; open (OUT,">$estfile") || &error("OPEN ERROR"); print OUT $in{'estsub'}; close OUT; @estsub = split(/,/,$in{'estsub'}); } elsif ($in{'add'}) { open (IN,"$cnofile") || &error("OPEN ERROR"); $cno = ; close IN; $cno++; open (OUT,">$cnofile") || &error("OPEN ERROR"); print OUT $cno; close OUT; open (OUT,">>$catfile") || &error("OPEN ERROR"); print OUT "$cno<><>\n"; close OUT; } print "下記に入力後、「設定する」を押して下さい。

\n"; print "\n"; } ### sub setup { if ($in{'wrt'}) { if ($in{'newpass'} ne '') {$pass = &crypt($in{'newpass'});} $title = $in{'title'}; $com_adm = $in{'com_adm'}; $home = $in{'home'}; $guide = $in{'guide'}; $savedir = $in{'savedir'}; $loaddir = $in{'loaddir'}; $colors = $in{'colors'}; $page = $in{'page'}; $fsize = $in{'fsize'}; $max_wh = $in{'max_wh'}; $menuw = $in{'menuw'}; open (OUT,">$opfile") || &error("OPEN ERROR"); print OUT "$pass<>$title<>$com_adm<>$home<>$guide<>$savedir<>$loaddir<>$colors<>$page<>$fsize<>$max_wh<>$menuw"; close OUT; } print "下記に入力後、「設定する」を押して下さい。

\n"; print "\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; }