#! /usr/local/bin/perl



# bbs666.cgiのリンク欄です



# 更新履歴

#20020902作成

sub linklineon {



	# リンク行にAタグにtarget指定をつける

	if ( $FORM{'target_blank'} ) {

		$targetwindow = 'target="_blank"';

	} elsif ( $FORM{'targetlink'} ) {

		$targetwindow = 'target="link"';

	}



	# 掲示板タイトル

	if ( ( $FORM{'newtitle'} ) eq $bbstitle ) {

		$addnbt2 = '';

	} else {

		$addnbt2 = "&newtitle=$FORM{'newtitle'}";

	}



# 書式

# <A href="" $targetwindow></A>



print <<EOF;



  <FONT size="-1">

| <A href="http://www.ge.st98.arena.ne.jp/cgi-bin/bbs.cgi?m=g$addnbt2&c=$FORM{'c'}" $targetwindow>過去ﾛｸﾞ</A>
| <A HREF="http://www.ge.st98.arena.ne.jp/cgi-bin/bbs.cgi"$targetwindow>暫定</a>
| <A HREF="http://rotten.com/"$targetwindow>凸</a>
| <A HREF="http://traumascope.tk/"$targetwindow>徒羅宇魔</a>
| <A HREF="http://www.the-skull.net/"$targetwindow>髑髏</a>
| <A HREF="http://theabyss.dr.ag/"$targetwindow>亞</a>
| <A HREF="http://art.pos.to/"$targetwindow>暗黒工房</a>
| <A HREF="http://www.pluto.dti.ne.jp/~uttchy/"$targetwindow>うっちぃの音楽箱</a>
| <A HREF="http://www.midnight.nu/kikenda/"$targetwindow>世界最強の危険リンク集</a>
| <A HREF="http://www.cult.to/cult/"$targetwindow>カルトブックマーク</a>
| <A HREF="http://www.matino-akari.com/linksyu/"$targetwindow>街の灯</a>
| <A HREF="http://www.sangaria.co.jp/"$targetwindow>サンガリア</a>
| <A HREF="http://www.ohsho.co.jp/"$targetwindow>餃子の王将</a>

  </FONT>

EOF



}



sub linklineoff {



print <<EOF;



  <FONT size="-1">| 

  <A href="$cgiurl?m=g$addnbt2&c=$FORM{'c'}" $targetwindow>最近の過去ログ</A> |

  </FONT>

EOF



}



1;



__END__

