skillbot: skillbot.pl annotate

annotate skillbot.pl @ 54:9ed1e53a8d3e

Safety checks in hash sort

author	Dominic Cleal <dominic@computerkb.co.uk>
date	Sat, 27 Dec 2008 23:45:55 +0000
parents	d5872370102a
children	c5ce2fff9b85

rev	line source
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	1 #!/usr/bin/perl
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	2
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	3 # vim:set ts=4 shiftwidth=4 cindent:
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	4
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	5 =pod
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	6
5 dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	7 skillbot
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	8
5 dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	9 Provides notifications of EVE Online skill completions over IRC.
dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	10
dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	11 Based on Andy Smith's twitfolk bot:
dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	12 $Id: twitfolk.pl 802 2008-11-29 00:07:38Z andy $
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	13
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	14 Copyright ©2008 Andy Smith <andy+twitfolk.pl@bitfolk.com>
5 dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	15 Portions copyright ©2008 Dominic Cleal <dominic@computerkb.co.uk>
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	16
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	17 Artistic license same as Perl.
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	18 =cut
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	19
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	20 use strict;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	21 use warnings;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	22
5 dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	23 use WebService::EveOnline;
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	24 use Data::Dumper;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	25 use Net::IRC;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	26 use POSIX;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	27 use Encode;
45 1d349044c860 Add finish day and time to !eta Dominic Cleal <dominic@computerkb.co.uk> parents: 44 diff changeset	28 use DateTime;
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	29
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	30 require 'timers.pl';
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	31
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	32 # Config variables
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	33 my %config;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	34
9 c797330cd371 Handles multiple characters on one account Dominic Cleal <dominic@computerkb.co.uk> parents: 8 diff changeset	35 my %frienduids;
c797330cd371 Handles multiple characters on one account Dominic Cleal <dominic@computerkb.co.uk> parents: 8 diff changeset	36 my @friends;
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	37
5 dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	38 open(CONFIG, "< skillbot.conf") or die "can't open skillbot.conf for reading: $!";
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	39 while(<CONFIG>) {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	40 chomp;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	41 s/#.*//;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	42 s/^\s+//;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	43 s/\s+$//;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	44 next unless length;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	45 my ($var, $value) = split(/\s=\s/, $_, 2);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	46 $config{$var} = $value;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	47 }
5 dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	48 close(CONFIG) or die "can't close skillbot.conf: $!";
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	49
50 14f0f0b0f83e Release of v0.02 Dominic Cleal <dominic@computerkb.co.uk> parents: 49 diff changeset	50 my $version = '0.02';
5 dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	51 my $ircname = "skillbot v$version";
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	52
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	53 my $DEBUG = $ENV{'IRC_DEBUG'} \|\| 0;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	54 my $time_to_die = 0;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	55
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	56 justme();
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	57 daemonize();
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	58
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	59 open(PIDFILE, "> $config{'pidfile'}") or die "can't write $config{'pidfile'}: $!";
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	60 print PIDFILE "$$\n";
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	61 close(PIDFILE) or die "can't close $config{'pidfile'}: $!";
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	62
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	63 update_friends(undef);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	64
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	65 my $irc = new Net::IRC;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	66
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	67 my $conn = $irc->newconn(Server => $config{'target_server'},
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	68 Port => $config{'target_port'},
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	69 Nick => $config{'nick'},
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	70 Ircname => $ircname,
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	71 Username => $config{'username'},
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	72 Password => $config{'target_pass'})
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	73 or die "can't connect to $config{'target_server'}:$config{'target_port'}: $@\n";
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	74
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	75 binmode $conn->{_socket}, ":bytes";
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	76
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	77 init_handlers($conn);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	78 init_timers();
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	79
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	80 until ($time_to_die) {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	81 $irc->do_one_loop();
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	82 do_timers_once($conn);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	83 do_timers_repeat($conn);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	84 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	85
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	86 if ($conn) {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	87 $conn->quit("Caught SIGINT, bye.");
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	88 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	89
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	90 cleanup_and_die();
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	91
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	92 sub cleanup_and_die {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	93 unlink($config{'pidfile'});
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	94 exit();
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	95 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	96
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	97 sub init_handlers
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	98 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	99 my ($self) = shift;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	100
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	101 $self->add_handler('notice', \&on_notice);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	102 $self->add_handler([ 251,252,253,254,302,255 ], \&on_init);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	103 $self->add_handler('disconnect', \&on_disconnect);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	104 $self->add_handler(376, \&on_connect);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	105 $self->add_handler(433, \&on_nick_taken);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	106 $self->add_handler('cversion', \&on_cversion);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	107 $self->add_handler('cping', \&on_ping);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	108 $self->add_handler('join', \&on_join);
21 7bcc70b2121a Adding !eta handler to report current training status Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	109 $self->add_handler('public', \&on_public);
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	110 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	111
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	112 sub irc_debug
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	113 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	114 my ($fmt, @args) = @_;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	115
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	116 return unless $DEBUG;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	117
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	118 $fmt = '%s\| *** ' . $fmt . "\n";
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	119
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	120 print sprintf($fmt, scalar gmtime(), @args);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	121 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	122
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	123 =pod
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	124
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	125 Timers to set going when we start.
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	126
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	127 =cut
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	128 sub init_timers
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	129 {
22 119c2b763dd2 small textual change, and my first hg commit --- i hate you dom user@eee-df parents: 20 diff changeset	130 # Join channels for the first time, ~15 secs after connect
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	131 add_one_shot_timer(15, sub { my ($timer, $self) = @_; join_channels($self); });
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	132
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	133 # Check we are in the right channels every 10 minutes
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	134 add_repeat_timer(600, sub { my ($timer, $self) = @_; join_channels($self); });
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	135
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	136 # Read the "friends" config file every 6 minutes and make sure we have
5 dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	137 # API sessions for them all
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	138 add_repeat_timer(360, sub { my ($timer, $self) = @_; update_friends($self); });
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	139
14 5e35c408cc3c Handles cases where the skills change and aren't seen to completion Dominic Cleal <dominic@computerkb.co.uk> parents: 13 diff changeset	140 # Check for new skills every 60 minutes.
5e35c408cc3c Handles cases where the skills change and aren't seen to completion Dominic Cleal <dominic@computerkb.co.uk> parents: 13 diff changeset	141 add_repeat_timer(3600, sub { my ($timer, $self) = @_; check_training($self); });
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	142 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	143
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	144 sub nickserv_id_now
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	145 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	146 my ($self) = shift;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	147
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	148 $self->privmsg("NickServ", sprintf("IDENTIFY %s", $config{nick_pass}));
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	149 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	150
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	151 sub nickserv_release
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	152 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	153 my ($self) = shift;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	154
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	155 $self->privmsg("NickServ", sprintf("RELEASE %s %s", $config{nick},
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	156 $config{nick_pass}));
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	157 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	158
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	159 sub on_connect
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	160 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	161 my $self = shift;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	162
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	163 =pod
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	164 $twit->update(sprintf("Connected to irc://%s/, joining channels", $config{target_server}));
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	165 $twit->http_code == 200 or print sprintf("%s\| *** %s\n", scalar gmtime(), $twit->http_message);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	166 =cut
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	167
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	168 $self->away($config{away}) if ($config{away});
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	169 join_channels($self);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	170 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	171
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	172 sub join_channels
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	173 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	174 my $self = shift;
10 9cc6dbc803f6 Fixing docs, allowing chankey Dominic Cleal <dominic@computerkb.co.uk> parents: 9 diff changeset	175 $self->join('#' . $config{channel}, $config{chankey});
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	176 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	177
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	178 sub on_join
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	179 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	180 my ($self, $event) = @_;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	181
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	182 # print Dumper($event);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	183 if ($event->nick eq $config{nick}) {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	184 =pod
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	185 $twit->update("In channel, checking for tweets");
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	186 $twit->http_code == 200 or print sprintf("%s\| *** %s\n", scalar gmtime(), $twit->http_message);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	187 =cut
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	188
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	189 # Now we're in, check for tweets as a one-off
5 dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	190 add_one_shot_timer(10, sub { my ($timer, $self) = @_; check_training($self); });
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	191 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	192 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	193
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	194 sub on_ping
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	195 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	196 my ($self, $event) = @_;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	197 my $their_nick = $event->nick;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	198
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	199 $self->ctcp_reply($their_nick, "PING " . join (' ', ($event->args)));
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	200 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	201
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	202 sub on_init
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	203 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	204 my ($self, $event) = @_;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	205 my (@args) = ($event->args);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	206 shift (@args);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	207
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	208 # irc_debug(@args);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	209 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	210
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	211 sub on_disconnect
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	212 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	213 my ($self, $event) = @_;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	214
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	215 irc_debug("Disconnected from %s (%s). Attempting to reconnect...",
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	216 $event->from, ($event->args())[0]);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	217
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	218 while (! $self->connect()) {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	219 irc_debug("%s", $@);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	220 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	221 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	222
21 7bcc70b2121a Adding !eta handler to report current training status Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	223 sub on_public
7bcc70b2121a Adding !eta handler to report current training status Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	224 {
7bcc70b2121a Adding !eta handler to report current training status Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	225 my ($self, $event) = @_;
7bcc70b2121a Adding !eta handler to report current training status Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	226 my ($their_nick, $msg) = ($event->nick, $event->args);
7bcc70b2121a Adding !eta handler to report current training status Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	227
31 ba7303a5f42d Added \!update command df parents: 29 diff changeset	228 # lists the current chars in training of the caller
26 bb1f7ab990b1 Adding an optional argument to !eta for a character name Dominic Cleal <dominic@computerkb.co.uk> parents: 25 diff changeset	229 if ($msg =~ /^\!eta(\s+(.+))?/i) {
21 7bcc70b2121a Adding !eta handler to report current training status Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	230 my $found = 0;
42 bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	231
53 d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	232 my @filtered =
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	233 sort {
54 9ed1e53a8d3e Safety checks in hash sort Dominic Cleal <dominic@computerkb.co.uk> parents: 53 diff changeset	234 (defined $a->{skill} && defined $b->{skill})
9ed1e53a8d3e Safety checks in hash sort Dominic Cleal <dominic@computerkb.co.uk> parents: 53 diff changeset	235 ? $a->{skill}->finish_time <=> $b->{skill}->finish_time
9ed1e53a8d3e Safety checks in hash sort Dominic Cleal <dominic@computerkb.co.uk> parents: 53 diff changeset	236 : 0
53 d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	237 }
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	238 grep {
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	239 ((defined $2 && (lc($_->{char}->name) eq lc($2)
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	240 \|\| lc($2) eq 'all' \|\| lc($2) eq '*'))
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	241 \|\| (!defined $2 && $_->{nick} eq $their_nick))
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	242 } @friends;
45 1d349044c860 Add finish day and time to !eta Dominic Cleal <dominic@computerkb.co.uk> parents: 44 diff changeset	243
53 d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	244 for my $f (@filtered)
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	245 {
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	246 check_friend($self, $f);
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	247 my $text;
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	248 if (defined $f->{skill}) {
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	249 my $downtime = '';
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	250 if (skill_finish_in_downtime($f->{skill})) {
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	251 $downtime = ", coincides with downtime";
42 bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	252 }
21 7bcc70b2121a Adding !eta handler to report current training status Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	253
53 d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	254 my $finish = DateTime->from_epoch(
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	255 epoch => $f->{skill}->finish_time,
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	256 time_zone => $f->{tz});
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	257
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	258 $text = sprintf("Currently training %s %s ".
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	259 "(finish in %s, %s %s%s)",
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	260 $f->{skill}->name, $f->{skill}->level,
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	261 $f->{skill}->time_remaining,
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	262 $finish->strftime("%A %R"),
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	263 $finish->time_zone_short_name(),
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	264 $downtime);
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	265 } else {
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	266 $text = "No skill currently training";
21 7bcc70b2121a Adding !eta handler to report current training status Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	267 }
53 d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	268
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	269 $self->privmsg('#' . $config{channel}, sprintf(
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	270 "\002%s:\002 %s", $f->{char}->name,
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	271 encode("utf8", $text)));
d5872370102a Sorting !eta output for multiple characters, tidying filtering Dominic Cleal <dominic@computerkb.co.uk> parents: 52 diff changeset	272 $found++;
21 7bcc70b2121a Adding !eta handler to report current training status Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	273 }
7bcc70b2121a Adding !eta handler to report current training status Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	274
7bcc70b2121a Adding !eta handler to report current training status Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	275 if ($found == 0) {
7bcc70b2121a Adding !eta handler to report current training status Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	276 $self->privmsg('#' . $config{channel}, "No characters found");
7bcc70b2121a Adding !eta handler to report current training status Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	277 }
7bcc70b2121a Adding !eta handler to report current training status Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	278 }
31 ba7303a5f42d Added \!update command df parents: 29 diff changeset	279
32 276658826bc0 Local commit, so dom can help me out. -- love perl df parents: 31 diff changeset	280 # lists the chars in order of shortest training time
37 5900a37101eb Bold names in !next Dominic Cleal <dominic@computerkb.co.uk> parents: 36 diff changeset	281 elsif ($msg =~ /^\!next/i) {
32 276658826bc0 Local commit, so dom can help me out. -- love perl df parents: 31 diff changeset	282 my $nreply = "Training: ";
38 a8b60d2968b2 Small tidy and removing useless skill time check Dominic Cleal <dominic@computerkb.co.uk> parents: 37 diff changeset	283
52 0f8275723d81 Update characters on retrieval, remove !update Dominic Cleal <dominic@computerkb.co.uk> parents: 50 diff changeset	284 check_training($self);
38 a8b60d2968b2 Small tidy and removing useless skill time check Dominic Cleal <dominic@computerkb.co.uk> parents: 37 diff changeset	285 my @training = sort {
a8b60d2968b2 Small tidy and removing useless skill time check Dominic Cleal <dominic@computerkb.co.uk> parents: 37 diff changeset	286 $a->{skill}->finish_time <=> $b->{skill}->finish_time
a8b60d2968b2 Small tidy and removing useless skill time check Dominic Cleal <dominic@computerkb.co.uk> parents: 37 diff changeset	287 } grep { defined $_->{skill} } @friends;
32 276658826bc0 Local commit, so dom can help me out. -- love perl df parents: 31 diff changeset	288
38 a8b60d2968b2 Small tidy and removing useless skill time check Dominic Cleal <dominic@computerkb.co.uk> parents: 37 diff changeset	289 for my $f (@training) {
37 5900a37101eb Bold names in !next Dominic Cleal <dominic@computerkb.co.uk> parents: 36 diff changeset	290 $nreply .= sprintf("\002%s\002 (%s) \| ",
5900a37101eb Bold names in !next Dominic Cleal <dominic@computerkb.co.uk> parents: 36 diff changeset	291 $f->{char}->name, $f->{skill}->time_remaining);
34 8b631d17dfd0 Fixed some stuff after talking to dom -- yeah it could have been done simpler if he told me yesterday :P df parents: 33 diff changeset	292 }
33 48df6d55427b Forgot the echo of the result df parents: 32 diff changeset	293
36 6baa10b255ae Removing final pipe from next output Dominic Cleal <dominic@computerkb.co.uk> parents: 35 diff changeset	294 $self->privmsg('#' . $config{channel}, substr($nreply, 0, -3));
32 276658826bc0 Local commit, so dom can help me out. -- love perl df parents: 31 diff changeset	295 }
21 7bcc70b2121a Adding !eta handler to report current training status Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	296 }
7bcc70b2121a Adding !eta handler to report current training status Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	297
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	298 sub on_notice
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	299 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	300 my ($self, $event) = @_;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	301 my ($their_nick) = $event->nick;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	302 my ($notice_txt) = join(' ', $event->args);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	303
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	304 $_ = $their_nick;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	305
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	306 irc_debug("Got notice from %s: %s", $_, $notice_txt);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	307
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	308 if (/^NickServ$/i) {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	309 do_nickserv_notice($self, $notice_txt);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	310 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	311 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	312
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	313 sub do_nickserv_notice
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	314 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	315 my ($self, $notice) = @_;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	316
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	317 $_ = $notice;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	318
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	319 if (/This nick is owned by someone else/ \|\|
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	320 /This nickname is registered and protected/i) {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	321 irc_debug("ID to NickServ at request of NickServ");
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	322 nickserv_id_now($self);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	323 } elsif (/Your nick has been recovered/i) {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	324 irc_debug("NickServ told me I recovered my nick, RELEASE'ing now");
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	325 nickserv_release($self);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	326 } elsif (/Your nick has been released from custody/i) {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	327 irc_debug("NickServ told me my nick is released, /nick'ing now");
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	328 $self->nick($config{nick});
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	329 } else {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	330 irc_debug("Ignoring NickServ notice: %s", $notice);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	331 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	332 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	333
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	334 sub on_nick_taken
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	335 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	336 my ($self) = shift;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	337
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	338 $self->nick($config{nick} . $$);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	339 nickserv_recover($self);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	340 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	341
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	342 sub on_cversion
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	343 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	344 my ($self, $event) = @_;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	345
24 db2e2a751dd6 Changed the c2cp version reply to match the irc name (any playing a bith with hg) df parents: 22 diff changeset	346 my $vstring = sprintf("VERSION %s", $ircname);
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	347
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	348 $self->ctcp_reply($event->nick, $vstring);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	349 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	350
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	351 sub justme
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	352 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	353 if (open(PIDFILE, "< $config{pidfile}")) {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	354 my $pid;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	355 chop($pid = <PIDFILE>);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	356 close(PIDFILE) or die "couldn't close $config{pidfile}: $1";
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	357
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	358 if (kill(0, $pid)) {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	359 print "$0 already running (pid $pid), bailing out\n";
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	360 cleanup_and_die();
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	361 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	362 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	363 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	364
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	365 sub handle_sig_int_term
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	366 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	367 $time_to_die = 1;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	368 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	369
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	370 =pod
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	371
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	372 Splurge the perl error to IRC for the amusement of others.
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	373
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	374 =cut
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	375 sub handle_perl_death
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	376 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	377 die @_ if $^S;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	378 my $msg = shift;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	379
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	380 if ($conn) {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	381 $conn->quit($msg . ", died");
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	382 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	383 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	384
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	385 sub daemonize
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	386 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	387 $SIG{__DIE__} = \&handle_perl_death;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	388 $SIG{INT} = $SIG{TERM} = \&handle_sig_int_term;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	389
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	390 # Only daemonize if not running debug mode
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	391 return if ($DEBUG);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	392
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	393 my $pid = fork();
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	394
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	395 exit if $pid;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	396 die "Couldn't fork: $!" unless defined($pid);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	397
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	398 close(STDOUT);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	399 close(STDERR);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	400
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	401 POSIX::setsid() or die "Can't start a new session: $!";
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	402 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	403
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	404 =pod
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	405
10 9cc6dbc803f6 Fixing docs, allowing chankey Dominic Cleal <dominic@computerkb.co.uk> parents: 9 diff changeset	406 Read a list of friends from the friends_file. Format is:
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	407
47 31a4d4cab76f Adding timezone field to friends file, used for !eta Dominic Cleal <dominic@computerkb.co.uk> parents: 46 diff changeset	408 user_id api_key IRC_nick timezone character_name
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	409
10 9cc6dbc803f6 Fixing docs, allowing chankey Dominic Cleal <dominic@computerkb.co.uk> parents: 9 diff changeset	410 Start a line with # for a comment. Character name is optional, if left
9cc6dbc803f6 Fixing docs, allowing chankey Dominic Cleal <dominic@computerkb.co.uk> parents: 9 diff changeset	411 out then all characters will be monitored.
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	412
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	413 =cut
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	414 sub update_friends
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	415 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	416 my $self = shift;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	417
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	418 open(FF, "< $config{friends_file}") or die "Couldn't open friends_file: $!";
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	419
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	420 while (<FF>) {
7 6b73a2781c15 Skill completion notifications done Dominic Cleal <dominic@computerkb.co.uk> parents: 5 diff changeset	421 chomp;
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	422 next if (/^#/);
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	423
47 31a4d4cab76f Adding timezone field to friends file, used for !eta Dominic Cleal <dominic@computerkb.co.uk> parents: 46 diff changeset	424 if (/^([0-9]+)\s+([a-z0-9]{64})\s+(\S+)\s+(\S+)(\s+(.+))?/i) {
9 c797330cd371 Handles multiple characters on one account Dominic Cleal <dominic@computerkb.co.uk> parents: 8 diff changeset	425 my $uid = $1;
12 d9526ab0c6bb Fixing the handling of df's weird API key Dominic Cleal <dominic@computerkb.co.uk> parents: 11 diff changeset	426 my $key = $2;
9 c797330cd371 Handles multiple characters on one account Dominic Cleal <dominic@computerkb.co.uk> parents: 8 diff changeset	427 my $nick = $3;
47 31a4d4cab76f Adding timezone field to friends file, used for !eta Dominic Cleal <dominic@computerkb.co.uk> parents: 46 diff changeset	428 my $tz = $4;
31a4d4cab76f Adding timezone field to friends file, used for !eta Dominic Cleal <dominic@computerkb.co.uk> parents: 46 diff changeset	429 my $c = $6;
5 dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	430
9 c797330cd371 Handles multiple characters on one account Dominic Cleal <dominic@computerkb.co.uk> parents: 8 diff changeset	431 if (! $frienduids{$uid}) {
49 0fa8fe61aca1 Adding tz to !eta output, use UTC by default Dominic Cleal <dominic@computerkb.co.uk> parents: 47 diff changeset	432 unless (DateTime::TimeZone->is_valid_name($tz))
0fa8fe61aca1 Adding tz to !eta output, use UTC by default Dominic Cleal <dominic@computerkb.co.uk> parents: 47 diff changeset	433 {
0fa8fe61aca1 Adding tz to !eta output, use UTC by default Dominic Cleal <dominic@computerkb.co.uk> parents: 47 diff changeset	434 irc_debug("Invalid timezone (%s) supplied for friend %s".
0fa8fe61aca1 Adding tz to !eta output, use UTC by default Dominic Cleal <dominic@computerkb.co.uk> parents: 47 diff changeset	435 ", using UTC", $tz, $nick);
0fa8fe61aca1 Adding tz to !eta output, use UTC by default Dominic Cleal <dominic@computerkb.co.uk> parents: 47 diff changeset	436 $tz = 'UTC';
0fa8fe61aca1 Adding tz to !eta output, use UTC by default Dominic Cleal <dominic@computerkb.co.uk> parents: 47 diff changeset	437 }
0fa8fe61aca1 Adding tz to !eta output, use UTC by default Dominic Cleal <dominic@computerkb.co.uk> parents: 47 diff changeset	438
5 dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	439 my $api = WebService::EveOnline->new( { user_id => $uid,
dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	440 api_key => $key } );
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	441
9 c797330cd371 Handles multiple characters on one account Dominic Cleal <dominic@computerkb.co.uk> parents: 8 diff changeset	442 my $loaded = 0;
5 dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	443 foreach my $character ($api->characters) {
9 c797330cd371 Handles multiple characters on one account Dominic Cleal <dominic@computerkb.co.uk> parents: 8 diff changeset	444 next if defined $c && $c ne $character->name;
c797330cd371 Handles multiple characters on one account Dominic Cleal <dominic@computerkb.co.uk> parents: 8 diff changeset	445 push @friends, {
c797330cd371 Handles multiple characters on one account Dominic Cleal <dominic@computerkb.co.uk> parents: 8 diff changeset	446 char => $character,
c797330cd371 Handles multiple characters on one account Dominic Cleal <dominic@computerkb.co.uk> parents: 8 diff changeset	447 api => $api,
47 31a4d4cab76f Adding timezone field to friends file, used for !eta Dominic Cleal <dominic@computerkb.co.uk> parents: 46 diff changeset	448 nick => $nick,
31a4d4cab76f Adding timezone field to friends file, used for !eta Dominic Cleal <dominic@computerkb.co.uk> parents: 46 diff changeset	449 tz => $tz
9 c797330cd371 Handles multiple characters on one account Dominic Cleal <dominic@computerkb.co.uk> parents: 8 diff changeset	450 };
c797330cd371 Handles multiple characters on one account Dominic Cleal <dominic@computerkb.co.uk> parents: 8 diff changeset	451 $loaded++;
5 dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	452 }
dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	453
18 10587dbd634b Ignoring bad data which was actually negative Dominic Cleal <dominic@computerkb.co.uk> parents: 17 diff changeset	454 if (defined $c && $loaded eq 0)
5 dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	455 {
20 631123cc735c Removing EVE prefix from log messages Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	456 irc_debug("Unable to find character %s for ID %lu",
5 dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	457 $c, $uid);
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	458 next;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	459 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	460
13 d9a9bcd44c2e Fixing re-adding of friends Dominic Cleal <dominic@computerkb.co.uk> parents: 12 diff changeset	461 $frienduids{$uid} = $loaded;
20 631123cc735c Removing EVE prefix from log messages Dominic Cleal <dominic@computerkb.co.uk> parents: 18 diff changeset	462 irc_debug("Adding new friend %s (%lu), %lu characters",
9 c797330cd371 Handles multiple characters on one account Dominic Cleal <dominic@computerkb.co.uk> parents: 8 diff changeset	463 $nick, $uid, $loaded);
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	464 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	465 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	466 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	467
22 119c2b763dd2 small textual change, and my first hg commit --- i hate you dom user@eee-df parents: 20 diff changeset	468 close(FF) or warn "Something weird occured when closing friends_file: $!";
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	469 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	470
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	471 =pod
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	472
5 dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	473 Check for any characters that aren't known to be training, then call the API
dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	474 to see if they've started, setting timers.
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	475
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	476 =cut
5 dddb84241032 Bot can now read skills from the API for its friends Dominic Cleal <dominic@computerkb.co.uk> parents: 1 diff changeset	477 sub check_training
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	478 {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	479 my $self = shift;
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	480
15 2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	481 check_friend($self, $_) foreach (@friends);
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	482 }
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	483
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	484 sub check_friend
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	485 {
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	486 my $self = shift;
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	487 my $f = shift;
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	488
15 2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	489 my $skill = $f->{char}->skill->in_training;
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	490
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	491 # Nothing training
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	492 unless (defined $skill)
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	493 {
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	494 # If the char was training before and now has stopped then cancel
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	495 # the announcement
40 19cc55690fd7 Missing brackets Dominic Cleal <dominic@computerkb.co.uk> parents: 39 diff changeset	496 if (defined $f->{timer}) {
39 4dd6009b0d2a Deleting timer ID if it's already been cancelled Dominic Cleal <dominic@computerkb.co.uk> parents: 38 diff changeset	497 del_one_shot_timer($f->{timer});
4dd6009b0d2a Deleting timer ID if it's already been cancelled Dominic Cleal <dominic@computerkb.co.uk> parents: 38 diff changeset	498 delete $f->{timer};
4dd6009b0d2a Deleting timer ID if it's already been cancelled Dominic Cleal <dominic@computerkb.co.uk> parents: 38 diff changeset	499 }
17 bef72aa85f2b Ignoring bad data with 2^32 second finish times Dominic Cleal <dominic@computerkb.co.uk> parents: 16 diff changeset	500 return;
15 2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	501 }
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	502
15 2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	503 # Check for changes in the skill, skip or cancel announcement
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	504 if (defined $f->{skill}) {
18 10587dbd634b Ignoring bad data which was actually negative Dominic Cleal <dominic@computerkb.co.uk> parents: 17 diff changeset	505 return if $skill->id eq $f->{skill}->id;
39 4dd6009b0d2a Deleting timer ID if it's already been cancelled Dominic Cleal <dominic@computerkb.co.uk> parents: 38 diff changeset	506
15 2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	507 del_one_shot_timer($f->{timer});
39 4dd6009b0d2a Deleting timer ID if it's already been cancelled Dominic Cleal <dominic@computerkb.co.uk> parents: 38 diff changeset	508 delete $f->{timer};
15 2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	509 }
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	510
17 bef72aa85f2b Ignoring bad data with 2^32 second finish times Dominic Cleal <dominic@computerkb.co.uk> parents: 16 diff changeset	511 my $finish = $skill->finish_time - time();
bef72aa85f2b Ignoring bad data with 2^32 second finish times Dominic Cleal <dominic@computerkb.co.uk> parents: 16 diff changeset	512 my $prefinish = $finish - 60;
bef72aa85f2b Ignoring bad data with 2^32 second finish times Dominic Cleal <dominic@computerkb.co.uk> parents: 16 diff changeset	513
18 10587dbd634b Ignoring bad data which was actually negative Dominic Cleal <dominic@computerkb.co.uk> parents: 17 diff changeset	514 irc_debug("Character %s is training %s %d (%s == %d sec)",
15 2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	515 $f->{char}->name, $skill->name, $skill->level,
17 bef72aa85f2b Ignoring bad data with 2^32 second finish times Dominic Cleal <dominic@computerkb.co.uk> parents: 16 diff changeset	516 $skill->time_remaining, $finish);
bef72aa85f2b Ignoring bad data with 2^32 second finish times Dominic Cleal <dominic@computerkb.co.uk> parents: 16 diff changeset	517
18 10587dbd634b Ignoring bad data which was actually negative Dominic Cleal <dominic@computerkb.co.uk> parents: 17 diff changeset	518 # Ignore bad data
10587dbd634b Ignoring bad data which was actually negative Dominic Cleal <dominic@computerkb.co.uk> parents: 17 diff changeset	519 if ($finish < 0)
17 bef72aa85f2b Ignoring bad data with 2^32 second finish times Dominic Cleal <dominic@computerkb.co.uk> parents: 16 diff changeset	520 {
bef72aa85f2b Ignoring bad data with 2^32 second finish times Dominic Cleal <dominic@computerkb.co.uk> parents: 16 diff changeset	521 irc_debug("Unreasonable finish time given of %s seconds, ignoring",
bef72aa85f2b Ignoring bad data with 2^32 second finish times Dominic Cleal <dominic@computerkb.co.uk> parents: 16 diff changeset	522 $finish);
bef72aa85f2b Ignoring bad data with 2^32 second finish times Dominic Cleal <dominic@computerkb.co.uk> parents: 16 diff changeset	523 return;
bef72aa85f2b Ignoring bad data with 2^32 second finish times Dominic Cleal <dominic@computerkb.co.uk> parents: 16 diff changeset	524 }
15 2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	525
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	526 $f->{skill} = $skill;
7 6b73a2781c15 Skill completion notifications done Dominic Cleal <dominic@computerkb.co.uk> parents: 5 diff changeset	527
42 bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	528 # Check if the finish time is within scheduled EVE downtime
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	529 if (skill_finish_in_downtime($f->{skill}))
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	530 {
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	531 $self->privmsg('#' . $config{channel}, sprintf(
44 f7abbe853f5d Adding character name to downtime coincide message Dominic Cleal <dominic@computerkb.co.uk> parents: 43 diff changeset	532 "\002%s:\002 Completion time of %s's %s %lu " .
f7abbe853f5d Adding character name to downtime coincide message Dominic Cleal <dominic@computerkb.co.uk> parents: 43 diff changeset	533 "skill will coincide with scheduled downtime at %s",
f7abbe853f5d Adding character name to downtime coincide message Dominic Cleal <dominic@computerkb.co.uk> parents: 43 diff changeset	534 $f->{nick}, $f->{char}->name,
f7abbe853f5d Adding character name to downtime coincide message Dominic Cleal <dominic@computerkb.co.uk> parents: 43 diff changeset	535 $f->{skill}->name, $f->{skill}->level,
42 bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	536 scalar(gmtime($f->{skill}->finish_time))));
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	537 }
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	538
15 2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	539 my $text = sprintf("%s has completed training skill %s %s",
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	540 $f->{char}->name, $skill->name, $skill->level);
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	541
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	542 if ($text =~ /[\n\r]/) {
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	543 $text =~ s/[\n\r]/ /g;
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	544 }
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	545
15 2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	546 # Add a timer shortly before the end to ensure the user's still training
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	547 if ($prefinish > 0)
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	548 {
16 e238f28f774a No need to save timer Dominic Cleal <dominic@computerkb.co.uk> parents: 15 diff changeset	549 add_one_shot_timer($prefinish, sub {
15 2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	550 check_friend($self, $f);
7 6b73a2781c15 Skill completion notifications done Dominic Cleal <dominic@computerkb.co.uk> parents: 5 diff changeset	551 });
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	552 }
15 2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	553
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	554 $f->{timer} = add_one_shot_timer($skill->finish_time - time(), sub {
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	555 $self->privmsg('#' . $config{channel}, sprintf(
27 708653f624f3 Simplifying bold formatting codes Dominic Cleal <dominic@computerkb.co.uk> parents: 26 diff changeset	556 "\002%s:\002 %s", $f->{nick},
708653f624f3 Simplifying bold formatting codes Dominic Cleal <dominic@computerkb.co.uk> parents: 26 diff changeset	557 encode("utf8", $text)));
15 2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	558 delete $f->{skill};
2ab5ccc01036 Adding a check in shortly before an announcement to double-check the current skill Dominic Cleal <dominic@computerkb.co.uk> parents: 14 diff changeset	559 });
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	560 }
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	561
42 bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	562 =pod
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	563
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	564 Indicate whether the passed skill object is due to finish during a normal,
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	565 scheduled downtime window.
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	566
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	567 =cut
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	568 sub skill_finish_in_downtime
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	569 {
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	570 my $skill = shift;
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	571
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	572 # Check if the finish time is within 11:00-11:59 (EVE downtime)
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	573 return ([gmtime($skill->finish_time)]->[2] == 11);
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	574 }
bf685f1a545f Adding detection of downtime windows Dominic Cleal <dominic@computerkb.co.uk> parents: 40 diff changeset	575
0 d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	576 END {
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	577 cleanup_and_die();
d6521d5ea884 Import of Andy Smith's twitfolk bot Dominic Cleal <dominic@computerkb.co.uk> parents: diff changeset	578 }

Mercurial > hg > skillbot

annotate skillbot.pl @ 54:9ed1e53a8d3e