|
153
|
1 #!/usr/bin/env ruby
|
|
|
2 # coding: euc-jp
|
|
|
3
|
|
|
4 # $KCODE = 'e' # 日本語コードの定義
|
|
|
5
|
|
|
6 require 'cgi' # CGI を使いますという宣言
|
|
|
7 c = CGI.new(:accept_charset => "EUC-JP")
|
|
|
8 print("Content-type: text/html; charset=EUC-JP\n\n") # 日本語コードの定義
|
|
|
9
|
|
|
10
|
|
|
11 # CGIスクリプトから受け取った変数の対を、rbで使う変数に代入
|
|
|
12
|
|
|
13 kuchikomi = c["info"]
|
|
|
14 hos = c["byoin"]
|
|
|
15 adress = c["jusho"]
|
|
|
16 hito = c["toukousya"]
|
|
|
17
|
|
|
18 ku = Hash.new
|
|
|
19
|
|
|
20 jusho = []
|
|
|
21 sha = []
|
|
|
22 komi = []
|
|
|
23
|
|
|
24 a = 0
|
|
|
25
|
|
|
26 if /(\S+):(\S+)/=~hos
|
|
|
27 # $1 = 病院名
|
|
|
28 # $2 = 住所
|
|
|
29 name = $1
|
|
|
30 adress = $2
|
|
|
31 end
|
|
|
32
|
|
|
33 if kuchikomi == "" || hito == "" || /,/=~kuchikomi || /,/=~hito || /^M/=~kuchikomi
|
|
|
34
|
|
|
35 print("<html>\n") # HTMLの規定
|
|
|
36 print("<head>\n") # HTMLの設定
|
|
|
37 print("<link rel=\"stylesheet\" type=\"text/css\" href=\"kensaku.css\">\n")
|
|
|
38 # cssの設定
|
|
|
39 print("<title>エラー</title>\n") # <title>の表示
|
|
|
40 print("<link rel=\"shortcut icon\" href=\"smile.png\">") # アイコン
|
|
|
41 print("</head>\n") # HTMLの設定(閉)
|
|
|
42 print("<body>\n") # HTMLの表示部分
|
|
|
43
|
|
|
44 print("<h1>エラー</h1>\n")
|
|
|
45
|
|
|
46 print("<h2>未入力項目または , を使用している項目があります。<br>登録をやり直して下さい。</h2>\n")
|
|
|
47
|
|
|
48 print("<a href=\"http://roy/~c110127/6hour/hospital.html\">検索画面へ戻る</a>\n")
|
|
|
49 print("<a href=\"http://roy/~c110067/6hour/kansei.html\">最短0.6秒TOP</a>\n")
|
|
|
50 print("<a href=\"http://roy/~c110127/6hour/\">最長6時間TOP</a>\n")
|
|
|
51 # リンクの表示
|
|
|
52
|
|
|
53 print("<p>最長 6 時間</p>\n") # <p>の表示
|
|
|
54
|
|
|
55 print("</body>\n") # HTMLの表示部分(閉)
|
|
|
56 print("</html>\n") # HTMLの規定(閉)
|
|
|
57
|
|
|
58
|
|
|
59
|
|
|
60
|
|
|
61 else # 正常に登録された場合
|
|
|
62 open("kuchi.txt","a")do |kaku|
|
|
|
63 kaku.printf("%s,%s,%s,%s\n",name,adress,kuchikomi,hito)
|
|
|
64 end
|
|
|
65
|
|
|
66 i = 0
|
|
|
67 open("kuchi.txt","r:euc-jp")do |yomu|
|
|
|
68 while line = yomu.gets
|
|
|
69 if /([^,]+),([^,]+),([^,]+),([^,]+)/=~line
|
|
|
70 # $1 = 病院名
|
|
|
71 # $2 = 住所
|
|
|
72 # $3 = くちこみ
|
|
|
73 # $4 = 投稿者
|
|
|
74 ku[i] = $1,$2,$3,$4
|
|
|
75 i += 1
|
|
|
76 end
|
|
|
77 end
|
|
|
78 end
|
|
|
79
|
|
|
80 # p ku
|
|
|
81
|
|
|
82 print("<html>\n") # HTMLの規定
|
|
|
83 print("<head>\n") # HTMLの設定
|
|
|
84 print("<link rel=\"stylesheet\" type=\"text/css\" href=\"kuchikomi.css\">\n")
|
|
|
85 # cssの設定
|
|
|
86 print("<title>くちこみ</title>\n") # <title>の表示
|
|
|
87 print("<link rel=\"shortcut icon\" href=\"smile.png\">") # アイコン
|
|
|
88 print("</head>\n") # HTMLの設定(閉)
|
|
|
89 print("<body>\n") # HTMLの表示部分
|
|
|
90
|
|
|
91 print("<h1>くちこみ投稿完了<sub><img class=\"head\" src=\"chara2.png\" width=\"80\" height=\"100\" alt=\"FUCHO\"></img></sub></h1>\n")
|
|
|
92
|
|
|
93
|
|
|
94 # p ku[13][1]
|
|
|
95 print("<div class=\"center\">\n")
|
|
|
96 printf("<h2>%s</h2>\n",name)
|
|
|
97 print("<h3>くちこみ情報</h3>\n")
|
|
|
98 print("<p>\n")
|
|
|
99 for i in ku.keys.sort
|
|
|
100 if ku[i][1] == adress
|
|
|
101 printf("・%s 投稿者%sさん<br>\n",ku[i][2],ku[i][3])
|
|
|
102 end
|
|
|
103 # i += 1
|
|
|
104 end
|
|
|
105
|
|
|
106 print("</p>\n")
|
|
|
107 print("</div>\n")
|
|
|
108 print("<p>")
|
|
|
109 print("<a href=\"http://roy/~c110127/6hour/hospital.html\">検索画面へ戻る</a>\n")
|
|
|
110 print("<a href=\"http://roy/~c110067/6hour/kansei.html\">最短0.6秒TOP</a>\n")
|
|
|
111 print("<a href=\"http://roy/~c110127/6hour/\">最長6時間TOP</a></p>\n")
|
|
|
112
|
|
|
113
|
|
|
114 print("<p>最長 6 時間</p>\n") # <p>の表示
|
|
|
115
|
|
|
116
|
|
|
117 print("</body>\n") # HTMLの表示部分(閉)
|
|
|
118 print("</html>\n") # HTMLの規定(閉)
|
|
|
119 end
|
