proof of concept pseudocode

Author: kawaii

META6.json

@@ -0,0 +1,19 @@
+{
+ "license": "BSD-3-Clause",
+ "repo-type": "git",
+ "source-url": "git@github.com:shuppet/p6-net-rcon.git",
+ "auth": "github:shuppet",
+ "depends": [
+ "IO::Socket::INET"
+ ],
+ "provides": {
+ "Net::RCON": "lib/API/RCON.pm6"
+ },
+ "name": "Net::RCON",
+ "description": "Perl 6 module for interacting with the Source RCON (remote console) protocol.",
+ "perl": "6.c",
+ "version": "0.0.1",
+ "authors": [
+ "Kane 'kawaii' Valentine <kane@cute.im>"
+ ]
+}

lib/Net/RCON.pm6

@@ -0,0 +1,44 @@
+unit class Net::RCON;
+
+use IO::Socket::INET;
+use experimental :pack;
+
+constant {
+ SERVERDATA_RESPONSE_VALUE => 0,
+ SERVERDATA_AUTH_RESPONSE => 2,
+ SERVERDATA_EXECCOMMAND => 2,
+ SERVERDATA_AUTH => 3
+};
+
+sub connect(:$hostname, :$port, :$password) {
+
+ my %arguments = host => $hostname || "localhost",
+ port => $port || 27015,
+ id => 0,
+ ;
+
+ my $socket = IO::Socket::INET.new(:%arguments<hostname>, :%arguments<port>);
+ my $connection = $socket.accept;
+
+ authenticate(:$connection, :$password);
+}
+
+sub authenticate(:$connection, :$password) {
+
+ my $type = SERVERDATA_AUTH;
+ my $data = $password;
+
+ send(:$connection, :$type, :$data);
+}
+
+sub send(:$connection, :$type, :$data) {
+
+ my $payload = pack("VV", 1, $type) ~ $data ~ pack("xx");
+ $payload = pack("V", $payload.bytes) ~ $payload;
+
+ $connection.write($payload);
+}
+
+sub recieve() {
+ 
+}