Bernhard.Linz/openvpn-install
1
0
Fork 0
mirror of https://github.com/angristan/openvpn-install.git synced 2025-01-09 08:10:05 +01:00
Code Issues Projects Releases Wiki Activity

Create revoke-cleaner.pl

Browse Source
This commit is contained in:
nu11secur1ty 2023-01-17 12:53:20 +02:00 committed by GitHub
parent e3083b908a
commit 7b27acd69b
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;