#!/usr/bin/eruby -Ke -C euc-jp <% require "nkf" require "cgi" require "net/imap" require "util" require "config" cgi = CGI.new open_session(cgi) do |session| if cgi.key?("mailbox") session["mailbox"] = cgi["mailbox"][0] end imap = Net::IMAP.new(HOST) imap.authenticate(session["auth_type"], session["user"], session["password"]) imap.select(session["mailbox"]) data = imap.uid_fetch(cgi["uid"][0].to_i, ["ENVELOPE", "RFC822.TEXT", "INTERNALDATE"])[0] $message = CGI.escapeHTML(NKF.nkf("-e", data.attr["RFC822.TEXT"])) $from = format_from(data.attr["ENVELOPE"].from) $subject = format_subject(data.attr["ENVELOPE"].subject) $date = format_date(data.attr["INTERNALDATE"]) end %> <%=$subject%>

[メール一覧]

件名<%=$subject%>
送信者<%=$from%>
日付<%=$date%>
<%= $message %>