simcop2387/dirkobot
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

whee

Browse source
This commit is contained in:
Ryan Voots 2011-08-02 22:55:28 -04:00
parent 708b96c808
commit 342790a3fe
2 changed files with 6 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
getplayers.pl
View file

@ -6,7 +6,7 @@ use autodie;
use LWP::UserAgent;
use JSON::XS;
use Time::Duration;
use POSIX qw/strftime/;
use Data::Dumper;
@ -26,13 +26,13 @@ sub get_player_pos {
if ($resp->is_success()) {
$ls = 1;
my $cont = $resp->content();
my $strut = decode_json($cont);
open(my $fh, ">", "players-$crash.json");
print $fh "/*".localtime()."*/";
print $fh Dumper($strut);
print Dumper($strut);
open(my $fh, ">", "positions/players-".strftime("%FT%T", localtime()).".json");
print $fh "/*".$resp->code()." ".$resp->message() . "*/";
print $fh $cont;
print "SUCCESS $ls $crash /*".$resp->code()." ".$resp->message() . "*/\n";
close($fh);
} else {
print "CRASH $ls $crash\n";
$crash++ if ($ls == 1);
$ls = 0;
}

5
main.pl
View file

@ -26,11 +26,6 @@ my $info = $bot->load("DirkMod");
my $seen = $bot->load("MySeen");
my $rss = $bot->load("RssPromote");
my $spam = $bot->load("Spam");
my $irc = $bot->pocoirc();
$irc->plugin_add( 'NickServID', POE::Component::IRC::Plugin::NickServID->new(
Password => 'sindarin'
));
$info->set(user_require_question => 0);
$info->set(user_passive_answer => 1);