Files
vgstation13/code/__HELPERS/files.dm
PJB3005 1a2f9ab059 All the EOLs are now LF.
Fuck you too 0D :^)
2016-01-16 23:28:07 +01:00

109 lines
3.5 KiB
Plaintext

//checks if a file exists and contains text
//returns text as a string if these conditions are met
/proc/return_file_text(filename)
if(fexists(filename) == 0)
error("File not found ([filename])")
return
var/text = file2text(filename)
if(!text)
error("File empty ([filename])")
return
return text
/proc/get_maps(root="maps/voting/")
var/list/maps = list()
var/recursion_limit = 20 //lots of maps waiting to be played, feels like TF2
//Get our potential maps
//testing("starting in [root]")
for(var/potential in flist(root))
if(copytext(potential,-1,0 != "/")) continue // Not a directory, ignore it.
//testing("Inside [root + potential]")
if(!recursion_limit) break
//our current working directory
var/path = root + potential
//The DMB that has the map we want.
var/binary
//Looking for a binary
var/min = -1
var/max = -1
var/skipping = 0
for(var/binaries in flist(path))
//testing("Checking file [binaries]")
if(copytext(binaries,-15,0 == "playercount.txt"))
var/list/lines = file2list(path+binaries)
for(var/line in lines)
if(findtext(line,"max")) max = text2num(copytext(line,5,0))
else if(findtext(line,"min")) min = text2num(copytext(line,5,0))
else warning("Our file had excessive lines, skipping.")
if(!isnull(min) && !isnull(max))
if((min != -1) && clients.len < min)
skipping = 1
else if((max != -1) && clients.len > max)
skipping = 2
if(copytext(binaries,-4,0) == ".dmb")
if(binary)
warning("Extra DMB [binary] in map folder, skipping.")
continue
binary = binaries
continue
if(skipping)
message_admins("Skipping map [binary] due to [skipping == 1 ? "not enough players." : "too many players."]")
warning("Skipping map [binary] due to [skipping == 1 ? "not enough players." : "too many players."]")
binary = null
continue
if(!binary)
warning("Map folder [path] does not contain a valid byond binary, skipping.")
else
maps[potential] = path + binary
binary = null
recursion_limit--
return maps
//Sends resource files to client cache
/client/proc/getFiles()
for(var/file in args)
src << browse_rsc(file)
/client/proc/browse_files(root="data/logs/", max_iterations=10, list/valid_extensions=list(".txt",".log",".htm", ".csv"))
var/path = root
for(var/i=0, i<max_iterations, i++)
var/list/choices = flist(path)
if(path != root)
choices.Insert(1,"/")
var/choice = input(src,"Choose a file to access:","Download",null) as null|anything in choices
switch(choice)
if(null)
return
if("/")
path = root
continue
path += choice
if(copytext(path,-1,0) != "/") //didn't choose a directory, no need to iterate again
break
var/extension = copytext(path,-4,0)
if( !fexists(path) || !(extension in valid_extensions) )
to_chat(src, "<font color='red'>Error: browse_files(): File not found/Invalid file([path]).</font>")
return
return path
#define FTPDELAY 200 //200 tick delay to discourage spam
/* This proc is a failsafe to prevent spamming of file requests.
It is just a timer that only permits a download every [FTPDELAY] ticks.
This can be changed by modifying FTPDELAY's value above.
PLEASE USE RESPONSIBLY, Some log files canr each sizes of 4MB! */
/client/proc/file_spam_check()
var/time_to_wait = fileaccess_timer - world.time
if(time_to_wait > 0)
to_chat(src, "<font color='red'>Error: file_spam_check(): Spam. Please wait [round(time_to_wait/10)] seconds.</font>")
return 1
fileaccess_timer = world.time + FTPDELAY
return 0
#undef FTPDELAY