#!/usr/bin/perl -t

#use strict;
#use DateTime;
use POSIX;

#print @ARGV;

my $username = $ARGV[0];
my $password = $ARGV[1];

my $arq = '/etc/openvpn/users';
open(my $users, '<', $arq) or die "nao foi possivel abrir arquivo de usuarios\n";

while(my $row = <$users>) {
   chomp $row;
   if($row eq "$username/$password" or $row eq "$username") {
      #print "ok\n";
      exit 0;
   }
}

exit 1;