makehtmlr.rb

   1 # -*- coding: utf-8 -*-
   2 require './bookdesc'
   3
   4 workdir = "~/amazonrank"
   5 htmlfile = workdir.dup << "/" << ARGV[0].dup <<  "r.html"
   6
   7 open(htmlfile, "w") { |f|
   8   f.print <<EOS
   9 <?xml version="1.0" encoding="UTF-8"?>
  10 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
  11 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja">
  12 <head>
  13 <meta http-equiv="Content-Type" content="text/html;charset=UTF-8" />
  14 EOS
  15   f.print "<title>Amazonランキング - ", ARGV[0], "</title>\n"
  16
  17   f.print <<EOS
  18 </head>
  19 <body>
  20 EOS
  21
  22   f.print "<h1>Amazonランキング - ASBN", ARGV[0], "</h1>"
  23   f.print "<p>"
  24   f.bookdesc(ARGV[0])
  25   f.print "</p>\n"
  26   f.print "<p><a href=\"http://www.amazon.co.jp/dp/", ARGV[0], "\">Amazonのページ</a></p>\n"
  27   f.print "<p><a href=\"", ARGV[0], ".csv\">データファイル（CSV形式）</a></p>\n"
  28   f.print "<p><a href=\"", ARGV[0], ".html\">グラフの上下を逆にする</a></p>\n"
  29   f.print <<EOS
  30 <p><a href=\"index.html\">目次へ戻る</a></p>
  31 <div>
  32 EOS
  33
  34   f.print "<object data=\"", ARGV[0], "r.svg\" type=\"image/svg+xml\" width=\"772.70\" height=\"578.16\">\n"
  35   f.print "<img src=\"", ARGV[0], "r.png\" alt=\"ASBN", ARGV[0], "のランキング\" />\n"
  36
  37   f.print <<EOS
  38 </object>
  39 </div>
  40 </body>
  41 </html>
  42 EOS
  43 }