aboutsummaryrefslogtreecommitdiffstats
path: root/src/gitjoe/rmrepo.pl
diff options
context:
space:
mode:
authorJozanLeClerc <bousset.rudy@gmail.com>2020-07-08 16:43:14 +0200
committerJozanLeClerc <bousset.rudy@gmail.com>2020-07-08 16:43:14 +0200
commitf0cb40d9e4b8d3285ac7125fb40433d65fae172e (patch)
treedd4f02807e2744c2f21cef41d717c1778aa7d479 /src/gitjoe/rmrepo.pl
parentFile owner fixes (diff)
downloadjoe-scripts-f0cb40d9e4b8d3285ac7125fb40433d65fae172e.tar.gz
joe-scripts-f0cb40d9e4b8d3285ac7125fb40433d65fae172e.tar.bz2
joe-scripts-f0cb40d9e4b8d3285ac7125fb40433d65fae172e.tar.xz
joe-scripts-f0cb40d9e4b8d3285ac7125fb40433d65fae172e.tar.zst
joe-scripts-f0cb40d9e4b8d3285ac7125fb40433d65fae172e.zip
Directory tree rework
Diffstat (limited to 'src/gitjoe/rmrepo.pl')
-rwxr-xr-xsrc/gitjoe/rmrepo.pl33
1 files changed, 33 insertions, 0 deletions
diff --git a/src/gitjoe/rmrepo.pl b/src/gitjoe/rmrepo.pl
new file mode 100755
index 0000000..30ce4d2
--- /dev/null
+++ b/src/gitjoe/rmrepo.pl
@@ -0,0 +1,33 @@
+#!/usr/local/bin/perl
+
+use strict;
+use warnings;
+use Term::ANSIColor;
+
+sub main {
+ my $argc = $#ARGV + 1;
+ if ($argc < 2) {
+ print colored("Failed!\n", 'bold red')
+ . "Missing argument, 2 needed "
+ . colored("[user - reponame]", 'bold')
+ . "\n";
+ exit 1;
+ }
+ my $usr = $ARGV[0];
+ my $repo = $ARGV[1];
+ my $home_dir = '/usr/home/' . $usr . '/';
+ if (substr($repo, -4) ne '.git') {
+ $repo = $repo . '.git';
+ }
+ $repo = $repo . '/';
+ system(
+ '/usr/local/bin/dash',
+ '-c',
+ '/bin/rm -rfv ' . $home_dir . $repo
+ );
+ exit;
+}
+
+main();
+
+__END__