#! /usr/bin/perl #===================================================================== # What’s New Information 表示部 # # Copyright (c) 2008 STUDIO iNDEX Co.,Ltd. #===================================================================== #トップページアドレス $topaddress = "../index.shtml"; #データの指定 $datafile = "./data/information.dat"; #画像ディレクトリの指定 (最後に「 / 」を必ず付けること) $picdir = "./data"; #表示画像ディレクトリ指定 (最後に「 / 」を絶対に付けないこと。) $imgdir = ".."; #$datawidth =720; #データテーブルのサイズ pixels #$titlewidth = 720; #タイトルテーブルサイズ pixels $owner = "ニュース&トピックス"; #オーナー名 #$bgcolor = "#cccccc"; #バックグラウンドカラー #$tbgcolor = "#ffffff"; #テーブルのバックグラウンドカラー #$bground = "$imgdir/image/bg_line.gif"; #テーブルのバックグラウンドイメージ require './html.pl'; #ヘッダフッダの読み込み #==================================================================== # プログラム本体 #==================================================================== open(IN,"$datafile") || print "
data file load error.
"; @lines =$message
\n"; } if ($posi eq "right") { print "$message \n"; } if ($posi eq "left" ) { print "$message \n"; } } else { print "$message
\n"; } print "