Blame
Date:
Sun Dec 27 01:56:09 2020 UTC
Message:
Updated p5-Class-DBI-SQLite-0.11p2
01
2020-10-23
jrmu
#!/usr/bin/perl
02
2020-10-23
jrmu
03
2020-10-23
jrmu
package Help;
04
2020-10-23
jrmu
05
2020-10-23
jrmu
use strict;
06
2020-10-23
jrmu
use warnings;
07
2020-10-23
jrmu
use OpenBSD::Pledge;
08
2020-10-23
jrmu
use OpenBSD::Unveil;
09
2020-10-23
jrmu
10
2020-11-15
jrmu
my %conf = %main::conf;
11
2020-11-15
jrmu
my $chans = $conf{chans};
12
2020-11-15
jrmu
my $teamchans = $conf{teamchans};
13
2020-11-15
jrmu
my @teamchans = split /[,\s]+/m, $teamchans;
14
2020-11-15
jrmu
my $staff = $conf{staff};
15
2020-11-15
jrmu
my $terms = $conf{terms};
16
2020-10-23
jrmu
my $time = "600";
17
2020-11-15
jrmu
main::cbind("pub", "-", "help", \&help);
18
2020-11-15
jrmu
main::cbind("msg", "-", "help", \&help);
19
2020-11-15
jrmu
main::cbind("pub", "-", "request", \&help);
20
2020-10-23
jrmu
21
2020-10-23
jrmu
sub init {
22
2020-10-23
jrmu
}
23
2020-10-23
jrmu
24
2020-10-23
jrmu
sub help {
25
2020-10-23
jrmu
my ($bot, $nick, $host, $hand, @args) = @_;
26
2020-10-23
jrmu
my ($chan, $text);
27
2020-10-23
jrmu
my $msg = <<"EOF";
28
2020-10-23
jrmu
$terms
29
2020-10-23
jrmu
To request a free bouncer, type !bnc <username> <email>. For example, !bnc john john\@example.com.
30
2020-10-23
jrmu
To request a free shell account, type !shell <username> <email>. For example, !shell john john\@example.com.
31
2020-10-23
jrmu
EOF
32
2020-10-23
jrmu
#To request a free email account, type !email <username> <email>. For example, !email john john\@example.com.
33
2020-10-23
jrmu
#To request a free VPN account, type !vpn <username> <email>. For example, !vpn john john\@example.com.
34
2020-10-23
jrmu
if ($staff =~ /$nick/) {
35
2020-10-23
jrmu
$msg .= <<"EOF";
36
2020-10-23
jrmu
To delete a bouncer, type !bnc delete <username>
37
2020-10-23
jrmu
To verify a captcha, type !bnc captcha <username>
38
2020-10-23
jrmu
To recreate cloneuser, type !bnc cloneuser
39
2020-10-23
jrmu
To get a list of usernames that match IPs, type !regex ips <ips>
40
2020-10-23
jrmu
To get a list of IPs that match usernames, type !regex users <usernames>
41
2020-10-23
jrmu
To regex search znc.log and output to the terminal, type !regex <regex>
42
2020-10-27
jrmu
To delete a shell account, type !shell delete <username>
43
2020-10-27
jrmu
To verify a captcha, type !shell captcha <username>
44
2020-10-23
jrmu
EOF
45
2020-10-27
jrmu
#To get a list of usernames that match IPs, type !shell regex ips <ips>
46
2020-10-27
jrmu
#To get a list of IPs that match usernames, type !shell regex users <usernames>
47
2020-10-27
jrmu
#To regex search znc.log and output to the terminal, type !shell regex <regex>
48
2020-10-23
jrmu
}
49
2020-10-23
jrmu
if (@args == 2) {
50
2020-10-23
jrmu
($chan, $text) = ($args[0], $args[1]);
51
2020-10-23
jrmu
if ($chans =~ $chan) {
52
2020-10-23
jrmu
main::putserv($bot, "PRIVMSG $chan :$nick: Please see private message.");
53
2020-10-23
jrmu
}
54
2020-10-23
jrmu
} else {
55
2020-10-23
jrmu
$text = $args[0];
56
2020-10-23
jrmu
}
57
2020-10-23
jrmu
main::putserv($bot, "PRIVMSG $nick :$msg");
58
2020-10-23
jrmu
foreach my $chan (@teamchans) {
59
2020-10-23
jrmu
main::putserv($bot, "PRIVMSG $chan :Help *$nick* on ".$bot->{name});
60
2020-10-23
jrmu
}
61
2020-10-23
jrmu
}
62
2020-10-23
jrmu
63
2020-10-23
jrmu
1; # MUST BE LAST STATEMENT IN FILE