\n|;
$template_array->{'ORIGINAL_HTML'} .= qq|
\n|;
foreach my $imgdata (@imglist) {
$template_array->{'ORIGINAL_HTML'} .= qq| \n|;
}
$template_array->{'ORIGINAL_HTML'} .= qq|
\n|;
$template_array->{'ORIGINAL_HTML'} .= qq|
|;
}
&template ($template_html,$template_array,$session_array);
}
#############################################################################################
######################################�@�Ǘ��ґ��@###########################################
#############################################################################################
###################### �Ǘ��ҔF�y�[�W�o�� #################################
sub login {
##�����ݒ�
my $template_html = '_LOGIN';
##����
$template_array->{'ERR_MSG'} = shift;
$template_array->{'METHOD'} = $FORM->{'METHOD'};
$template_array->{'SOURCE_FILE'} = $FILE->{'SOURCE'};
$template_array->{'CMSTITLE'} = $INFO->{'TITLE'};
$template_array->{'CMSTITLEALL'} = $INFO->{'COMPANY'};
## HTML�o��
&template ($template_html,$template_array,$session_array);
exit;
}
########################## �Ǘ��҃y�[�W�o�� ##############################
sub admin {
##�����ݒ�
my $template_html = '_ADMIN';
##���[�J���ϐ�
###����
## �ꗗ���O�쐬
$template_array->{'ORIGINAL_HTML'} = &logview_admin();
$template_array->{'ORIGINAL_HTML2'} = $original_html2;
$template_array->{'CMSTITLE'} = $INFO->{'TITLE'};
$template_array->{'CMSCATEGORY'} = $INFO->{'CATEGORY'};
$template_array->{'CMSSUBCATE01'} = $LINK->{'SUBCATE01'}[0];
$template_array->{'CMSSUBCATE02'} = $LINK->{'SUBCATE02'}[0];
$template_array->{'CMSSUBCATE03'} = $LINK->{'SUBCATE03'}[0];
$template_array->{'CMSSUBCATE04'} = $LINK->{'SUBCATE04'}[0];
$template_array->{'CMSSUBURL01'} = $LINK->{'SUBCATE01'}[1];
$template_array->{'CMSSUBURL02'} = $LINK->{'SUBCATE02'}[1];
$template_array->{'CMSSUBURL03'} = $LINK->{'SUBCATE03'}[1];
$template_array->{'CMSSUBURL04'} = $LINK->{'SUBCATE04'}[1];
$template_array->{'SOURCE'} = $FILE->{'SOURCE'};
$template_array->{'PASSWORD'} = $CONFIG->{'PASS'};
$template_array->{'METHOD'} = $FORM->{'METHOD'};
$template_array->{'ACTION'} = $FILE->{'SOURCE'};
## HTML�o��
&template ($template_html,$template_array,$session_array);
exit;
}
########################## �V�K�������݃y�[�W�o�� ##############################
sub new {
##�����ݒ�
my $template_html = '_ADD';
##���[�J���ϐ�
my $template_array = "";
## --------------����--------------------------
## ���Ԃ��擾
$ENV{'TZ'} = "JST-9";
my ( $sec, $min, $hour, $mday, $mon, $year, undef ) = localtime( time );
$year += 1900;
$date = sprintf ( "%04d/%02d/%02d", $year, $mon + 1, $mday,);
## HTML�p�ϐ��̐ݒ�
$template_array->{'ORIGINAL_HTML'} = $original_html;
$template_array->{'CMSTITLE'} = $INFO->{'TITLE'};
$template_array->{'PASSWORD'} = $CONFIG->{'PASS'};
$template_array->{'METHOD'} = $FORM->{'METHOD'};
$template_array->{'ACTION'} = $FILE->{'SOURCE'};
$template_array->{'CMSCATEGORY'} = $INFO->{'CATEGORY'};
$template_array->{'CMSSUBCATE01'} = $LINK->{'SUBCATE01'}[0];
$template_array->{'CMSSUBCATE02'} = $LINK->{'SUBCATE02'}[0];
$template_array->{'CMSSUBCATE03'} = $LINK->{'SUBCATE03'}[0];
$template_array->{'CMSSUBCATE04'} = $LINK->{'SUBCATE04'}[0];
$template_array->{'CMSSUBURL01'} = $LINK->{'SUBCATE01'}[1];
$template_array->{'CMSSUBURL02'} = $LINK->{'SUBCATE02'}[1];
$template_array->{'CMSSUBURL03'} = $LINK->{'SUBCATE03'}[1];
$template_array->{'CMSSUBURL04'} = $LINK->{'SUBCATE04'}[1];
$template_array->{'SOURCE'} = $FILE->{'SOURCE'};
$template_array->{'DATE'} = $date;
$template_array->{'M_CATEGORY'} = $m_category;
## HTML�o��
&template ($template_html,$template_array,$session_array);
}
########################## �ҏW�E�폜�y�[�W�o�� ##############################
sub edit {
##�����ݒ�
my $template_html = '_EDIT';
open( FR, "<", $DIR->{'LOG'} . $FILE->{'LOG'} ) || &error( "���O�t�@�C�����J���܂���",'_ERROR01' );
$trash =