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