Return to VPN.pm CVS log

Up to [local] / botnow

Annotation of botnow/VPN.pm, Revision 1.1.1.1

1.1       bountyht    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