#! /usr/bin/perl --
#=======================================================================================
#	Banner Version 2002.06	バナーをランダムに表示する
#=======================================================================================
#一度に表示するバナーの数
$view = 3;
#=======================================================================================
#テーブルのデータ間の色
$space_color = 'http://www.sensyu.ne.jp/topimg/bannerbk.gif';
#=======================================================================================
#バナー広告の画像とリンクするアドレス
#'画像ファイル=ジャンプするアドレス'のように「=」で区切る
#リンクアドレスを省略するとバナーだけを表示する
$BANNER[0] = 'http://www.sensyu.ne.jp/banner/bana_01.gif=http://www.hotta-gumi.co.jp/';
$BANNER[1] = 'http://www.sensyu.ne.jp/banner/bana_02.gif=http://www.kes-jp.com/';
$BANNER[2] = 'http://www.sensyu.ne.jp/banner/bana_03.gif=http://www.sen-net.jp/';
$BANNER[3] = 'http://www.sensyu.ne.jp/banner/bana_04.gif=http://www.hisho-kan.ed.jp/';
$BANNER[4] = 'http://www.sensyu.ne.jp/banner/bana_05.gif=http://www.sumire.gr.jp/';
$BANNER[5] = 'http://www.sensyu.ne.jp/banner/bana_06.gif=http://www.una1.com/';
$BANNER[6] = 'http://www.sensyu.ne.jp/banner/bana_07.gif=http://www.yokotajibika.jp/';
$BANNER[7] = 'http://www.sensyu.ne.jp/banner/bana_08.gif=http://www.c-cube.ne.jp/';
$BANNER[8] = 'http://www.sensyu.ne.jp/banner/bana_09.gif=http://www.senshu-marathon.jp/';
$BANNER[9] = 'http://www.sensyu.ne.jp/banner/bana_10.gif=http://www.tosyokan-kishiwada.jp/';
$BANNER[10] = 'http://www.sensyu.ne.jp/banner/bana_11.gif=http://www.sg-lease.co.jp/';
$BANNER[11] = 'http://www.sensyu.ne.jp/banner/bana_12.gif=http://www.senshubank.co.jp/';
$BANNER[12] = 'http://www.sensyu.ne.jp/banner/bana_13.gif=http://www.atts-co.jp/';
$BANNER[13] = 'http://www.sensyu.ne.jp/banner/bana_14.gif=http://www.unityhome.co.jp/';
$BANNER[14] = 'http://www.sensyu.ne.jp/banner/bana_15.gif=http://www.jcp-hannan.net/';
$BANNER[15] = 'http://www.sensyu.ne.jp/banner/bana_16.gif=http://www.ota-kensetsu.co.jp/';
$BANNER[16] = 'http://www.sensyu.ne.jp/banner/bana_17.gif=http://www.e-todokete.net/';
$BANNER[17] = 'http://www.sensyu.ne.jp/banner/bana_18.gif=http://www.home-1.co.jp/';
$BANNER[18] = 'http://www.sensyu.ne.jp/banner/bana_19.gif=http://www.minori-juken.com/';
$BANNER[19] = 'http://www.sensyu.ne.jp/banner/bana_20.gif=http://www.nakayama-kasei.co.jp/';
$BANNER[20] = 'http://www.sensyu.ne.jp/banner/bana_21.gif=http://www.kishiwada-east-rc.jp/';
$BANNER[21] = 'http://www.sensyu.ne.jp/banner/bana_22.gif=http://namikiri.jp/';
$BANNER[22] = 'http://www.sensyu.ne.jp/banner/bana_23.gif=http://www.tvk.co.jp/';
$BANNER[23] = 'http://www.sensyu.ne.jp/banner/bana_24.gif=http://www.karasuno.jp/';
$BANNER[24] = 'http://www.sensyu.ne.jp/banner/bana_25.gif=http://www.kishiwada-cci.or.jp/';
$BANNER[25] = 'http://www.sensyu.ne.jp/banner/bana_26.gif=http://izuminet.sensyu.ne.jp/';
$BANNER[26] = 'http://www.sensyu.ne.jp/banner/bana_27.gif=http://www.aiju.co.jp/';
$BANNER[27] = 'http://www.sensyu.ne.jp/banner/bana_28.gif=http://www.is-co.jp/';
$BANNER[28] = 'http://www.sensyu.ne.jp/banner/bana_29.gif=http://cotton.sensyu.ne.jp/';
$BANNER[29] = 'http://www.sensyu.ne.jp/banner/bana_30.gif=http://www.fuji-jutaku.co.jp/';
$BANNER[30] = 'http://www.sensyu.ne.jp/banner/bana_31.gif=http://www.feicjoe.com/';
$BANNER[31] = 'http://www.sensyu.ne.jp/banner/bana_33.gif=http://www.osw.co.jp/';
$BANNER[32] = 'http://www.sensyu.ne.jp/banner/bana_34.gif=http://www.yabuyoshi.co.jp/';
$BANNER[33] = 'http://www.sensyu.ne.jp/banner/bana_35.gif=http://www.senshujitugyo.co.jp/';
$BANNER[34] = 'http://www.sensyu.ne.jp/banner/bana_36.gif=http://www.matsusakaltd.co.jp/';
$BANNER[35] = 'http://www.sensyu.ne.jp/banner/bana_37.gif=http://www2.sensyu.ne.jp/hondakom/';
$BANNER[36] = 'http://www.sensyu.ne.jp/banner/bana_38.gif=http://www2.sensyu.ne.jp/isiyasan/';
$BANNER[37] = 'http://www.sensyu.ne.jp/banner/bana_39.gif=http://www.sennoya.jp/';
$BANNER[38] = 'http://www.sensyu.ne.jp/banner/bana_40.gif=http://www.osaka-shiho.or.jp/';
$BANNER[39] = 'http://www.sensyu.ne.jp/banner/bana_41.gif=http://www2.sensyu.ne.jp/kch/';
$BANNER[40] = 'http://www.sensyu.ne.jp/banner/bana_42.gif=http://www.yosimaru.jp/';
$BANNER[41] = 'http://www.sensyu.ne.jp/banner/bana_43.gif=http://www.puropen-hinode.jp/';
$BANNER[42] = 'http://www.sensyu.ne.jp/banner/bana_44.gif=http://www.legal-support-osaka.jp/';
$BANNER[43] = 'http://www.sensyu.ne.jp/banner/bana_45.gif=http://www.takeda-weaving.co.jp/';
$BANNER[44] = 'http://www.sensyu.ne.jp/banner/bana_46.gif=http://money.dreamplan.info/';
$BANNER[45] = 'http://www.sensyu.ne.jp/banner/bana_47.gif=http://www.ayanami.co.jp/';
$BANNER[46] = 'http://www.sensyu.ne.jp/banner/bana_48.gif=http://www.cortec.jp/';
$BANNER[47] = 'http://www.sensyu.ne.jp/banner/bana_50.gif=http://www.fuji-amenity.com/';
$BANNER[48] = 'http://www.sensyu.ne.jp/banner/bana_51.gif=http://www.harvesthome.jp/';
$BANNER[49] = 'http://www.sensyu.ne.jp/banner/bana_52.gif=http://www.kojima-fm.jp/';
$BANNER[50] = 'http://www.sensyu.ne.jp/banner/bana_53.gif=http://www.rental-ise.co.jp/';
$BANNER[51] = 'http://www.sensyu.ne.jp/banner/bana_54.gif=http://www.assist-animal.com/';

#=======================================================================================
$count = @BANNER;
$target = '_blank';
#=======================================================================================
#配列をランダムにかき混ぜる
#=======================================================================================
local(@temp);
while (@BANNER) {
push(@temp,splice(@BANNER,rand(@BANNER),1));
}
@BANNER=@temp;
#=======================================================================================
print "Content-type: text/plain\n\n";
print "<!--\n";
		print "document.write(\"<table border=0 cellpadding=0 cellspacing=0 width=135>\")\;\n";
		
		for ($i=0; $i<$view; $i++){
		$imgfile = $BANNER[$i];
		($file, $addr) = split(/=/, $imgfile);
		if ($addr) {
			print "document.write(\"<tr><td><a href=$addr target=$target><img src=$file width=135 height=34 border=0></a></td></tr>\")\;\n";
			print "document.write(\"<tr><td><img src=$space_color border=0></td></tr>\")\;\n";
			} else {
			print "document.write(\"<tr><td><img src=$file width=135 height=34 border=0></td></tr>\")\;\n";
			print "document.write(\"<tr><td><img src=$space_color border=0></td></tr>\")\;\n";
		}
		}
		print "document.write(\"</table>\")\;\n";
print "//-->\n";
exit;

