diff options
Diffstat (limited to 'src/gitjoe/rmuser.pl')
-rwxr-xr-x | src/gitjoe/rmuser.pl | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/src/gitjoe/rmuser.pl b/src/gitjoe/rmuser.pl deleted file mode 100755 index 9753950..0000000 --- a/src/gitjoe/rmuser.pl +++ /dev/null @@ -1,31 +0,0 @@ -#!/usr/local/bin/perl - -use strict; -use warnings; -use Term::ANSIColor; - -sub main -{ - my $argc = $#ARGV + 1; - if ($argc < 1) { - print colored("Failed!\n", 'bold red') - . "Missing argument, 1 needed " - . colored("[user]", 'bold') - . "\n"; - exit 1; - } - my $usr = $ARGV[0]; - system( - "rmuser << EOF -" . $usr . " -y -y -EOF" - ); - print "Removed git user " . colored($usr, 'bold yellow') . ".\n"; - exit; -} - -main(); - -__END__ |