#! /usr/local/bin/perl
#
#らんだむバナー&リンク
#1997.10.16製作
#すくりぷと ばい ゆいちゃっと
# Since 1996
#
#利用時には、あなたのホームページから
#http://www.cup.com/yui/
#へリンクをお願いいたします。
#
#利用方法
#
#このスクリプトの__END__以降に、
#リンク先URL:#画像URL
#のフォーマットでデータを追加します。
#banalink.cgi(755)を設置します。
#
#あなたのページから、
#
#のような感じのタグを書けばOKです。
$|=1;
srand(time);
if($ENV{'QUERY_STRING'} eq 'link'){##ランダムリンク
&getcookie;
&location if($url=~/^http:/);
&getdata;
($url,$dmy) = split(/:#/, $data);
$url = 'http://www.cup.com/yui/' unless($url);
}else{
&getdata;
($url2,$url) = split(/:#/, $data);
$url = 'http://www.cup.com/yui/ban/ani1.gif' unless($url);
$url2 = 'http://www.cup.com/yui/' unless($url2);
&setcookie($url2);
}
&location;
#main END
sub getdata{
while(){
chop;
push(@links,$_) if($_);
}
if(@links){#ランダムにデータを一つ選ぶ
$data = $links[rand($#links+1)];
}
}#getdata END
sub location{
print "Location: $url\n";
print "Pragma: no cache\n";
print "Expires: Thu, 16 Dec 1994 16:00:GMT\n\n";
exit;
}#location END
sub getcookie{ #くっきーを頂きます。
$cooks = $ENV{'HTTP_COOKIE'};
$cooks = '' unless($cooks =~s/.*yuibanlinkdata=(.*)yuibanlinkend.*/$1/);
($url,$dum) = split(/\t/, $cooks);
}#getcookie END
sub setcookie{ #くっきーをブラウザにプレゼントします。
$link=$_[0];
$data = "$link\tyuibanlinkend";
print "Set-Cookie: yuibanlinkdata=$data; expires=Wednesday, 09-Nov-2003 00:00:00 GMT\n";
}
#このクッキー2003/11/9まで有効です。それを過ぎたら、日付をもっと先にして。
__END__
http://pc.bookmall.co.jp/:#http://www.tcp-net.ad.jp/danbo/banaer/banr_pbk.gif
http://www.visavis.co.jp/:#http://www.tcp-net.ad.jp/danbo/banaer/Vis-a-Vis.gif
http://www.act2.co.jp/:#http://www.tcp-net.ad.jp/danbo/banaer/act201.gif
http://www.zdnet.co.jp/macwire/:#http://www.tcp-net.ad.jp/danbo/banaer/macwire_1.gif
http://www.powerlab.co.jp/caravanlab/:#http://www.tcp-net.ad.jp/danbo/banaer/powerlab01.gif
http://www.flashbackj.com/:#http://www.tcp-net.ad.jp/danbo/banaer/Flashback01.gif
http://www.mjsoft.co.jp/lk/index.html:#http://www.tcp-net.ad.jp/danbo/banaer/mj01.gif
http://www.id-ee.co.jp/ :#http://www.tcp-net.ad.jp/danbo/banaer/idee_bunner3a01.jpg
http://www.tcp-ip.or.jp/information/NEWS/tcp-school.html :#http://www.tcp-net.ad.jp/danbo/image/tcp-school.gif
http://www.wild.gr.jp/~poke/ :#http://www.tcp-net.ad.jp/danbo/banaer/bird01.gif
http://www.nisfont.co.jp/ :#http://www.tcp-net.ad.jp/danbo/banaer/nisba01.gif
http://www.photodisc.co.jp/product/photodisc/campaign/index.html :#http://www.tcp-net.ad.jp/danbo/banaer/photodisc01.gif
http://www.yamakitsu.co.jp/citrus/ :#http://www.tcp-net.ad.jp/danbo/banaer/citrus01.gif
http://www.maclet.com/ :#http://www.tcp-net.ad.jp/danbo/banaer/bn_maclet01.gif
http://www.pawasapo.co.jp/ :#http://www.tcp-net.ad.jp/danbo/banaer/pawasapo01.gif
http://www.macmem.com/ :#http://www.tcp-net.ad.jp/danbo/banaer/pawasuta01.gif
http://www.kaerusoft.co.jp/index.shtml :#http://www.tcp-net.ad.jp/danbo/banaer/kaerusoft01.gif
http://www.focal.co.jp/:#http://www.tcp-net.ad.jp/danbo/banaer/foca01.gif
http://www.a-net.co.jp/comtech/:#http://www.tcp-net.ad.jp/danbo/banaer/comtech_mv01.gif
http://macfannet.mycom.co.jp/:#http://www.tcp-net.ad.jp/danbo/banaer/macfannet01.gif
http://www.ditshop.com/ :#http://www.tcp-net.ad.jp/danbo/banaer/ditshopcom01.gif
http://www.pxstore.co.jp/ :#http://www.tcp-net.ad.jp/danbo/banaer/px_banner.gif
http://www.ascii.co.jp/netmedia/ :#http://www.tcp-net.ad.jp/danbo/banaer/ascii_vpc.gif
http://www.mercury-soft.com/campaign/info.html :#http://www.tcp-net.ad.jp/danbo/banaer/mercury01.gif
http://www.vow.co.jp/kokoku.html :#http://www.tcp-net.ad.jp/danbo/banaer/vlogicbn01.gif
http://www.toycomp.com/ :#http://www.tcp-net.ad.jp/danbo/banaer/toycomp01.gif
http://www.lacie.co.jp/:#http://www.tcp-net.ad.jp/danbo/banaer/lacie01.gif
http://www.avenue-d.com/ :#http://www.tcp-net.ad.jp/danbo/banaer/avenue_d01.gif
http://www.sonnettech.com/jp/product/default.html :#http://www.tcp-net.ad.jp/danbo/banaer/Sonnet01.gif
http://www.ascii.co.jp/pb/mac/ :#http://www.tcp-net.ad.jp/danbo/banaer/asciimac01.gif
http://www.brainmusic.com/ :#http://www.tcp-net.ad.jp/danbo/banaer/brainmusic01.gif
http://www.e-trend.co.jp/ :#http://www.tcp-net.ad.jp/danbo/banaer/etend_banner01.gif