#!/usr/bin/perl
##############################################################################
# shiromuku(f2)DIARY version 5.42
# Created 08/25/2001
# Copyright 2001 Shiromuku
# Available at http://www.t-okada.com/cgi/
###############################################################################
# COPYRIGHT NOTICE （著作権の告示）
# Copyright 2001-2002 Shiromuku All Rights Reserved.
# This script can be used and modified free of charge as long as you don't change this header or any of the parts that give me credit for writing this. （このスクリプトは無償で使用または改変できます。ただしこの著作権の告知と上記のコメント、及びCGIにより生成されるHTML表示下部にある著作権表示部は変えないで下さい。）
# By using this script you agree to indemnify me from any liability that might arise from its use. In simple English, if this script somehow makes your computer run amuck and kill the pope, it's not my fault.（このスクリプトを使用することにより、使用者はその使用によって起こる可能性のあるいかなる事柄に対する責務についても、私Shiromukuに免責の保証を与えることに同意したものとします。）
# Redistributing and selling the code for this program without prior written consent is expressly forbidden.（前もって書面での承諾を得ることなくこのプログラムのコードを再配布したり売ったりすることは 明確に禁じられています。）
#######################
require './jcode.pl'; #変えないこと
require './sf2_diary_lib.cgi'; #変えないこと
#######################
use strict;
my $gl = &get_globals("sf2_diary_gl.cgi");
$gl->{version} = "version 5.42";
$gl->{userip} = $ENV{'REMOTE_ADDR'};
my ($form, $filename);
my $config = &open_config ($gl);
if ($ENV{'CONTENT_LENGTH'} || $ENV{'QUERY_STRING'}) {$form = &parse_data($gl,$config);}
my %HoD = ();
@HoD{"gl", "config", "form"} = ($gl, $config, $form);
if ($form->{action} eq "show_icon") {&show_icon(\%HoD);}
elsif ($form->{action} eq "selectadmin") {&select_admin (\%HoD);}
elsif ($form->{action} eq "search_all") {&search_all(\%HoD);}
elsif ($form->{action} eq "reply") {&return_reply(\%HoD);}
else {
if (-e "$gl->{basedir}/$gl->{passfile}") {&make_list(\%HoD);}
else {&error("先にパスワードの設定を行って下さい。\n",\%HoD);}
}
exit (0) ;
############################
sub parse_data {
my ($gl,$config) = @_;
my ($buffer, @pairs, $pair, $name, %form, $value);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
if ($config->{check_referer} == 1) {&check_referer($gl,$config);}
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else {$buffer = $ENV{'QUERY_STRING'};}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\|\|\|//g;
$value =~ s//>/ig;
$value =~ s/\r\n/ /g;
$value =~ s/\r/ /g;
$value =~ s/\n/ /g;
jcode::convert(\$value,$gl->{mycode});
if ($gl->{mycode} eq 'sjis') {jcode::h2z_sjis(\$value); }
if ($gl->{mycode} eq 'euc') {jcode::h2z_euc(\$value); }
$form{$name} = $value;
}
return \%form;
}
############################
#listを表示
sub make_list {
my $HoD = shift;
my($c_num,$filename,@h_files,$year_h,$month_h);
my ($yearn, $monn, $dayn, $hourn, $minn, $secn, $week, $x, $y, $timex) = &date_time();
if ($HoD->{config}{show_counter}) {$c_num = &counter ($HoD);}
if ($HoD->{config}{f_bgcolor} eq '') {$HoD->{config}{f_bgcolor}="white";}
$HoD->{config}{c2_f_stylesheet} =~ s/ //g;
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print "\n";
#print "\n";
print "$HoD->{config}{c1_f_title_color}\n";
if ($HoD->{config}{c2_f_stylesheet}) {
print "$HoD->{config}{c2_f_stylesheet}\n";
}
print "{config}{f_bgcolor}\" TEXT=\"$HoD->{config}{f_text_color}\" BACKGROUND=\"$HoD->{config}{img_f_bkgd_img}\" LINK=\"$HoD->{config}{f_link_color}\" ALINK=\"$HoD->{config}{f_link_color2}\" VLINK=\"$HoD->{config}{f_link_color3}\">\n";
if ($HoD->{config}{adsbanner_top}) {
print "