diff options
| author | David Leadbeater | 2015-01-10 17:50:12 +0000 |
|---|---|---|
| committer | David Leadbeater | 2015-01-10 17:50:12 +0000 |
| commit | 3350aef6b04f0d33ad52b41179c6742a98d2aa1f (patch) | |
| tree | 287ac1dba07509317309acab3161f5da286958e9 /scripts/hlbot.pl | |
| parent | 1bae3cffef57d4d46d0230aa4f44cc52c7671b93 (diff) | |
| parent | 2d920d6f610e176bf121f9089f21956595df70e9 (diff) | |
| download | scripts.irssi.org-3350aef6b04f0d33ad52b41179c6742a98d2aa1f.tar.bz2 | |
Merge branch 'obfuscoder-perlcritic-e-l' into gh-pages
Diffstat (limited to 'scripts/hlbot.pl')
| -rw-r--r-- | scripts/hlbot.pl | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/scripts/hlbot.pl b/scripts/hlbot.pl index a51e34c..d9e5113 100644 --- a/scripts/hlbot.pl +++ b/scripts/hlbot.pl @@ -32,7 +32,7 @@ # ## - +use strict; use Socket; use Sys::Hostname; use IO::Handle; @@ -78,10 +78,11 @@ my $log_on = 1; sub run_bot { my $server = Irssi::active_server(); + my $msg; - ($hispaddr = recv(S, $msg, 1000, 0)) or print "$!\n"; - ($port, $hisiaddr) = sockaddr_in($hispaddr); - $host = inet_ntoa($hisiaddr); + (my $hispaddr = recv(S, $msg, 1000, 0)) or print "$!\n"; + my ($port, $hisiaddr) = sockaddr_in($hispaddr); + my $host = inet_ntoa($hisiaddr); $msg =~ s/\n.$//s; $msg =~ s/\n..$//s; @@ -113,7 +114,7 @@ sub run_bot { # Received challenge rcon reply.. elsif ($msg =~ /^˙˙˙˙challenge rcon (\d+)$/ && $rcon_msg) { $challenge = $1; - $data = "˙˙˙˙rcon $challenge $rcon_pass $rcon_msg"; + my $data = "˙˙˙˙rcon $challenge $rcon_pass $rcon_msg"; defined(send(S, $data, 0, $serv_paddr)) or $server->command("/notice $channel Error sending rcon: $!"); } @@ -127,8 +128,8 @@ sub run_bot { # Multiline rcon responses if ($msg =~ /\n/s) { - @rows = split /\n/, $msg; - foreach $row (@rows) { + my @rows = split /\n/, $msg; + foreach my $row (@rows) { # We don't want to see these if ($row =~ /^[\t \n]*$/ || $row =~ /^[ADMIN] Load/ || @@ -199,7 +200,7 @@ sub msg_command { #########[ MAIN ]########### # Open the logfile. -open LOG, ">>$logfile" or die "Cannot open logfile!\n"; +open LOG, ">>", $logfile or die "Cannot open logfile!\n"; LOG->autoflush(1); # Start listening the socket for udp messages. |