bluesaxman/deckard-and-company
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Server side client hooks finisehd up, but untested

Browse Source
This commit is contained in:
bluesaxman 2020-09-16 10:33:12 -06:00
parent 3fd5773a14
commit ec9b1017e5
1 changed files with 46 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
Server/server.pl
View File

@ -364,6 +364,52 @@ my $server = Net::WebSocket::Server->new(
addPool($conn->{session},$messageData->{pool}); addPool($conn->{session},$messageData->{pool});
$conn->send_utf8('{"info":"pool cleared", "request":"update"}'); $conn->send_utf8('{"info":"pool cleared", "request":"update"}');
} }
if ($messageData->{action} =~ /muligan/) {
my @cards = delHand($conn->{session},$messageData->{hand});
addCards($conn->{session},$messageData->{deck},\@cards);
addHand($conn->{session},$messageData->{hand});
$conn->send_utf8('{"info":"hand returned to deck","request":"update"}');
}
if ($messageData->{action} =~ /shuffle/) {
shuffleDeck($conn->{session},$messageData->{action});
$conn->send_utf8('{"info":"deck shuffeled","request":"update"}');
}
if ($messageData->{action} =~ /add/) {
if ($messageData->{type} =~ /deck/) {
addDeck($conn->{session},$messageData->{id});
}
if ($messageData->{type} =~ /pool/) {
addPool($conn->{session},$messageData->{id});
}
if ($messageData->{type} =~ /hand/) {
addHand($conn->{session},$conn->{user},$messageData->{id});
}
$conn->send_utf8('{"info":"Added","request":"update"}');
}
if ($messageData->{action} =~ /del/) {
if ($messageData->{type} =~ /deck/) {
delDeck($conn->{session},$messageData->{id});
$conn->send_utf8('{"info":"Deck deleted, cards contained are gone"}');
}
if ($messageData->{type} =~ /pool/) {
my @cards = delPool($conn->{session},$messageData->{id});
addCards($conn->{session},$messageData->{deck},\@cards);
$conn->send_utf8('{"info":"Pool deleted, added to deck"}');
}
if ($messageData->{type} =~ /hand/) {
my @cards = delHand($conn->{session},$conn->{user},$messageData->{id});
my $newPool = $conn->{user}."_".$messageData->{id};
addPool($conn->{session},$newPool);
splice(@{$sessions{$conn->{session}}{"pools"}{$newPool}{cards}},0,0,@cards);
$conn->send_utf8('{"info":"Hand deleted, added as pool"}');
}
$conn->send_utf8('{"request":"update"}');
}
if ($messageData->{action} =~ /ddf/) {
my @cards = generateDeck($messageData->{ddf});
addCards($conn->{session},$messageData->{deck},\@cards);
$conn->send_utf8('{"info":"Deck file added to deck","request":"update"}');
}
} }
}, },
disconnect => sub { disconnect => sub {