simcop2387/minecraft-perl
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Authentication appears to work

Browse source
This commit is contained in:
Ryan Voots 2011-10-23 20:07:53 -04:00
parent ca6348ea06
commit b634c19983
2 changed files with 25 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
lib/POE/Component/Minecraft.pm
View file

@ -7,13 +7,14 @@ package POE::Component::Minecraft;
use POE;
use POE::Component::Client::TCP;
use POE::Component::Client::HTTP;
use POE::Component::SSLify; # i don't need to use this, BUT I do need to see it in the requirements
use HTTP::Request;
use Data::Dumper;
our $client_version = 12; # current launcher version as of October 23rd 2011, package variable to allow monkey patching to new required versions
sub new {
my $class = shift;
my $self = bless { }, $class;
my %opts = (username => undef,
password => undef,
@ -27,11 +28,12 @@ sub new {
);
if (@_ > 1) { # do we have more than one argument left?
%opts = @_; # we're given a hash if so
%opts = (%opts, @_); # we're given a hash if so
} elsif (@_ == 1) { # exactly one, must be a hashref
%opts = %$_[0];
%opts = (%opts, %{$_[0]});
}
$alias = "resolver" unless $alias;
my $self = bless \%opts, $class;
$self->{_session} = POE::Session->create(
object_states => [
@ -39,13 +41,14 @@ sub new {
_start => "_poe_start",
login => "_poe_login",
login_response => "_poe_login_response",
connect => "_poe_connect",
},
],
);
$self->{_http} = POE::Component::Client::HTTP->spawn(
Agent => 'Minecraft Bot 2387', # defaults to something long
Alias => 'ua', # defaults to 'weeble'
Alias => $self->{alias}.'UA', # defaults to 'weeble'
From => 'simcop2387@simcop2387.info', # defaults to undef (no header)
Timeout => 60, # defaults to 180 seconds
FollowRedirects => 2, # defaults to 0 (off)
@ -56,13 +59,15 @@ sub new {
sub _poe_start {
my $self = $_[OBJECT];
$_[KERNEL]->alias_set("$_[OBJECT]");
$_[KERNEL]->alias_set($_[OBJECT]->{alias});
}
sub _poe_login {
my $self = $_[OBJECT];
my $to = $self->{_http}->ID();
print "Doing login\n";
my $to = $self->{alias}.'UA';
my $req = HTTP::Request->new(POST => 'https://login.minecraft.net/');
$req->content_type('application/x-www-form-urlencoded');
@ -75,6 +80,11 @@ sub _poe_login_response {
my $self = $_[OBJECT];
my ($req, $res) = @_[ARG0, ARG1];
$res = $res->[0];
$req = $req->[0];
print "Got back login : ",$res->is_success(),"\n";
if ($res->is_success)
{
print $res->content, "\n";
@ -107,8 +117,9 @@ sub login {
if (defined($self->{username}) && defined($self->{password}) &&
defined($self->{server}) && defined($self->{port})) {
$poe_kernel->call($_[SESSION], login);
$poe_kernel->call($self->{alias}, "login");
} else {
print Dumper $self;
die "No Server or credentials";
}
}

7
test.pl
View file

@ -2,6 +2,7 @@
use lib 'lib';
use POE qw/Component::Minecraft/;
use Data::Dumper;
my $username = $ARGV[0];
my $password = $ARGV[1];
@ -12,11 +13,15 @@ my $mc = POE::Component::Minecraft->new({
server => "mythmaster",
});
print Dumper $mc;
POE::Session->create(
inline_states => {
_start => sub {
$mc->login(sub {print "woo!\n"})
$poe_kernel->delay(tick => 5);
$mc->login(sub {print "woo!\n"});
},
tick => sub {$poe_kernel->delay(tick => 5); print "tick\n";}
},
);