<@20> <@local(ps,h,form,art)> <$ps = v.load_plgset(argv#0)> <$form = argv#1> <$art = argv#2> <$host = ENV.HTTP_HOST || ENV.SERVER_NAME> <$from = v.system_email || ps.from || if(index(host,'.')>0, "noreply@<@host>", '')> <$ifbreak(ps.to eq '')> <@> <@>新着コメントメール <@> <$h = new> <$ifexec(v.system_smtp, begin, begin)> <$h.host = v.system_smtp> <$h.auth_name = v.system_smtp_auth_name> <$h.auth_pass = v.system_smtp_auth_pass> <$else> <$h.host = ps.host> <$h.auth_name = ps.auth_name> <$h.auth_pass = ps.auth_pass> <$end> <$h.to = ps.to> <$h.from = from> <$ifset(from, h.reply_to, from)> <$h.from_name = Server_name> <$local(bname) = unesc(v.blog.blog_name)> <$h.subject = if(ps.subject ne '', ps.subject, '%n notify')> <$h.subject = replace(h.subject, '%n', "『<@bname>』")> <$h.text = begin_string> 『<@unesc(if(art.title ne '', art.title, v.blog.blog_name))>』にコメントされました。 from <@form.name> <@form.comment_txt> <@ServerURL><@v.myself2><@v.link_key_encode(x = art.link_key)>#com <$end> <$m = loadpm('Base::Mail')> <$r = m.send_mail(h)>