Mercurial > hg > skillbot

comparison skillbot.pl @ 61:2328f73e25a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixing undefined variable on init
author Dominic Cleal <dominic@computerkb.co.uk>
date Wed, 31 Dec 2008 12:12:24 +0000
parents 69d7a89d3adc
children f620582dee33
comparison
equal deleted inserted replaced
60:69d7a89d3adc 61:2328f73e25a8
58 58
59 open(PIDFILE, "> $config{'pidfile'}") or die "can't write $config{'pidfile'}: $!"; 59 open(PIDFILE, "> $config{'pidfile'}") or die "can't write $config{'pidfile'}: $!";
60 print PIDFILE "$$\n"; 60 print PIDFILE "$$\n";
61 close(PIDFILE) or die "can't close $config{'pidfile'}: $!"; 61 close(PIDFILE) or die "can't close $config{'pidfile'}: $!";
62 62
63 update_friends(undef);
64
65 my $irc = new Net::IRC; 63 my $irc = new Net::IRC;
64
65 update_friends($irc);
66 66
67 my $conn = $irc->newconn(Server => $config{'target_server'}, 67 my $conn = $irc->newconn(Server => $config{'target_server'},
68 Port => $config{'target_port'}, 68 Port => $config{'target_port'},
69 Nick => $config{'nick'}, 69 Nick => $config{'nick'},
70 Ircname => $ircname, 70 Ircname => $ircname,