Added deck generation code

Server/server.pl

@@ -28,9 +28,34 @@ sub generateSession {
 	return $newSession;
 }
 
+sub generateSingle {
+	my $DDF = shift;
+	my @cards = ("");
+	for (@$DDF) {
+		my @tempcards = ();
+		my %datablock = %$_;
+		for (@cards) {
+			my $current = $_;
+			for (@{$datablock{data}}) {
+				push(@tempcards,$current.$_);
+			}
+		}
+		@cards = @tempcards;
+	}
+	return @cards;
+}
+
 sub generateDeck {
 	my $DDF = from_json(shift);
-# Add proper handling for reading of DDFs
+	if ("ARRAY" eq ref($DDF->[0])) {
+		my @deck = ();
+		for (@$DDF) {
+			push(@deck,generateSingle($_));
+		}
+		return @deck;
+	} else {
+		return generateSingle($DDF);
+	}
 }
 
 sub shuffle {