Mercurial > hgrepos > hgweb.cgi > skipweb

--- a/delete.html	Mon May 21 10:01:31 2018 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,26 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
-	"http://www.w3.org/TR/html4/strict.dtd">
-<html>
-<head>
-<title>Database delete</title>
-</style>
-<link rel="stylesheet" type="text/css" href="design.css">
-</head>
-
-<body>
-<h1>データベース消去用</h1>
-<p>実行するとデータベースが削除されます。</p>
-<p>実行する際は注意してください。</p>
-<form method="POST" action="./delete.rb">
-<p>本当に消しますか?<br>
-はい<input type="radio" name="check" value="OK">
-いいえ<input type="radio" name="check" value="NO">
-</p>
-<input type="submit" value="削除">
-<input type="reset" value="リセット">
-</form>
-
-<address>c111126@g.koeki-u.ac.jp</address>
-
-</body>
-</html>
--- a/delete.rb	Mon May 21 10:01:31 2018 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,36 +0,0 @@
-#!/usr/bin/env ruby
-# -*- coding: utf-8 -*-
-
-require 'sqlite3'
-require 'cgi'
-
-db = SQLite3::Database.new("/sql/stamp.sq3")
-
-c = CGI.new(:accept_charaset => "UTF-8")
-check = c['check']
-if check = "OK"
-  begin
-    db.execute("drop table main;")
-    db.extcute("drop table logs;")
-    text = "<p>データを削除しました。</p>"
-  rescue
-    text = "<p>データがありません。</p>"
-  end
-else
-  text = "データは削除されません"
-end
-
-printf("Content-type: text/html; charset=UTF-8\n\n")
-
-printf'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
-<html>
-<head>
-<title>Delete table</title>
-<link rel="stylesheet" type="text/css" href="design.css">
-</head>
-</body>
-%s
-<p><a href="etsuran.rb">データ閲覧ページへ</a></p>
-<p></p>
-</body></html>
-',text
--- a/etsuran.rb	Mon May 21 10:01:31 2018 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,41 +0,0 @@
-#!/usr/bin/env ruby
-#coding:utf-8
-
-require'cgi'
-require'sqlite3'
-
-db = SQLite3::Database.new("../sql/stamp.sq3")
-
-c = CGI.new(:accept_charaset => "UTF-8")
-
-flag = 0
-text = "<p>登録者一覧を表示します</p>\n"
-begin
-  result = db.execute("select * from main;")
-rescue
-  flag = 1
-  text = "<p>データがありません</p>\n"
-end
-
-printf("Content-type: text/html; charset=UTF-8\n\n")
-
-printf'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/h
-tml4/strict.dtd">
-<html>
-<head>
-<title>Delete table</title>
-<link rel="stylesheet" type="text/css" href="design.css">
-</head>
-</body>
-<h1>データ閲覧ページ</h1>'
-puts text
-if flag == 1
-else
-  print"<table border = 1>\n"
-  result.each do |line|
-    printf("<tr><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td></tr>\n",line[0],line[1],line[2],line[3],line[4],line[8],line[9])
-  end
- print"</table>"
-end
-
-print'</body></html>'
Binary file nakamachi.png has changed
--- a/repo.rb	Mon May 21 10:01:31 2018 +0900
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,65 +0,0 @@
-#!/usr/bin/ruby
-# coding: euc-jp
-
-time = Time.now
-
-STDERR.print "取材した店(css名入力)\n"
-STDERR.print "1.食べ物(food) 2日用品店(shop) 3.その他(other):"
-choice = gets.chomp
-
-STDERR.print "店の名前:\n"
-sbj = gets.chomp
-
-history = ""
-STDERR.print "歴史(ピリオドのみの行で終了)\n"
-while true
-  his = gets
-  if his == ".\n" || his == nil then
-    break
-  end
-  history += his
-end
-
-regend = ""
-STDERR.print "伝説(ピリオドのみの行で終了)\n"
-while true
-  reg = gets
-  if reg == ".\n" || reg == nil then
-    break
-  end
-  regend += reg
-end
-
-STDERR.print "おすすめ品\n"
-osu = gets.chomp
-
-STDERR.print "郵便番号\n"
-yu = gets.chomp
-
-STDERR.print "住所\n"
-add = gets.chomp
-
-STDERR.print "電話番号\n"
-tel = gets.chomp
-
-STDERR.print "写真をアップロード:"
-before = gets.chomp
-STDERR.print "保存名:"
-after = gets.chomp
-`convert -geometry 150x100 #{before}.jpg #{after}.jpg`
-
-open("temp.txt", "r") do |cm|
-  while x = cm.gets
-    x.gsub!("%choice%", choice)
-    x.gsub!("%time%", time.to_s)
-    x.gsub!("%sbj%", sbj)
-    x.gsub!("%after%", after)
-    x.gsub!("%history%", "<p>"+history.chomp+"</p>")
-    x.gsub!("%regend%", "<p>"+regend.chomp+"</p>")
-    x.gsub!("%osu%", osu)
-    x.gsub!("%yu%", yu)
-    x.gsub!("%add%", add)
-    x.gsub!("%tel%", tel)
-    print x
-  end
-end
Binary file rogin.png has changed