- Fixed Issue 185

- Moved some files from /icons to /html - Added /datum/getrev which should get the server revision info from local svn files. Settings in /config/svndir.txt. Added new OOC verb "Show Server Revision" git-svn-id: http://tgstation13.googlecode.com/svn/trunk@2405 316c924e-a436-60f5-8080-3fe189b3f50e
2025-12-12 03:02:54 +00:00 · 2011-10-21 02:49:37 +00:00
parent f6713d3581
commit 468a8823b3
19 changed files with 101 additions and 2 deletions
--- a/code/datums/helper_datums/getrev.dm
+++ b/code/datums/helper_datums/getrev.dm
@@ -0,0 +1,88 @@
+/*
+ * This datum gets revision info from local svn 'entries' file
+ * Path to the directory containing it should be in 'config/svndir.txt' file
+ *
+ */
+
+var/global/datum/getrev/revdata = new("config/svndir.txt")
+
+//Oh yeah, I'm an OOP fag, lalala
+/datum/getrev
+	var/revision
+	var/commiter
+	var/svndirpath
+	var/revhref
+
+	proc/abort()
+		spawn()
+			del src
+
+	New(filename)
+		..()
+		if(!fexists(filename))
+			return abort()
+
+		var/text = file2text(file(filename))
+		if(!text)
+			diary << "Unable to get [filename] contents, aborting"
+			return abort()
+
+		var/list/CL = dd_text2list(text, "\n")
+		for (var/t in CL)
+			if (!t)
+				continue
+			t = trim(t)
+			if (length(t) == 0)
+				continue
+			else if (copytext(t, 1, 2) == "#")
+				continue
+			var/pos = findtext(t, " ")
+			var/name = null
+			var/value = null
+			if (pos)
+				name = lowertext(copytext(t, 1, pos))
+				value = copytext(t, pos + 1)
+			else
+				name = lowertext(t)
+			if(!name)
+				continue
+			switch(name)
+				if("svndir")
+					svndirpath = value
+				if("revhref")
+					revhref = value
+
+		if(svndirpath && fexists(svndirpath) && fexists("[svndirpath]/entries") && isfile(file("[svndirpath]/entries")))
+			var/list/filelist = dd_file2list("[svndirpath]/entries",null)
+			revision = filelist[4]
+			commiter = filelist[12]
+			diary << "Revision info loaded succesfully"
+			return
+		return abort()
+
+	proc/getRevisionText()
+		var/output
+		if(revhref)
+			output = {"<a href="[revhref][revision]">[revision]</a>"}
+		else
+			output = revision
+		return output
+
+	proc/showInfo()
+		return {"<html>
+					<head>
+					</head>
+					<body>
+					<p><b>Server Revision:</b> [getRevisionText()]<br/>
+					<b>Author:</b> [commiter]</p>
+					</body>
+					<html>"}
+
+client/verb/showrevinfo()
+	set category = "OOC"
+	set name = "Show Server Revision"
+	var/output =  "Sorry, the revision info is unavailable."
+	if(revdata)
+		output = revdata.showInfo()
+	usr << browse(output,"window=revdata");
+	return
--- a/code/datums/helper_datums/topic_input.dm
+++ b/code/datums/helper_datums/topic_input.dm
@@ -53,4 +53,8 @@
 		var/t = get(i)
 		if(t)
 			t = text2path(t)
-		return ispath(t) ? t : null
+		return ispath(t) ? t : null
+
+	proc/getList(i)
+		var/t = getAndLocate(i)
+		return islist(t) ? t : null