なかや保育園

#!/usr/local/bin/perl ################################################################################ # # mb_sitenews.cgi # # 区分：ネットマーケティング専用 # 概要：お客様お知らせ出力プログラム # 制作：Ｗｅｂ工房まる高（2011.09.20） # ################################################################################ # プログラム・バージョン $ProgramType = "MB"; $ProgramModel = "SITENEWS"; $ProgramVersion = "1.00"; ################################## # パス環境取得 ################################## require "./lib/m_lib.pl"; # 必ず先頭に定義 ################################################################################ # メイン処理 ################################################################################ local($Body); local($JsPath,$StyleMode,$AccessMode); $ContentPath = $HomepageDir; $CgiPath = $HomepageDir . "/cgi-bin"; $ImagePath = $ContentPath; $JsPath = $ContentPath; $StyleMode = "c_stylesheet2.js"; # # お知らせファイルの読み込み # $Notice = ""; open(IN, "< $NewsFile"); @NoticeRec = ; close(IN); @NoticeRec = sort { $b cmp $a; } @NoticeRec; # # 表示ニュース編集 # foreach $News (@NoticeRec){ chop($News); # 発効日<>ニュースNo.<>終了日<>登録日<>ニュース ($N_date,$N_no,$N_enddate,$N_entrydate,$N_notice) = split(/<>/,$News); if( substr($N_date,0,1) eq '#' || $N_date eq "" ){ next; } # ハイパーリンク変換（特種文字変換） $N_notice =~ s/<br\ \/>/\n/g; # ハイパーリンク解除 $N_notice =~ s/<//g; $N_notice =~ s/"/"/g; $N_notice =~ s/<\/a>/<\/span>/g; $N_notice =~ s/$N_date
$N_notice

EOF_LINE } # # ニュース表示 # print <<"EOF"; Content-type: text/html なかや保育園

ﾎｰﾑﾍﾟｰｼﾞに戻る

$Notice

社会福祉法人愛友福祉会なかや保育園

【住所】〒312-0001 茨城県ひたちなか市佐和612-3

【電話】029-285-4808

ﾎｰﾑﾍﾟｰｼﾞに戻る

▲ﾍﾟｰｼﾞﾄｯﾌﾟへ

EOF exit;