このページは福井県立大学の田中求之が2006年1月まで運用していた Mac のサーバ運用に関する会議室 「Web Scripter's Meeting」の記録です。情報が古くなっている可能性がありますのでご注意ください。

ランダムにページを表示させたい

発言者:akihied sasabe
( Date Wednesday, February 04, 1998 15:23:31 )


AppleScriptで、ランダムにウェブページを読み込むようにしたくて、
「画像をランダムに読み込ませる」スクリプトを改造しようとしてるん
ですけど、どうしてもうまく動きません。

1つのフォルダにいくつものHTMLファイルを入れていて、別のページ
からのリンクで、そのフォルダ内にあるファイルのどれかを読み込ませ
ることができればいいんですが、どうすればいいでしょうか?

初心者ですが、よろしくお願いします。

田中求之 さんからのコメント
( Wednesday, February 04, 1998 16:42:08 )

以下のスクリプトの CGI をページと同じフォルダーに入れておいてよびだせば、
CGI と同じフォルダーの中のページ(テキストファイル)がランダムに呼び出されます

property crlf : (ASCII character 13) & (ASCII character 10)


property redirect_header : "HTTP/1.0 302 Found" & crlf ツ
  & "Location: "

property pageFldr : ""

on run
  set pageFldr to (":" as alias) as string
end run

on ヌevent WWWスsdocネ
  
  tell application "Finder"
    set myPage to name of (files in folder pageFldr whose file type = "TEXT")
  end tell
  
  set myPage to some item of myPage
  
  return redirect_header & myPage
  
end ヌevent WWWスsdocネ

akihide sasabe さんからのコメント
( Wednesday, February 04, 1998 17:19:52 )

さっそくのコメントありがとうございます。
おかげさまでうまくいきました。
どうもありがとうございました!