Shuttle pingpong now gets logged as to who is doing it.

git-svn-id: http://tgstation13.googlecode.com/svn/trunk@1209 316c924e-a436-60f5-8080-3fe189b3f50e

code/game/machinery/computer/communications.dm

@@ -424,6 +424,8 @@
 //	These modes are no longer used so I am commenting them out. N
 
 	emergency_shuttle.incall()
+	log_admin("[key_name(user)] has called the shuttle.")
+	message_admins("[key_name_admin(user)] has called the shuttle.", 1)
 	world << "\blue <B>Alert: The emergency shuttle has been called. It will arrive in [round(emergency_shuttle.timeleft()/60)] minutes.</B>"
 	world << sound('shuttlecalled.ogg')
 
@@ -436,6 +438,8 @@
 		return
 
 	emergency_shuttle.recall()
+	log_admin("[key_name(user)] has uncalled the shuttle.")
+	message_admins("[key_name_admin(user)] has uncalled the shuttle.", 1)
 
 	return