$title

#!/usr/bin/perl ############################################### # inf6.cgi # V2.0 (2005.10.7) # Copyright(C) CGI-design ############################################### $script = 'inf6.cgi'; $base = './infdata'; #データ格納ディレクトリ $inffile = "$base/inf.txt"; #記事 $nofile = "$base/no.txt"; #記事番号 $opfile = "$base/option.txt"; #オプション open (IN,"$opfile") || &error("OPEN ERROR"); $opdata = ; close IN; if (!$opdata) { $pass = &crypt('cgi'); chmod(0666,$opfile); open (OUT,">$opfile") || &error("OPEN ERROR"); print OUT "$pass<>Ｑ＆Ａ<><><><>$base/style.css<>#ffeeee,#000000,#e1c4c4,#a00000,#ffffff,#764747,#e1c4c4,#ffffff<>30<>10"; close OUT; chmod(0666,$inffile); chmod(0666,$nofile); } ###　メイン処理　### if ($ENV{'REQUEST_METHOD'} eq "POST") {read(STDIN,$in,$ENV{'CONTENT_LENGTH'});} else {$in = $ENV{'QUERY_STRING'};} %in = (); foreach (split(/&/,$in)) { ($n,$val) = split(/=/); $val =~ tr/+/ /; $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if (defined($in{$n})) {$in{$n} .= "\0$val";} else {$in{$n} = $val;} } $mode = $in{'mode'}; $num = $in{'num'}; open (IN,"$opfile") || &error("OPEN ERROR"); ($pass,$title,$tcom,$home,$bg_img,$style,$colors,$menurate,$page) = split(/<>/,); close IN; ($bg_color,$text_color,$mbg_color,$title_color,$sub_color,$subbg_color,$qstbg_color,$ansbg_color) = split(/,/,$colors); if ($page == 0) {$page = 10;} if ($mode eq 'main') {&main;} elsif ($mode eq 'menu') {&menu;} elsif ($mode eq 'admin') {&admin;} else {&frame;} print "\n"; 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"; exit; } ### sub menu { &header; print "\n"; if ($home) {print "｜HOME";} print "｜全記事表\示｜

\n"; print "\n"; open (IN,"$inffile") || &error("OPEN ERROR"); while () { ($no,$sub) = split(/<>/); print "\n"; } close IN; print "

\n"; print "

\n"; } ### sub main { &header; print "\n"; print "$title\n"; print "

$tcom

\n"; if ($in{'no'}) { open (IN,"$inffile") || &error("OPEN ERROR"); while () { ($no,$sub,$com,$res) = split(/<>/); if ($no eq $in{'no'}) {last;} } close IN; &infdsp; } else { &dsp; } # 次の行は著作権表示ですので削除しないで下さい。# print "CGI-design\n"; } ### sub dsp { $back = $num - $page; $next = $num + $page; $m = -1; open (IN,"$inffile") || &error("OPEN ERROR"); while () { $m++; if ($m < $num || $next <= $m) {next;} ($no,$sub,$com,$res) = split(/<>/); &infdsp; } close IN; if ($mode eq 'admin') {print "\n";} print "\n"; if (0 <= $back) { print "\n"; } if ($next <= $m) { print "\n"; } print "

全 ",$m+1,"件

\n"; } ### sub infdsp { $com =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/g; $res =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1 $2<\/a>/g; print "\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "\n"; if ($mode eq 'admin') { print ""; } print "

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

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

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

\n"; $wrt = $in{'wrt'}; if ($in{'set'}) {&setup;} else {&edtin;} } ### sub edtin { if ($in{'newwrt'}) {&newwrt;} elsif ($in{'edtwrt'}) {&edtwrt;} elsif ($in{'delwrt'}) {&delwrt;} elsif ($in{'sort'}) {&edtsort;} open (IN,"$inffile") || &error("OPEN ERROR"); @data = ; close IN; &in_form; print "

修正、削除する場合は[修正]をクリックして下さい。\n"; print "

\n"; &dsp; } ### sub in_form { print "\n"; print "\n"; print "\n"; if ($in{'edt'}) { foreach (@data) { ($no,$sub,$com,$res) = split(/<>/); if ($in{$no}) {last;} } print "\n"; print "\n"; $com =~ s/
/\r/g; $res =~ s/
/\r/g; } else { $sub=$com=$res=''; } print "

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

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

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

\n"; } ### sub edtsort { @new = (); %num = (); open (IN,"$inffile") || &error("OPEN ERROR"); @data = ; close IN; for (0 .. $#data) { if ($in{"num$_"} eq '') {$num{$_} = $_;} else {$num{$_} = $in{"num$_"};} } foreach (sort {$num{$a} <=> $num{$b}} keys(%num)) {push(@new,$data[$_]);} open (OUT,">$inffile") || &error("OPEN ERROR"); print OUT @new; close OUT; $in{'edt'} = ''; } ### sub newwrt { $in{'com'} =~ s/\r\n|\r|\n/
/g; $in{'res'} =~ s/\r\n|\r|\n/
/g; open (IN,"$nofile") || &error("OPEN ERROR"); $no = ; close IN; $no++; open (OUT,">$nofile") || &error("OPEN ERROR"); print OUT $no; close OUT; open (IN,"$inffile") || &error("OPEN ERROR"); @new = ; close IN; unshift(@new,"$no<>$in{'sub'}<>$in{'com'}<>$in{'res'}<>\n"); open (OUT,">$inffile") || &error("OPEN ERROR"); print OUT @new; close OUT; } ### sub edtwrt { $in{'com'} =~ s/\r\n|\r|\n/
/g; $in{'res'} =~ s/\r\n|\r|\n/
/g; @new = (); open (IN,"$inffile") || &error("OPEN ERROR"); while () { ($no) = split(/<>/); if ($no eq $in{'no'}) {push(@new,"$no<>$in{'sub'}<>$in{'com'}<>$in{'res'}<>\n");} else {push(@new,$_);} } close IN; open (OUT,">$inffile") || &error("OPEN ERROR"); print OUT @new; close OUT; } ### sub delwrt { @new = (); open (IN,"$inffile") || &error("OPEN ERROR"); while () { ($no) = split(/<>/); if ($no ne $in{'no'}) {push(@new,$_);} } close IN; open (OUT,">$inffile") || &error("OPEN ERROR"); print OUT @new; close OUT; } ### sub setup { if ($wrt) { if ($in{'newpass'} ne '') {$pass = &crypt($in{'newpass'});} $title = $in{'title'}; $tcom = $in{'com'}; $tcom =~ s/\r\n|\r|\n/
/g; $home = $in{'home'}; $bg_img = $in{'bg_img'}; $style = $in{'style'}; $colors = $in{'colors'}; $colors =~ s/\0/,/g; $menurate = $in{'menurate'}; $page = $in{'page'}; open (OUT,">$opfile") || &error("OPEN ERROR"); print OUT "$pass<>$title<>$tcom<>$home<>$bg_img<>$style<>$colors<>$menurate<>$page"; close OUT; } print "下記に入力後、「設定する」を押して下さい。\n"; print "\n"; } ### 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; }