1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
# CopyLeft Riku Voipio 2001
# half-life bot script
use strict;
use Irssi;
use Irssi::Irc;
use vars qw($VERSION %IRSSI);
# header begins here
$VERSION = "1.2";
%IRSSI = (
authors => "Riku Voipio",
contact => "riku.voipio\@iki.fi",
name => "half-life",
description => "responds to \"!hl counterstrike.server \" command on channels/msg's to query counter-strike servers",
license => "GPLv2",
url => "http://nchip.ukkosenjyly.mine.nu/irssiscripts/",
);
my $qdir="/home/nchip/qstat/";
sub cmd_hl {
my ($server, $data, $nick, $mask, $target) =@_;
if ($data=~/^!hl/){
my @foo=split(/\s+/,$data);
my $len=@foo;
if ($len==1){
$foo[1]="turpasauna.taikatech.com";
}
#fixme, haxxor protection
my $word=$foo[1];
$_=$word;
$word=~s/[^a-zA-Z����0-9\.]/ /g;
open(DAT, "-|", $qdir."qstat -hls $word");
my $count=0;
foreach my $line (<DAT>)
{
if ($count==1)
{
$_=$line;
$line=~s/\s+/ /g;
#print($line);
$server->command("/notice ".$target." ".$line);
}
$count++;
}
close(DAT);
}
}
Irssi::signal_add_last('message public', 'cmd_hl');
Irssi::print("Half-life info bot by nchip loaded.");
|
