http://www.olive-design.com/~cgi/ ja-jp http://www.olive-design.com/~cgi/perl/counter06.html 鵐拭 6 蹈鞍ンタ″グ弔砲泙箸討澆泙侫名counter06.cgi離貼佞謄僉潺755砲泙 如存僖侫侫count.dat僉潺666砲泙 counter06.cgi #!/usr/bin/perl #鵐拭 #蹈意ツにまと #匹濆潺侫count.datCGI屮侫同箸 #澆了IP疋譽紘み ($sec,$min,$hour,$day,$mon,$year,$wd... 2008-08-02T21:10:06 スクリプトファイル http://www.olive-design.com/~cgi/perl/counter03.html 鵐拭 3 鵐拭離蹈安固よう砲泙侫名counter03.cgi離貼佞謄僉潺755砲泙 蹈囲壬欣ccess.dat僉潺666砲泙 如存僖侫侫count.dat僉潺666砲泙 counter03.cgi #!/usr/bin/perl #鵐拭 #澆了IP疋譽紘み ($sec,$min,$hour,$day,$mon,$year,$wday) = lo... 2008-08-02T21:08:45 スクリプトファイル http://www.olive-design.com/~cgi/perl/time.html 表廛 澆屬表襯貢トでふヌime.cgi離貼佞謄僉潺755砲泙 廛 time.cgi #!/usr/bin/perl ($sec,$min,$hour,$day,$mon,$year,$wday) = localtime(time) @weekday = ("","","","","","","") $week = $weekday[$wday] ... 2008-08-02T13:23:13 スクリプトファイル http://www.olive-design.com/~cgi/perl/counter05.html 鵐拭 5 離鵐拭留僂撚遑格ド春ヌounter05.cgi離貼佞謄僉潺755砲泙 蹈囲壬欣ccess.dat僉潺666砲泙 如存僖侫侫count.dat僉潺666砲泙 廛 counter05.cgi #!/usr/bin/perl #鵐拭 #澆了IP疋譽紘み ($sec,$min,$hour,$day,$mon,$year,$wday) = ... 2008-08-02T13:23:04 スクリプトファイル http://www.olive-design.com/~cgi/perl/counter04.html 鵐拭 4 鵐拭表分gif砲泙 侫名counter04.cgi離貼佞謄僉潺755砲泙 蹈囲壬欣ccess.dat僉潺666砲泙 如存僖侫侫count.dat僉潺666砲泙 gif鬚海蕕ー匹同侫討泙 廛 counter04.cgi #!/usr/bin/perl #鵐拭 #澆了IP疋譽紘み ($sec,$min,$hour,$day,$mon,$... 2008-08-02T13:22:53 スクリプトファイル http://www.olive-design.com/~cgi/perl/counter02.html 鵐拭 2 表廛箸僂同IP疋譽肱伊為とップなよう罎憩ま 侫名counter02.cgi離貼佞謄僉潺755砲泙 蹈囲壬欣ccess.dat僉潺666砲泙 counter02.cgi #!/usr/bin/perl #鵐拭 #澆了IP疋譽紘み ($sec,$min,$hour,$day,$mon,$year,$wday) = localtime(... 2008-08-02T13:22:29 スクリプトファイル http://www.olive-design.com/~cgi/perl/counter.html 廛襯タ 廛淵鵐拭任侫名counter.cgi離貼佞謄僉潺755砲泙 肇蹈安狐の欣ount.dat謄僉潺奪666砲同侫討泙 廛 counter.cgi #!/usr/bin/perl #廛襯タ #如存僖侫count.dat同侫砲討 # 泙任離鵐真匹濆竸 open(COUNT,"count.dat") || die "logfile open Err... 2008-08-02T13:22:18 スクリプトファイル http://www.olive-design.com/~cgi/perl/calender.html 年 張蕁捨狐でヌalender.cgi離貼佞謄僉潺755砲泙 廛 calender.cgi #!/usr/bin/perl #離丱奪蕁 $today_color = rsquo#FFC3CErsquo #奮離丱奪蕁 $day_bgcolor = rsquo#ffffffrsquo #離侫肇蕁 $font_color = rsquo... 2008-08-02T13:22:09 スクリプトファイル http://www.olive-design.com/~cgi/perl/mailform01.html 瓠謝 1 瓠eb襦ナメー侫爛貢トでふailform01.htmlmailform01.cgi堂離鬚修譴湘春ま mailform01.cgi離僉潺755儿泙 文魁煮緩はcode.pl薀ぶパま 廛 mailform01.html lthtml> lthead> lttitle>瓠謝t/title> ltform method="post" ... 2008-07-31T13:23:53 スクリプトファイル http://www.olive-design.com/~cgi/perl/mailform02.html 瓠謝 2 HTML侫澤任mailform02.cgi堂離鬚修譴湘春ま mailform02.cgi離僉潺755儿泙 文魁煮緩は jcode.pl薀ぶパま mailform02.cgi #!/usr/bin/perl #文魁煮顔イ屮 require rsquojcode.plrsquo #瓠朱ソ侫箸泙任離僖 $sendmail =... 2008-07-31T13:23:41 スクリプトファイル http://www.olive-design.com/~cgi/perl/bbs04.html 奪納 4 離廛螢に暗号化僖錙蕊最縦ままふヌbs01.cgi離貼佞謄僉潺755砲泙 同悗剖離侫log.dat謄僉潺666砲泙 廛 bbs04.cgi #!/usr/bin/perl # # #蹈安 $data_max = 50 #離廛箸両 $this = "./bbs04.cgi" #蹈意ノ $logfile = "./lo... 2008-07-29T15:44:01 スクリプトファイル http://www.olive-design.com/~cgi/perl/bbs03.html 奪納 3 離廛箸侶納弔1據表襯拡診る機能弔討澆泙泙侫名bbs03.cgi離貼佞謄僉潺755砲泙 同悗剖離侫log.dat謄僉潺666砲泙 廛 bbs03.cgi #!/usr/bin/perl # #蹈安 $data_max = 50 #離廛箸両 $this = "./bbs03.cgi" #蹈意ノ $logfile = "./... 2008-07-29T13:22:00 スクリプトファイル http://www.olive-design.com/~cgi/perl/bbs02.html 奪納 2 離廛箸侶納弔忘能弔討澆泙泙侫名bbs02.cgi離貼佞謄僉潺755砲泙 同悗剖離侫log.dat謄僉潺666砲泙 廛 bbs02.cgi #!/usr/bin/perl #離廛箸両 $this = "./bbs02.cgi" #蹈意ノ $logfile = "./log.dat" decode if ($mode eq... 2008-07-29T13:21:30 スクリプトファイル http://www.olive-design.com/~cgi/perl/form04.html CGI悒侫討呂廛 4 弔CGI侫HTML侫分魑劼泙form04.cgi堂離鬚修譴湘春ま form04.cgi離僉潺755儿泙 form04.cgi #!/usr/bin/perl decode #表分凌分屮襦 if ($mode eq rsquoregistrsquo) { ampregist } html #html表 sub html {... 2008-07-28T21:03:10 スクリプトファイル