SEO対策型更新日時詐称スクリプト

ロボット型検索エンジンがhtmlファイルの更新日時を調べるのはよくご存知のことと思います。このスクリプトはそれを利用し、htmlファイルの更新日時を詐称します。htmlにアクセスされた時に、Javascriptを用いこのスクリプトへアクセスします。
アクセスされたupdate.cgiはアクセスされたファイルを特定し、そのファイルを上書きします。
その際に、htmlファイルに<meta name="Date.Modified">がある場合、それをサーバタイムにあわせ書換えます。それにより、常に最新の状態を偽る事ができるという仕様です。

実際にどの程度の効果があるかはわかりませんが、当サイトでは気持ち程度、アクセス数が増えました。
ちなみにファイルロック処理を行っていますが、自前なのでデータが飛んだらゴメンナサイ。

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

DOWNLOAD

ソース
#!/usr/bin/perl #[01]メタファイルの定義は下記フォーマットで定義してください。 #<meta name="Date.Modified" content="2004-07-22T20:02:41.000+09:00" /> # #[02]Javascript外部ファイルとしてロードしてください。 #<script type="text/javascript" Language="javascript" src="update.cgi"></script> # #[03]ファイルロック用のディレクトリ「locl[777]」を同階層に配置してください。 # #更新対象ファイル #リクエストされたファイルがhtmlファイルじゃない場合はこの定義ファイルが更新されます $targetfile = '../../index.html'; #ロックファイルの定義 $lockfile = 'lock/lock.lock'; #ロック用ディレクトリ $lockdir = 'lock'; #このスクリプトから見たrootの相対パス $rootpass = '../../'; #このスクリプトから見たrootの絶対パス $rooturl = 'http://www.trancedive.com/'; $updatehtml = $ENV{'HTTP_REFERER'}; $updatehtml =~ s/${rooturl}/${rootpass}/g; if(-e $updatehtml && index($updatehtml,".htm") > -1){ $targetfile = $updatehtml; } #対象ファイルをロード &filelock; open(FH,"$targetfile"); @html = <FH>; close(FH); &fileunlock; $html = join("",@html); $metasta = '<meta name="Date.Modified" content="'; $start = index($html,$metasta); #サーバタイムに合わせたメタを生成 ($sec,$min,$hour,$day,$mon,$year) = localtime(time); $mon++;$year += 1900; $meta = sprintf(" /><meta name=\"Date.Modified\" content=\"%04d-%02d-%02dT%02d:%02d:%02d.000+09:00\" />",$year,$mon,$day,$hour,$min,$sec); #古いメタファイルと置換え if($start > -1){ substr($html, $start,67) = $meta; } #indexファイルを上書き &filelock; open(FH,">$targetfile"); print FH $html; close(FH); &fileunlock; #外部Javascriptファイルとしてnullを返す print "Pragma: no-cache\n"; print "Cache-Control: no-cache\n"; print "Content-type: text/plain\n\n"; print "<!--\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; }