#!/usr/bin/perl
##############
#北海道市長会#
##############
#日本語コード変換モジュール
require 'jcode.pl';
#---------------------------------------
#メッセージを格納するデータベースファイル
$datafile = 'ment/news.txt';
#---------------------------------------
#バックグランドの画像ファイル
$bg_gif = '';
#---------------------------------------
#区切り線 画像を使用しない場合は''にする
$line_gif = '';
#---------------------------------------
#ワンポイント画像
$point_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";
 |
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 "$title_html\n";
}
#=======================================================================================
sub html {
&html_head;
# print "\n";
&listvew;
print "
\n";
# print "
■News ■都市情報 ■組織活動状況 ■会員のページ ■市町村振興協会 ■北海道都市学会 ■リンク集\n"; 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; }
#if ($line_gif eq '') { print "
"; }
#else { print "
"; }
foreach ($nextpage .. $page_end) {
($date,$code,$subject,$gif,$url,$msg) = split(/\,/,$DATA[$_]);
$msg =~ s/([^=^\"]|^)((http|ftp|mailto):[!#-9A-~]+)/$1ここをクリック<\/a>/g;
$msg =~ s/\r/
/g;
print "\n";
print "| \n";
print "$subject | ";
print "\n";
print " 発信日$date ";
print " |
\n";
print "| ";
print " $msg \n";
print " |
\n";
print "
\n";
print "\n";
print "
\n";
}
$next_line = $page_end + 1;
if ($page_end ne $end_data) {
print "
\n";
}
}
#=======================================================================================