#! /usr/bin/perl --
#=======================================================================================
#	Banner Version 2002.06	バナーをランダムに表示する
#=======================================================================================
#バナー広告の画像とリンクするアドレス
#'画像ファイル=ジャンプするアドレス'のように「=」で区切る
#リンクアドレスを省略するとバナーだけを表示する
$BANNER[0] = '・浪切ホール=http://namikiri.jp/';
$BANNER[1] = '・泉州銀行=http://www.senshubank.co.jp/';
$BANNER[2] = '・フジ住宅=http://www.fuji-jutaku.co.jp/';
$BANNER[3] = '・岸和田商工会議所=http://www.kishiwada-cci.or.jp/';
$BANNER[4] = '・松阪製作所=http://www.matsusakaltd.co.jp/';
$BANNER[5] = '・薮吉倉庫=http://www.yabuyoshi.co.jp/';
$BANNER[6] = '・すみれ=http://www.sumire.gr.jp/';
$BANNER[7] = '・中山化成=http://www.nakayama-kasei.co.jp/';
$BANNER[8] = '・堀田組=http://www.hotta-gumi.co.jp/';
$BANNER[9] = '・ｅ－どどけてねーっと=http://www.e-todokete.net/';
$BANNER[10] = '・うな壱=http://www.una1.com/';
$BANNER[11] = '・イズミ　ネットワーク=http://izuminet.sensyu.ne.jp/';
$BANNER[12] = '・ＣＳ　グループ=http://cotton.sensyu.ne.jp/';
$BANNER[13] = '・極東技研工業=http://www.feicjoe.com/';
$BANNER[14] = '・イズ=http://www.is-co.jp/';
$BANNER[15] = '・烏野金物店=http://www.karasuno.jp/';
$BANNER[16] = '・日本共産党阪南地区委員会=http://www.jcp-hannan.net/';
$BANNER[17]= '・泉州Net=http://www.sen-net.jp/';
$BANNER[18] = '・ユニティーホーム=http://www.unityhome.co.jp/';
$BANNER[19] = '・みのり住建=http://www.minori-juken.com/';
$BANNER[20] = '・シーキューブ=http://www.c-cube.ne.jp/';
$BANNER[21] = '・学校法人泉州学園=http://www.hisho-kan.ed.jp/';
$BANNER[22] = '・岸和田東ロータリークラブ=http://www.kishiwada-east-rc.jp/';
$BANNER[23] = '・泉州実業=http://www.senshujitugyo.co.jp/';
$BANNER[24] = '・泉銀総合リース=http://www.sg-lease.co.jp/';
$BANNER[25] = '・太田建設=http://www.ota-kensetsu.co.jp/';
$BANNER[26] = '・アイジュ薬品=http://www.aiju.co.jp/';
$BANNER[27] = '・ATT’S=http://www.atts-co.jp/';
$BANNER[28] = '・泉州ホーム=http://www.home-1.co.jp/';
$BANNER[29] = '・ケイ・イー・エス=http://www.kes-jp.com/';
$BANNER[30] = '・大阪湾開発管理=http://www.osw.co.jp/';
$BANNER[31] = '・泉州国際市民マラソン=http://www.senshu-marathon.jp/';
$BANNER[32] = '・岸和田市立図書館=http://www.tosyokan-kishiwada.jp/';
$BANNER[33] = '・横田耳鼻咽喉科医院=http://www.yokotajibika.jp/';
$BANNER[34] = '・義丸水産=http://www.yosimaru.jp/';
$BANNER[35] = '・千野屋=http://www.sennoya.jp/';
$BANNER[36] = '・プロのペンキ屋さん=http://www.puropen-hinode.jp/';
$BANNER[37] = '・大阪司法書士会=http://www.osaka-shiho.or.jp/';
$BANNER[38] = '・社団法人成年後見センター・リーガルサポート大阪支部=http://www.legal-support-osaka.jp/';
$BANNER[39] = '・竹田織物株式会社=http://www.takeda-weaving.co.jp/';
$BANNER[40] = '・株式会社綾波=http://www.ayanami.co.jp/';
$BANNER[41] = '・株式会社コルテック=http://www.cortec.jp/';
$BANNER[42] = '・有限会社エクシツテンツ=http://www.existenz.co.jp/';
$BANNER[43] = '・フジ住宅株式会社フジアメニティサービス=http://www.fuji-amenity.com/';
$BANNER[44] = '・有限会社ハーヴェストホーム=http://www.harvesthome.jp/';
$BANNER[45] = '・小島養殖漁業生産組合=http://www.kojima-fm.jp/';
$BANNER[46] = '・株式会社アイエスイー=http://www.rental-ise.co.jp/';
$BANNER[47] = '・有限会社アシストコンパニオンアニマル=http://www.assist-animal.com/';


#=======================================================================================
$count = @BANNER;
$target = '_blank';
$wordt1 = 'BC-INDEX1';
#=======================================================================================
#配列をランダムにかき混ぜる
#=======================================================================================
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=100%>\")\;\n";
		
		for ($i=0; $i<$count; $i++){
		$imgfile = $BANNER[$i];
		($file, $addr) = split(/=/, $imgfile);
		if ($addr) {
			print "document.write(\"<tr><td width=40%><span class=$wordt1>$file</span></td><td width=60%><a href=$addr target=$target>$addr</a></td></tr>\")\;\n";
			} else {
			print "document.write(\"<tr><td width=40%><span class=$wordt1>$file</span></td><td width=60%></td></tr>\")\;\n";
		}
		}
		print "document.write(\"</table>\")\;\n";
print "//-->\n";
exit;

