#!/usr/bin/perl

use strict;
use lib "./lib/";
BEGIN {
    require "./lib/setup.cgi";
};

our $SYS;

# 管理者のデータ取得
my $objAcData = new clsAcData($SYS->{data_dir});
my $admindata = $objAcData->GetAdminData();

# セッションデータ取得とログインチェック
my %COOKIE = &getcookie;
my %FORM = &form();
my %S = getsession($COOKIE{sid}, $FORM{sid});
my $LOGIN = logincheck($S{login_id},$S{login_pass}, $admindata);
my $data_ref;


# 承認キャンセルメールを表示する
my (@approval_cancel_list, @approval_wait_list);
my @DATA = $objAcData->GetHistLoopData();
foreach my $hist (@DATA) {
    next if($hist->{status} != MAIL_STATUS_APPROVAL_WAIT
	    && $hist->{status} != MAIL_STATUS_APPROVAL_CANCEL);

    $hist->{start_send_date_str} = '';
    if ($hist->{start_send_date}) {
	$hist->{start_send_date} =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/;
	$hist->{start_send_date_str} = sprintf("%s/%s/%s %s:%s:%s", $1, $2, $3, $4, $5, $6);
    }

    $hist->{end_send_date_str} = '';
    if ($hist->{end_send_date}) {
	$hist->{end_send_date} =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/;
	$hist->{end_send_date_str} = sprintf("%s/%s/%s %s:%s:%s", $1, $2, $3, $4, $5, $6);
    }

    $hist->{mail_body} =~ s/__<<BR>>__/\n/gi;
    if (length($hist->{mail_title}) > 36) {
	$hist->{mail_title} = &z_substr($hist->{mail_title}, 0, 36)."…";
    }

    if ($S{subaccount_id}) {
	if ($hist->{status} == MAIL_STATUS_APPROVAL_CANCEL
	    && $hist->{account_name} eq $S{account_name})
	{
	    push @approval_cancel_list, $hist;
	}
    } else {
	if ($hist->{status} == MAIL_STATUS_APPROVAL_WAIT) {
	    push @approval_wait_list, $hist;
	}
    }
}

$data_ref->{approval_cancel_flag} = @approval_cancel_list;
$data_ref->{approval_cancel_list} = \@approval_cancel_list;

$data_ref->{approval_wait_flag} = @approval_wait_list;
$data_ref->{approval_wait_list} = \@approval_wait_list;

# install.cgiやinit_ctl.cgiが存在している場合、削除を促す文言を追加
if (-e "./install.cgi") {
	$data_ref->{warn_install_cgi} = 1;
}
if (-e "./init_ctl.cgi") {
	$data_ref->{warn_init_ctl_cgi} = 1;
}

# フォームの値
$data_ref->{form} = \%FORM;

# 共通変数読み込み
&set_common_value(\$data_ref, $admindata);

# HTML表示
&printhtml_tk($data_ref);
exit;