#! /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