summaryrefslogtreecommitdiffstats
path: root/scripts/hlbot.pl
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-15 20:19:02 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-15 20:19:02 +0000
commit03929dac2a29664878d2c971648a4fe1fb698462 (patch)
tree02c5e2b3e006234aa29545f7a93a1ce01b291a8b /scripts/hlbot.pl
parentInitial commit. (diff)
downloadirssi-scripts-03929dac2a29664878d2c971648a4fe1fb698462.tar.xz
irssi-scripts-03929dac2a29664878d2c971648a4fe1fb698462.zip
Adding upstream version 20231031.upstream/20231031upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'scripts/hlbot.pl')
-rw-r--r--scripts/hlbot.pl217
1 files changed, 217 insertions, 0 deletions
diff --git a/scripts/hlbot.pl b/scripts/hlbot.pl
new file mode 100644
index 0000000..1d8cfd6
--- /dev/null
+++ b/scripts/hlbot.pl
@@ -0,0 +1,217 @@
+###########################################################################
+#
+# CopyLeft Veli Mankinen 2002
+# HL-log/rcon bot irssi script.
+#
+#####################
+#
+# USAGE:
+#
+# 1. copy the script to ~/.irssi/scripts/
+# 2. Edit the variables below.
+# 3. load the script: /script load hlbot
+# 4. Join to the channel you want this script to work on.
+# 5. Make sure all the users have ops in the channel (security reasons)
+# 6. say in channel: .rcon logadress <ip> <port>
+# Where ip is the ip of the machine where this script is running and
+# the port is the $listen_port you have set below
+# 7. say in channel: .rcon log on
+#
+# The script should now start flooding the channel about things hapening in
+# the channel. Ofcourse you can and I think you should add those
+# log -commands to your hl server.cfg.
+#
+# You can turn the flooding of by saying: ".log off" and turn it back on
+# with: ".log off". ".status" tells you whether the log is on or off.
+# Please note that the logfile is allways on. If you don't want to gather
+# the log in a file then you should put "/dev/null" to the $logfile below.
+#
+#
+# NOTE: There probably are few stupid things in this script and that is
+# just because I don't have a clue about making irssi script.
+#
+##
+
+use strict;
+use Socket;
+use Sys::Hostname;
+use IO::Handle;
+
+use Irssi;
+use Irssi::Irc;
+use vars qw($VERSION %IRSSI);
+
+##########################[ USER VARIABLES ]###########################
+
+my $listen_port = 10001; # Port to listen to
+my $logfile = "logi"; # Logfile
+
+my $hlserver = "123.123.123.123"; # Ip of your half life server
+my $hlport = "28000"; # Port of your half life server
+my $rcon_pass = "password"; # Rcon password of your half life server
+
+my $channel = "#mychan"; # Channel where you want this to work
+
+#######################################################################
+##############[ YOU DON'T NEED TO TOUCH BELOW THIS LINE ]##############
+#######################################################################
+
+$VERSION = "1.0";
+%IRSSI = (
+ authors => "Veli Mankinen",
+ contact => "veli\@piipiip.net",
+ name => "HL-log/rcon -bot",
+ description => "Floods the channel about things that are hapening in your hl -server. Also enables you to send rcon commands to the server from channel.",
+ license => "GPLv2",
+ url => "http://piipiip.net/",
+);
+
+#####################
+
+my $serv_iaddr = inet_aton($hlserver) || die "unknown host: $hlserver\n";
+my $serv_paddr = sockaddr_in($hlport, $serv_iaddr);
+my $challenge = "";
+my $rcon_msg = "";
+my $log_on = 1;
+
+#####################
+
+sub run_bot {
+ my $server = Irssi::active_server();
+ my $msg;
+
+ (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;
+
+ print LOG "$host : $msg\n";
+
+ # Received logline
+ if ($msg =~ s/^˙˙˙˙log L \d\d\/\d\d\/\d{4} - \d\d:\d\d:\d\d: //) {
+ # We don't want to see these
+ if ($log_on eq 0 ||
+ $msg =~ /^Server cvar/ ||
+ $msg =~ /^\[META\]/ ||
+ $msg =~ /^Log file/ ||
+ $msg =~ /^\[ADMIN\]/)
+ { return; }
+
+ # FORMAT THE LINE
+ # Don't show the rcon password.
+ $msg =~ s/^(Rcon: "rcon \d* )[^ ]*( .*)/$1*****$2/;
+
+ # Print the logline
+ if ($msg =~ /^"/) {
+ $server->command("/action $channel $msg");
+ } else {
+ $server->send_raw("PRIVMSG $channel :*log* $msg");
+ }
+ }
+
+ # Received challenge rcon reply..
+ elsif ($msg =~ /^˙˙˙˙challenge rcon (\d+)$/ && $rcon_msg) {
+ $challenge = $1;
+ my $data = "˙˙˙˙rcon $challenge $rcon_pass $rcon_msg";
+ defined(send(S, $data, 0, $serv_paddr)) or
+ $server->command("/notice $channel Error sending rcon: $!");
+ }
+
+ # Received rcon reply
+ elsif ($msg =~ s/˙˙˙˙l//) {
+ # Some rcon replies have this annoying log entry in the beginning.
+ $msg =~ s/L \d\d\/\d\d\/\d{4} - \d\d:\d\d:\d\d: //g;
+
+ # FORMAT THE LINE
+
+ # Multiline rcon responses
+ if ($msg =~ /\n/s) {
+ my @rows = split /\n/, $msg;
+ foreach my $row (@rows) {
+ # We don't want to see these
+ if ($row =~ /^[\t \n]*$/ ||
+ $row =~ /^[ADMIN] Load/ ||
+ $row =~ /^[ADMIN] WARNING/ ||
+ $row =~ /^[ADMIN] Plugins loaded/)
+ { next; }
+
+ $server->command("/notice $channel $row");
+ }
+
+ # Single line rcon responses
+ } else {
+ $server->command("/notice $channel $msg");
+ }
+ }
+
+}
+
+############################
+
+sub msg_command {
+ my ($server, $data, $nick, $mask, $target) = @_;
+
+ # Is this the right channel?
+ unless ($target =~ /$channel/i) { return; }
+
+ # Does the user have ops?
+ my $CHAN = $server->channel_find($channel);
+ my $NICK = $CHAN->nick_find($nick);
+ if (! $NICK->{op}) { return; }
+
+ # Rcon command.
+ if ($data =~ /^\.rcon (.+)/) {
+ $rcon_msg = $1;
+
+ defined(send(S, "˙˙˙˙challenge rcon", 0, $serv_paddr)) or
+ $server->command("/notice $channel Error asking challenge: $!");
+ }
+
+ # log on
+ elsif ($data =~ /^\.log on$/) {
+ $log_on = 1;
+ $server->command("/notice $channel Logging now ON");
+ }
+
+ # log off
+ elsif ($data =~ /^\.log off$/) {
+ $log_on = 0;
+ $server->command("/notice $channel Logging now OFF");
+ }
+
+ # help
+ elsif ($data =~ /^\.help$/) {
+ $server->command("/notice $channel Commands: .rcon <rcon command>, " .
+ ".log <on/off>, .status");
+ }
+
+ # status
+ elsif ($data =~ /^\.status$/) {
+ my $log_status = "";
+ if ($log_on eq 1) { $log_status = "on"; }
+ else { $log_status = "off"; }
+ $server->command("/notice $channel Log: $log_status");
+ }
+
+}
+
+#########[ MAIN ]###########
+
+# Open the logfile.
+open LOG, ">>", $logfile or die "Cannot open logfile!\n";
+LOG->autoflush(1);
+
+# Start listening the socket for udp messages.
+my $iaddr = gethostbyname(hostname());
+my $proto = getprotobyname('udp');
+my $paddr = sockaddr_in($listen_port, $iaddr);
+socket(S, PF_INET, SOCK_DGRAM, $proto) || die "socket: $!\n";
+bind(S, $paddr) || die "bind: $!\n";
+
+# Set input and signals etc. irssi related stuff.
+Irssi::input_add(fileno(S), INPUT_READ, "run_bot", "");
+Irssi::signal_add_last('message public', 'msg_command');
+
+