initial import of news posts

1 files changed, 42 insertions, 0 deletions

diff --git a/posts/import-drupal.lua b/posts/import-drupal.lua
new file mode 100644
index 0000000..5db259a
--- /dev/null
+++ b/posts/import-drupal.lua
@@ -0,0 +1,42 @@
+
+env = require('luasql.mysql').mysql()
+
+con = assert(env:connect("alpine-www-backup", 'www-backup', 'sYUsThNBGnPR6fmy', '192.168.122.13'))
+
+print (con)
+cur = assert(con:execute([[
+
+select
+	r.title as title,
+	r.timestamp as timestamp,
+	b.body_value as body
+from
+	node_revision r,
+	node n,
+	field_revision_body b
+where
+	n.vid=r.vid and n.type='news' and r.status=1 and r.vid=b.revision_id;
+
+]]))
+
+row = cur:fetch ({}, "a")
+while row do
+	local fn = "posts/"..row.title:gsub("[ :]", "-")..".md"
+	local f = io.open(fn, "w")
+	f:write(("---\n"..
+		"title: '%s'\n"..
+		"date: %s\n"..
+		"---\n"..
+		"\n# %s\n"):format(row.title,
+			os.date("%Y-%m-%d", tonumber(row.timestamp)),
+			row.title))
+	f:write(row.body)
+	f:close()
+--	io.write(row.body)
+	row = cur:fetch ({}, "a")
+end
+
+cur:close()
+con:close()
+env:close()
+