/client/proc/librarycheck()
	var/dat
	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())
			var/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];delete=1'>\[Delete\]</A></td></tr>"
		dat += "</table><BR>"
		dbcon.Disconnect()
	usr << browse(dat, "window=librarycheck")
	onclose(usr, "librarycheck")

/client/librarycheck/
	...()
	Topic(href, href_list)
		if(href_list["delete"])
			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
				dbcon.Connect("dbi:mysql:[sqldb]:[sqladdress]:[sqlport]","[sqllogin]","[sqlpass]")
				var/DBQuery/query = dbcon.NewQuery("DELETE FROM `tgstation`.`library` WHERE `library`.`id` = '[id]'")
				if(!query.Execute())
					usr << query.ErrorMsg()
				else
					usr << "Book successfully deleted."
			dbcon.Disconnect()