特定階層インデックススクリプト

当サイトでも使っていますが、手作業でインデックスページを作るとき手間な場合があったりします。
そういうときに役立つのがコレです。特定階層(ディレクトリ)内にあるhtmlファイルをリスト化してくれます。
htmlファイルのタイトルタグを抜き出して、タイトル名をリンク表示にしてくれる優れものです。
Javascript出力とhtml上書き出力の2パターンが選択できます。
日記や商品紹介など、特定階層に多量のhtmlを作るとき便利だと思います。
当サイトでは、Tips系及びコラムとニュースで使っています。

わかりづらいと思うのでサンプルページをご用意しました。

パーミションは755です。
※ご不明な点などがあればBBSかメールにて聞いてください。※使用は自己責任でお願いします！

DOWNLOAD

ソース
#!/usr/bin/perl #ロックファイルの定義 $lockfile = 'lock/lock.lock'; #ロック用ディレクトリ $lockdir = 'lock'; #読み込むディレクトリ my $dir = 'logs/'; #置換用識別子 $chtml = ''; #html上書きする場合のhtmlファイルのパス $datafile = 'index.html'; #出力モードの選択("javascript" or "html") $mode = "javascript"; #URLパラメータでモードが指定されている場合はそちらを優先 if($ENV{'QUERY_STRING'} ne $null){ $mode = $ENV{'QUERY_STRING'}; } opendir DH, $dir or die "$dir:$!"; while (my $file = readdir DH) { next if $file =~ /^\.{1,2}$/; $checkfile = $dir . $file; if(index($checkfile,'.html') > -1){ &filelock; open(FH,"${checkfile}"); @getnamehtml = <FH>; close(FH); &fileunlock; $getnamehtml = join('',@getnamehtml); $start = index($getnamehtml,'<title>') + 7; $end = index($getnamehtml,'</title>'); $end = $end - $start; $title = substr($getnamehtml, $start, $end); if($title ne "--title--"){ if($mode eq "html"){ $data .= "<a href=\"${checkfile}\">${title}</a><br />\n"; } elsif($mode eq "javascript"){ $data .= "document.write(\'<a href=\"${checkfile}\">${title}</a><br />\');\n"; } } } } closedir DH; if($mode eq "html"){ &filelock; open(FH,"${datafile}"); @html = <FH>; close(FH); &fileunlock; $html = join('',@html); @html = split(/$chtml/ , $html); $html[1] = $data; $html = join($chtml,@html); &filelock; open(FH,">$datafile"); print FH $html; close(FH); &fileunlock; $gotourl = $ENV{'HTTP_REFERER'}; print "Content-type: text/html\n\n"; print "\n"; print "<head>\n"; print "<title>reload</title>\n"; print "<meta http-equiv=\"refresh\" content=\"0;URL=${gotourl}\" />\n"; print "</head>\n"; print "\n"; print "\n"; print "\n"; } else{ print "Pragma: no-cache\n"; print "Cache-Control: no-cache\n"; print "Content-type: text/plain\n\n"; print "\n"; } #ファイルロック・アンロック関数など sub filelock{ if(-d $lockdir){$flag = 0;} else{mkdir $lockdir,0777;$flag = 0;} if(-e $lockfile){ @filedata = stat($lockfile); $locktime = localtime($filedata[9]); if($locktime < time - 60){ mkdir $lockfile,0777; $flag = 1; } else{ while($flag == 0){ if(-e $lockfile){ $flag = 0; @filedata = stat($lockfile); $locktime = localtime($filedata[9]); if($locktime < time - 60){ mkdir $lockfile,0777; $flag = 1; } } else{ mkdir $lockfile,0777; $flag = 1; } } } } else{ mkdir $lockfile,0777; $flag = 1; } } sub fileunlock{ rmdir $lockfile; }

TRANCEDIVE

特定階層インデックススクリプト

Sponsored link