mirror of
https://github.com/CHOMPStation2/CHOMPStation2.git
synced 2026-06-09 08:13:47 +01:00
StrumpetPlaya
32811b1b9d
Also changed Show Server Revision at Head's request. Can't really test it locally so hopefully this is what he meant.
88 lines
2.0 KiB
Plaintext
88 lines
2.0 KiB
Plaintext
/*
|
|
* 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 = tg_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."
|
|
output = file2text("/home/bay12/live/data/gitcommit")
|
|
usr << browse(output,"window=revdata");
|
|
return
|