obj/admins/proc/librarycheck()
	set name = "Library Books"
	set category = "Admin"
	var/dat
	var/id
	dat += "<h3>External Archive</h3>"
	var/DBConnection/dbcon = new()
	dbcon.Connect("dbi:mysql:[sqldb]:[sqladdress]:[sqlport]","[sqllogin]","[sqlpass]")
	if(!dbcon.IsConnected())
		dat += "<font color=red><b>ERROR</b>: Unable to contact External Archive. Please contact your system administrator for assistance.</font>"
	else
		dat += "<table>"
		dat += "<tr><td>AUTHOR</td><td>TITLE</td><td>CATEGORY</td><td>UPLOADKEY</td></tr>"
		var/DBQuery/query = dbcon.NewQuery("SELECT id, author, title, category, uploadkey FROM library")
		query.Execute()
		while(query.NextRow())
			id = query.item[1]
			var/author = query.item[2]
			var/title = query.item[3]
			var/category = query.item[4]
			var/uploadkey = query.item[5]
			dat += "<tr><td>[author]</td><td>[title]</td><td>[category]</td><td>[uploadkey]</td><td><A href='?src=\ref[src];delid=[id]'>\[Delete\]</A></td></tr>"
		dat += "</table><BR>"
		dbcon.Disconnect()
	usr << browse(dat, "window=librarycheck")
	onclose(usr, "librarycheck")

obj/admins/librarycheck/Topic(href, href_list)
	world << "Delete was pressed"
	if(href_list["delid"])
		var/DBConnection/dbcon = new()
		dbcon.Connect("dbi:mysql:[sqldb]:[sqladdress]:[sqlport]","[sqllogin]","[sqlpass]")
		if(!dbcon.IsConnected())
			alert("Connection to Archive has been severed. Aborting.")
		else
			world << "Successfully connected to DB"
			var/DBQuery/query = dbcon.NewQuery("DELETE FROM `tgstation`.`library` WHERE `library`.`id` = `[href_list["delid"]]`")
			world << "[href_list["delid"]]"
			if(!query.Execute())
				usr << query.ErrorMsg()
			else
				usr << "Book successfully deleted."
		dbcon.Disconnect()