#!/usr/bin/perl ############## #北海道市長会# ############## #日本語コード変換モジュール require 'jcode.pl'; #--------------------------------------- #メッセージを格納するデータベースファイル $datafile = 'ment/news.txt'; #--------------------------------------- #バックグランドの画像ファイル $bg_gif = ''; #--------------------------------------- #区切り線　画像を使用しない場合は''にする $line_gif = ''; #--------------------------------------- #ワンポイント画像 $point_gif = 'mark.gif'; #--------------------------------------- #管理者削除モードのパスワード $password = 'may4565'; #--------------------------------------- #掲示板の名前 $title = '北海道市長会ニュース'; #--------------------------------------- #バックグランドカラー $bg_color = '#FFF8EC'; #テキストの文字色 $text_color = '#000000'; #リンク文字色 $link_color = '#000000'; #Ｖリンク文字色 $vlink_color = '#000000'; #Ａリンク文字色 $alink_color = '#000000'; #題名の文字色 $subject_color = '#AF0000'; #--------------------------------------- #保存する更新履歴（極端に多くするとパフォーマンスが低下します） $max = 120; #--------------------------------------- #1ページに表示する件数 $pagevew = 5; #---------------------------------------- $textwidth = 60; $title_html = <<"TITLE_HTML";
最新ニュース5件のタイトルをピックアップしてくれます。
詳細は、各ニュースのタイトルをクリックしてください。
TITLE_HTML $agent = $ENV{'HTTP_USER_AGENT'}; #if ($agent =~ /MSIE\ 3/i) { $textwidth = $textwidth * 1.5; } if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $formdata, $ENV{'CONTENT_LENGTH'}); } else { $formdata = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$formdata); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if ($tag eq 'no') { $value =~ s//>/g; } $value =~ s/\n//g; $value =~ s/\,/，/g; &jcode'convert(*value,'sjis'); $FORM{$name} = $value; } if (!open(NOTE,"$datafile")) { &error(bad_file); } @DATA = ; close(NOTE); &html; #======================================================================================= sub html_head { print "Content-type: text/html\n\n"; print "\n"; print "北海道市長会ニュース\n"; print "\n"; print "\n"; print "\n"; print "$title_html\n"; } #======================================================================================= sub html { &html_head; &listvew; print "

\n"; print "\n"; exit; } #======================================================================================= sub listvew { if ($FORM{'nextpage'} eq '') { $nextpage = 0; } else { $nextpage = $FORM{'nextpage'}; } $end_data = @DATA - 1; $page_end = $nextpage + ($pagevew - 1); if ($page_end >= $end_data) { $page_end = $end_data; } print "\n"; foreach ($nextpage .. $page_end) { ($date,$code,$subject,$gif,$url,$msg) = split(/\,/,$DATA[$_]); print "\n"; print " \n"; print " \n"; print "\n"; } print "
●$subject発信日$date
\n"; print "

\n"; } #=======================================================================================