Fabio/openvpn-install
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Create revoke-cleaner.pl

Browse source
This commit is contained in:
nu11secur1ty 2023-01-17 12:48:47 +02:00 committed by GitHub
parent 2a57e89489
commit 22cd72d4a2
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 35 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
revoke-cleaner.pl Normal file
View file

@ -0,0 +1,35 @@
#!/usr/bin/perl
# Author @nu11secur1ty
use strict;
use warnings;
use diagnostics;
use Term::ANSIColor;
print color('GREEN');
print "You should remove all lines which you see on this print with the path";
print color('RESET');
print color('BLUE');
print " (/etc/openvpn/easy-rsa/pki/index.txt)\n";
print color('RESET');
print color('GREEN');
print "because these users are already";
print color('RESET');
print color('RED');
print " revoked!\n\n\n";
print color('RESET');
my $ENV = `cat /etc/openvpn/easy-rsa/pki/index.txt | grep R`;
print "$ENV";
## Cleaning
my $ENVPKI = "/etc/openvpn/easy-rsa/pki/index.txt";
print "Preparing for cleaning...\n";
print "Please, choose the username...\n";
chomp (my $username = <STDIN>);
my $cleaner = `sed -i '/$username/d' $ENVPKI`;
exit 0;