* ²áµî¤Î±É¸÷¡¢ÇƼԤÎÀÐÈꡢƮµ»¾ì¤ÎÎò»Ë¤Ê¤É¤Î¥×¥ë¥À¥¦¥ó¥ê¥ó¥¯ [#jc9ac9cd] - ¥Ú¡¼¥¸: [[ºáȳ²þ¤ÈÄ£³]] - Åê¹Æ¼Ô: [[¤æ¤]] - Í¥Àè½ç°Ì: ÉáÄÌ - ¾õÂÖ: Ãå¼ê - ¥«¥Æ¥´¥ê¡¼: ºáȳ´ÉÍý¼Ô¤Î»¨ÃÌ - Åê¹ÆÆü: 2008-12-30 (²Ð) 16:41:07 - ¥Ð¡¼¥¸¥ç¥ó: ** ¥á¥Ã¥»¡¼¥¸ [#pb4fac78] jump.cgi #!/usr/bin/perl $querybuffer = $ENV{'QUERY_STRING'}; @pairs = split(/&/,$querybuffer); foreach $pair (@pairs) { ($name, $value, $id, $pass) = split(/=/, $pair); if( $name eq "jumpto" ) { $jumpto = $value; # °ÜÆ°Àè } } if( $jumpto ne "-" ) { print "Location: $jumpto\n\n"; } else { print "Content-type: text/html\n\n"; print qq|<HTML>\n<HEAD><META HTTP-EQUIV="Content-Type" CONTENT="text/html ; charset=Shift_JIS">\n<TITLE>°ÜÆ°À褬̤»ØÄê¤Ç¤¹ </TITLE></HEAD>\n|; print qq|<BODY><H1>°ÜÆ°À褬ÁªÂò¤µ¤ì¤Æ¤¤¤Þ¤»¤ó¡£</H1><P>°ÜÆ°Àè¤òÁªÂò¤·¤Æ¤«¤é¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤·¤Æ²¼¤µ¤¤¡£</P></BODY>\n|; } exit; hist.cgi <form name="ore_" method="GET" action="./jump.cgi"> <input type=hidden name=id value="$id"> <input type=hidden name=pw value="$pass"> <input type=hidden name=mode value="$mode"> <select name="jumpto" size="1"> <option value="hist.cgi">¾ðÀª¤Îµ°À×</option> <option value="chist.cgi">±Ñͺ¤Îµ°À×</option> <option value="sekihist.cgi">ÇƸ¢¤Îµ°À×</option> </select> <input type=submit value="·èÄê"> </form> ¿§¡¹¤Ê¥µ¥¤¥È¤ò»²¹Í¤Ë¤·¤Æ¤³¤¦¤¤¤¦¤Î¤òºî¤Ã¤Æ¤ß¤Þ¤·¤¿¡£ ·ÈÂÓÍѤ˥ץë¥À¥¦¥ó¥á¥Ë¥å¡¼¤ÇÁªÂò¤·¤Æ¸«¤é¤ì¤ë¤è¤¦¤Ë¤·¤¿¤¤¤Î¤Ç¤¹¡£ ¤³¤Î¤Þ¤Þ¤À¤Èid¤Èpass¤Èmode¤Î¾ðÊ󤬤¦¤Þ¤¯ÅϤ»¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢¤É¤¦¤·¤¿¤é¤è¤¤¤Ç¤·¤ç¤¦¤«¡© ¤¦¤Á¤Î¥µ¥¤¥È¤Ç¤Ïchist.cgi¡¢sekihist.cgi¤Èʬ¤±¤Æ¤¢¤ë¤Î¤Ç¤¹¤¬¡¢Â¾¤Î¥µ¥¤¥È¤Ç¤Ïaction=hist.cgi name=cmd¡¡¤È¤·¤Æ¤¹¤Ù¤Æhist.cgi¤Ç½èÍý¤·¤Æ¤ë¤Î¤Ç¤¹¤¬¤è¤¯¤ï¤«¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£ »î¤·¤Ë $logfile = "./logdata/hist_log.cgi"; # ¥í¥°¥Õ¥¡¥¤¥ë¤Î¥Ñ¥¹ $logfile = "./logdata/chist_log.cgi" if($cmd==100); $logfile = "./logdata/sekihist_log.cgi" if($cmd==101); <select name="cmd" size="1"> <option value="-1">¾ðÀª¤Îµ°À×</option> <option value="100">±Ñͺ¤Îµ°À×</option> <option value="101">ÇƸ¢¤Îµ°À×</option> ¤È¤·¤Æ¤ß¤Þ¤·¤¿¤¬·âÄÀ¤·¤Þ¤·¤¿¡£ -------- - ¼«Ê¬¤Îºáȳ¤Ç¤ä¤Ã¤Æ¤ß¤Þ¤·¤¿¡£ ¡$logfile=¡Á¡Á¤Î²Õ½ê¤ò¡¢$logfile1=¡Á¡¡$logfile2=¡Á¡¡$logfile3=¡Á¤Î¤è¤¦¤Ëɽ¼¨Ê¬Áý¤ä¤¹¡£~ ¢title¤Î²¼¤Ë¡¢ <form name="ore_" method="$method" action="./hist.cgi"> <input type="hidden" name="id" value="$id"> <input type="hidden" name="pw" value="$pw"> <input type="hidden" name="camp" value="$in{'camp'}"> <select name="hist_num" class="button2" size="1"> <option value="1">²áµî±É</option> <option value="2">ÀÐÈê</option> <option value="3">»Å´±</option> </select> <input type=submit value="GO" class="button2" style="width:80px"> </form> ¤Ê´¶¤¸¤ÇÁªÂòÉô¤òɽ¼¨¡£ £É½¼¨Éô¤Ë¡¢ # ¥í¥°Æɤ߹þ¤ß $hist_num = $in{'hist_num'}; #²áµî±Éɽ¼¨ÈÖ¹æ if($hist_num==1){$kfile=$logfile1} elsif($hist_num==2){$kfile=$logfile2} elsif($hist_num==3){$kfile=$logfile3} else{$kfile=$logfile1} open(IN,"$kfile") || &error("Open Error : $kfile"); my @lines = <IN>; close(IN); ¾¤Î$logfile¤Î²Õ½ê¤â$kfile¤ËÊѹ¹¤¹¤ë¡£ ¤system¤Î¥Ç¥³¡¼¥É¤Ë $hist_num = $in{'hist_num'}; #²áµî±Éɽ¼¨ÈÖ¹æ ¤òÆþ¤ì¡¢¡¢¡¢¤Ê¤¯¤Æ¤â¿ʬÂç¾æÉפÀ¤È»×¤¦¡£-- [[mike]] &new{2009-01-07 (¿å) 11:15:20}; - ¤¡¡¢¤¿¤À¤·¡¢¤³¤ì¤Çɽ¼¨¤µ¤»¤ë¤¿¤á¤Ë¤Ï¡¢³Æ¥í¥°¥Õ¥¡¥¤¥ë¤¬Æ±¤¸·Á¼°¤ÇÊݸ¤µ¤ì¤Æ¤¤¤ë¤³¤È¤¬¾ò·ï¤Ë¤Ê¤ê¤Þ¤¹¡£¡äɽ¼¨·Á¼°¤¬Åý°ì¤µ¤ì¤Æ¤·¤Þ¤¦¤¿¤á -- [[mike]] &new{2009-01-07 (¿å) 11:24:42}; - ÂçÊÑÊÙ¶¯¤Ë¤Ê¤ê¤Þ¤·¤¿¡ª¡ª¡ä¡ã¡¡Æ®µ»¾ì¤Î¤À¤±¤Ê¤¼¤«É½¼¨¤µ¤ì¤Ê¤«¤Ã¤¿¤Î¤ÇƱ¤¸·Á¼°¤Ç¤Ï¤Ê¤«¤Ã¤¿¤ß¤¿¤¤¤Ç¤¹¡£Ä´À°¤·¤Æ¤ß¤¿¤¤¤È»×¤¤¤Þ¤¹ -- [[¤æ¤]] &new{2009-01-09 (¶â) 03:21:49}; #comment