1 84c190b6 2021-12-17 jrmu #!/usr/bin/perl
 2 84c190b6 2021-12-17 jrmu 
 3 84c190b6 2021-12-17 jrmu package VPN;
 4 84c190b6 2021-12-17 jrmu 
 5 84c190b6 2021-12-17 jrmu use strict;
 6 84c190b6 2021-12-17 jrmu use warnings;
 7 84c190b6 2021-12-17 jrmu use OpenBSD::Pledge;
 8 84c190b6 2021-12-17 jrmu use OpenBSD::Unveil;
 9 84c190b6 2021-12-17 jrmu 
10 84c190b6 2021-12-17 jrmu sub init {
11 84c190b6 2021-12-17 jrmu }
12 84c190b6 2021-12-17 jrmu #	if ($reply =~ /^!vpn (.*) ([-_0-9a-zA-Z]+)$/i) {
13 84c190b6 2021-12-17 jrmu #		my $ircnick = $1;
14 84c190b6 2021-12-17 jrmu #		my $newnick = $2;
15 84c190b6 2021-12-17 jrmu #		if ($staff !~ /$sender/) {
16 84c190b6 2021-12-17 jrmu #			return;
17 84c190b6 2021-12-17 jrmu #		}
18 84c190b6 2021-12-17 jrmu #		my $password = newpass();
19 84c190b6 2021-12-17 jrmu #		createvpn($password, $newnick);
20 84c190b6 2021-12-17 jrmu #		sendmsg($bot, $sender, "vpn created for $newnick");
21 84c190b6 2021-12-17 jrmu #my $msg = <<"EOF";
22 84c190b6 2021-12-17 jrmu #Your vpn account has been created! Username: $newnick with password: $password
23 84c190b6 2021-12-17 jrmu #Our official support channel is #vpn.  To connect, please follow these instructions: https://ircnow.org/kb/doku.php?id=vpn:vpn .
24 84c190b6 2021-12-17 jrmu #EOF
25 84c190b6 2021-12-17 jrmu #		sendmsg($bot, $ircnick, $msg);
26 84c190b6 2021-12-17 jrmu #	}
27 84c190b6 2021-12-17 jrmu #sub createvpn {
28 84c190b6 2021-12-17 jrmu #	my ($password, $username) = @_;
29 84c190b6 2021-12-17 jrmu #	`doas sh -c 'echo "user '$username' '$password'" >> /etc/iked.conf'`;
30 84c190b6 2021-12-17 jrmu #	`doas rcctl reload iked`;
31 84c190b6 2021-12-17 jrmu #}
32 84c190b6 2021-12-17 jrmu 
33 84c190b6 2021-12-17 jrmu 1; # MUST BE LAST STATEMENT IN FILE