#! /usr/bin/perl ############################################################################# # NKK CMS # Copyright(C) KOCHI SYSTEMS Co.,Ltd. All rights reserved. ############################################################################# #============================================================================ # 総合 # 名称：トップページ # 概要： #============================================================================ # 修正履歴 # #01 18.04.04 ver1.00 新規作成 #============================================================================ #---------------------------------------------------------------------------- # ライブラリ読込 #---------------------------------------------------------------------------- use CGI; use CGI::Carp qw(fatalsToBrowser); use lib '../cms/lib'; use C_COMMON; my $cgi = CGI::new(); print "Content-type:text/html\n\n"; #---------------------------------------------------------------------------- # 変数宣言 #---------------------------------------------------------------------------- #---------------------------------------------------------------------------- # 引数取得 #---------------------------------------------------------------------------- #------------------------------------------------------------ # 画面出力 #------------------------------------------------------------ &ShowHtml(); exit; # ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ # 関数：ShowHtml # 機能： # 引数： # 戻り： # 備考： # ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ sub ShowHtml{ # お知らせ一覧生成 my @allList = glob("${C_COMMON::DirData}*"); my @dirList = (); foreach my $fe_allList (@allList){ push(@dirList,C_COMMON::GetFileBase($fe_allList)); } @dirList = sort {$b <=> $a} @dirList; # 降順にソート # タグ生成 my $tagInfo = ""; my $cntInfo = 0; my $nowYYYYMMDD = C_COMMON::GetDate(3); foreach my $fe_dirList (@dirList){ my @spData = split( /_/ ,$fe_dirList); if ($spData[2] <= $nowYYYYMMDD){ my $key = $spData[1]; # 公開中 my $strDate = substr($spData[0],0,4) . '.' . substr($spData[0],4,2) . '.' . substr($spData[0],6,2); my $jsonData = C_COMMON::readJson($key); my $title = @$jsonData[0]->{title}; # タイトル my $data = @$jsonData[0]->{data}; # 内容 my $img = @$jsonData[0]->{topImg}; # メイン画像 # 長かったらカット $title =~ s/
//g; $data =~ s/
//g; $title = C_COMMON::CutStr($title,12); $data = C_COMMON::CutStr($data,59); my $tagImg = qq(

); if ($img ne ''){ my $dirSession = C_COMMON::ReadSessionDir($key); my $dirImg = $dirSession . '/img/'; my $fileName = $dirImg . $img; if (-e $fileName){ $fileName =~ s/${C_COMMON::DirHome}/.\/cms\//g; $tagImg = qq(