#!/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__