06/01/25 22:08:08
7CMS
このスレで作った >>365 >>378 >>381 >>384 をモジュール化して一元管理する。
サードパーティー製品でもCGI.pmを使ったものなら大丈夫かも。
>>137 >>274 は一応動いた。
使い方は全部同じディレクトリに入れればいいだけだから。
use CGI':all';$d=param '*';@r=[$0=~/([^\\\/]+)$/,'START'];$p=$`;for$n(<*>){if($r
[0][0]ne$n&&$n=~/\.cgi$/){$r='';chdir$p;open F,$n;read F,$c,-s F;tie*G=*STDOUT,
'main';eval"package C$`;$c";untie*G;$r=~s/^.+?(\r?\n){2}//s;$r=~s/(<a\s.*?\?)(.
*?>)/$1*=$d&$2/gisx;$r=~s!(?=</for)!hidden -name,'*',-value,$d!egi;push@r,[
$n,$r.$@]}}AUTOLOAD{ref(shift)?($r.=join'',@_):bless[]}charset '';put header,
table Tr td{style=>'vertical-align:top;text-align:left;border:1px solid gray'},
[ul(li[map a({href,"?*=$_"},$d==$_?b($r[$_][0]):$r[$_][0]),0..$#r]),$r[$d][1]]