diff --git a/Server/server.pl b/Server/server.pl
index 58f0c45..b17e58a 100755
--- a/Server/server.pl
+++ b/Server/server.pl
@@ -159,6 +159,39 @@ sub getPools {
 	return keys %{$sessions{$sessionID}{"pools"}};
 }
 
+sub getDeckName {
+	my ($sessionID, $deckID) = @_;
+	return $sessions{$sessionID}{"decks"}{$deckID}{name};
+}
+
+sub getUserName {
+	my ($sessionID, $userID) = @_;
+	return $sessions{$sessionID}{"users"}{$userID}{name};
+}
+
+sub getPoolName {
+	my ($sessionID, $poolID) = @_;
+	return $sessions{$sessionID}{"pools"}{$poolID}{name};
+}
+
+sub renameDeck {
+	my ($sessionID, $deckID, $newName) = @_;
+	unless (defined($newName)) { return print "ERROR: No name provided"; }
+	$sessions{$sessionID}{"decks"}{$deckID}{name} = $newName;
+}
+
+sub renameUser {
+	my ($sessionID, $userID, $newName) = @_;
+	unless (defined($newName)) { return print "ERROR: No name provided"; }
+	$sessions{$sessionID}{"users"}{$userID}{name} = $newName;
+}
+
+sub renamePool {
+	my ($sessionID, $poolID, $newName) = @_;
+	unless (defined($newName)) { return print "ERROR: No name provided"; }
+	$sessions{$sessionID}{"pools"}{$poolID}{name} = $newName;
+}
+
 sub addHand {
 	my ($sessionID, $userID, $handID) = @_;
 	$sessions{$sessionID}{"users"}{$userID}{hands}{$handID} = { cards => [] };