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